e¢ 8 @ 


? EXECUTE PATCH/MERGF 


PACKE 
INPUT 
TIME 
DATE 


*#* BURRO 
#NO M 
? e€XECUT 


? Ft 
? MATA P 


? END 


T 1 
25 CARDS FROM CRA 
1553 , 
77234 MONDAY» 08/22/77 


UGHS B5700 DCMCP MARK XVI,0,73 AND INTRINSICS MARK XVI,0,00 #4 


ESSAGES TODAY 


F PATCH/MFRGE 

LE CARns PMCARN 

MCARD 

AtPATCH/MERGE® 1 ROU 1553 O5/19/77 

CDA IN PMCARDIPATCH/MERGES 1 

PBDO0O0O> OUT 014 LINEtPATCH/MERGES 4 

DKA OUT SER MASTERF UOOOOCOTPATCH/MERGE®? 1 
DKA IN SER PATCH FSPOLIPATCH/MFRGE® 1 

DKA OUT SER PATCHDE UOOOOOOSPATCH/MERGES 1 
COA REI, PMCARN?PATCH/MERGE= 4 


DKA REL PATCHDE UQOOOOOTPATCH/MERGE® t 

DKA REL. PATCH ESPOLIPATCH/MERGES 1 

PBD000S REL O14 LINE 18083PATCH/MERGES 1 

DkKA RE}, MASTERF UNQOOOOSPATCH/MERGE® 4 

PATCH/MERGE= 1 F0Oy 1555 

FOR PATCH/MERGE= 11 PROCESS= 65 SECS» 10s 43 SECS» OLAYa 0 
PKT#0001 REMOVED 


LABEL OO0N00000LINE 00177234? FXFCUTE PATCH/MERGE PATCH 
BURROUGHS R*5700 PATCH/MERGE PROGRAM MARK XvI,0,104 MONDAYs 08/22/77. 3153 PM, 
OR ee TNPUT BEING IOI RIG IORI ROI RIOR IOI IOI IO IOIOISIOR IRI OR IORI IOI IE IOI RIOR HOR A OIOIOIO I i ie ste dt 


S®CARM CONFLICTS LIST? MERaF ZIP 
$, 18 PaTcueS FOR FSPOL 


CARD INPUT IS PMCARD 
PATCHES/E SPO 15 NOT ON DYSK 
PATCH /ESPOL, WILL BE MERGED 


S*COMPILE ESPOL/DISK ALGOL LIBRARY 

$S* ALGOL STACK = 1000 

S*ALGOL FILE TAPE «= SYMROL/ESPOL DISK SERIAL 

$* FILE LINE = LINE PRINT OR BACK UP 

$* DATA CARN 

$= x*eee THIS LISTING SHOWS PATCHES IMPLEMENTED AT UCSC *eeee 
STAPE 

S$SET LISTA SINGLE FORMAT PRT XREF 


S#PATCH NUMBER 101 FOR FSPOL CONTAINS 2 CARDS 


te T = INF OrGT1e GT?) THEN BEGIN 02877010 
Tts 03 GO TO COMPLETE ENDS 02877020 
S$tTH1S PATCH ELEMINATES A COMPILER LOOP CAUSED WHEN A FORMAL PARAMETER 
$i 1N A PROCEDURE DECLARATYON ITS NOT YNDICATED +N THE SPECIFICATION 
$t Lrst: 
BF ee ee RRR IORI TOR IO TOR Rk SOROIGORIORIOIGR ROK ROKR OR KK 


S#PATCH NUMBER 102 FOR FSPOL CONTAINS 7 CARD 


IF BUP # BUP3=BUP™ TAKECBUP + 1),PURPT THEN 14088000 
$3 THyS PATCH ELEMINATES & COMPILER LOOP CAUSED WHEN THE FORMAL 
$! PARAMETER IN A PROCENURE DECLARATION IS FOLLOWED BY A COMMA, 
Ee ET EeePC ee CeCe TET ETE L ETS SCT TEC ELI ESET TTT TL TT TTT T ETT LTT TTT TTT TT 


S#PATCH NUMBER 103 FOR ¢SPOL CONTAINS 2 CARDS 


ie] 


Ao aoanooaoaon 


ma) 


vuuvuVUvTU YU 


vuvudTaY vu 


0000000/PMCARD 


101 PATCH 


103 


/ESPOL 


/MERGE 


FOUNDS 02315000 
tF OPINX 41>0PARS17F THEN FLAG(602) ELSE &¥ TOO MANY USFR OPTIONS 02316000 

$2 THrS PATCH CORRECTS AN tNVALTN TNDEX CONDITION CAUSED WHEN TOO MANY 

$1 USFR OPTIONS WAVE BEEN SPECIFIED. 

EEE Ee eee re eee T eT CTT eT TST T STC TTT ETT TCT TTT TTT TTTeT TT 


S$#PATCH NUMRFR 104 FOR ¢SPOL CONTAINS 4 CARDS 


FLAG ¢120)3— ; 07025000 
FCRis ¢(LCRP aMKABS(CBUFFL91))993 07025010 

IF LISTER THEN PRINTCARDS 07025020 
FCRt= ¢cLCRt=aMKABS¢(TBUFFF9}))=9 ENDS 07025030 


StTHIS PATCH CORRECTS A PROBLEM WHERE A PATCH CARD 1S LOST WHEN BEGIN 
StEND PAIRS ARE NOT MATCHED AND PATCH CARD SEQUENCE NUMBERS ARE GREATER 
S'THAN THE SFQUENCE NUMBER OF THE "END. "CARD IN THE SOURCE FILE, 
SOI III OOO IOI IORI OIOIOOR NORE ROIGIOIOIGI GR GIOIOIOR fog dk eK ek 


$# PATCH NUMBER 105 FOR FSPOL CONTAINS 11 CARDS 


LABEL ENDREADTAPE.s FOFTS 02201510 
READ ¢TaPE» 105 TRUFFC* J) CFOFTIS 02201750 

LORS =MKABSC(CTBUFFI9})3 02202000 
GO TO ENDREADTAPES 02202010 
EOrT! ; 02202020 
DEFINFARRAY¢ 25) 42"NDSEND. MR MEME 18438533 02202030 
DEFINFARRAY 34) 4="9999" & #9999%r1195123)3 92202040 
TLOR§s MKARSCDEFINEARRAY( 34193 02202050 
PUTSEQNO (NEF INEARRAY(L33),TLCR*8)3 02202060 
TURNONSTOPLIGHT("E", TLCR#8)3 92202070 
ENDREADTAPE? 02202080 


StTHs PATCY CORRECTS AN FOF NO LABEL ENCOUNTFRED WHEN THE SOURCE 

$3 nEND? CARD [S PATCHFD OVER AND THE PATCH DECK CONTAINS CARD SEQUENCE 
StNUMBERS GREATER THAN THE SEQUENCE NUMBER OF THE "END," CARD IN THE 
$tSOURCE FILE 

SB hee ee RRR OOO TOR GIO OIGIIO IOI IORI IOIOI OIG IG IORI KR dk tok 


S#PATCH NUMRER 106 FOR FSPOL CONTAINS 2 CARDS, 00000000 

IF ERRNUM = 200 THEN [ t= 1/03 % SEGMENT TOO LARGE, 05107100 

IF ERRNUM = 611 THEN I t# 4/03 &% ERRMAX EXCEEDED. 05107200 
$8 DATE 6/27/75 99990000 
$! BY MwG = MSA CENTRAL*: 99990100 
$! THrS PATCH CAUSES ESPOL TO ABORT WITH A DIVINE BY ZERO FRROR FOR 99990200 
$1 THF FRRORS *SFGMENT TOO LARGE” AND “ERROR LIMIT EXCEEDED®, 99990300 


S#PATCH NUMBER 107 FOR FSPOL CONTAINS 42 CARDS, 00000000 


vVuvuSG UU 


ae) 


wvv~T, VTS? 


VuvvVTIVGVT VV VU VY VIVO UM uv 


uv 


vwuuvuVV vU 


103 
493 
103 
103 
193 


104 


104 
104 
104 
104 
104 
104 
104 
104 


105 


105 
105 
105 
105 
105 
105 
105 
105 
105 
105 
105 
105 
105 
105 
105 
105 


106 


106 
106 
196 
106 
106 
496 


{97 


LABEL EXIT»sNEXTCHKS 


06315000 


1F STrPy = RTBRKFET THEN % We WILL TAKE CARE OF THE R&S06320000 


IF ¢FERST te ELBATC]733,ADDRESS) x 06320100 

CTHIRD te ELBAT£I°17,ADDRESS) # 0 THEN 06320200 

BFGIN 06320300 

SECOND t= 48 = THIRD? % SOURCE IS RIGHT JUST, 06320400 

GO TO NEXTCHKS 06320500 

End 06320600 

ELSE % BAD BITS» FALL THROUGH To ERROR, 06320700 

ELSE % MAYBE A COLON, 06320800 

IF FLCLASS © COLON THEN & 06320900 

NEXTCHK! IF FIRST + THIRD < 48 THEN & SO FAR SO GOOD, 06327000 

$t DATE 1/29/76 99990000 
S$! BY JTC = MSA CENTRAL 99990100 
$§ THrS PATCH ALTERS THe SYNTAX FOR THF CONCATENATE OPERATOR TO ALLOW 99990200 
$1 THF SECOND VALUE IN THE CONCAT, LIST TO BE OMITTFO (THE 99990300 
$i STARTING BIT NUMBER «N THE SOURCE WORD) JF THE RIGHT#=MOST 99990400 
$t.N BITS ARE BEING SELFCTED FROM THE SOURCE WORD, THUS 99990500 
$8 99990600 
$t T te 7&8 J £2220) 99990700 
$: 99990800 
$t 1S THE SAME AS 99990900 
$s 99991000 
$ 1 t= 7 8 J 62128120) 99991100 
$3 . 99991200 
$! THIS TS FSPECTALLY CONVFNTENT FOR ESPOL SINCE THYS ALLOWS SOME 99991300 
$t FIELD DEFINES TO BE USED IN CONCATENATE EXPRESSIONS, THUS fF WE 99991400 
$1 HAVE THE FOLLOWING FIELD DEFINITION 99991500 
$3 99991600 
$3 PBIT = £211) 99991700 
$I 99991800 
$! 99991900 
$t WE CAN USF THE SAME FIELD DEFINITION IN A CONCATENATE STATEMENT 99992000 
$1 AS FOLLOWS 99992100 
$I 99992200 
$3 DFSC := MESC &R 1 PRIT 99992300 
$1 99992400 
$1 99992500 
$t NOTES FUTURE PATCHES TO THE MCP AND INTRINSICS WrLL TAKE ADVANTAGE 99992600 
$1 OF TuyS PATCH, 99999700 
S#PATCH NUMBFR 108 FOR FSPOL CONTAINS 252 CARDS 90000000 
XRerBrT = 26#, 901001170 

BENODBIT = O7#, 01001174 
USFROPINX = 9B#3 040011792 

XRFEF = OPTIONWORD,CXREFBITI19) #> 01001464 

7 BEND = OPTIONWORD,. CBENDBIT!21 34> 010014692 
DEFINE XREFINFOCXREF INF OY eXREFINFOD)= 01001750 
XINFOPXREFINFOLeCXREFINFOQIDIV 2) 4 01001760 

XMARK® IF XREF THEN XREFAY2CXREFPT@i)eritilei#3 01001770 

ARRAY XREFAY2r0! 29] »XRFFAYGLOLqO)eXINFOLO? 3190812713 01007100 


INTEGER XREFPT®XLUNS ®DFB01007200 


VUVVVID VVUVUVUVVVUVVU VV VV VV VV VU UV eC UU CU ee UU 


Se] 


vsvuUVvVVVDU UV 


107 
107 
197 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
107 
497 
197 
107 
107 
107 
{07 
107 
107 
107 
107 
107 
497 
107 
107 
197 
107 
107 
107 
107 
107 
107 
107 
107 
107 


106 


108 
108 
108 
108 
108 
108 
408 
108 
108 
108 


ARRAY BFGINSTACKE(0!95513 INTFGER BSPOINTS 01007600 
BOOLEAN DEFINING 01007650 
FILE OSK1 DISK SERIAL £2038161(2°10+30)3 01561085 

FILE DSK2 NtSK SERIAL £202450)02530530)3 01561087 
PROCEDURE BEGINPRINT$ 02196510 
BEGIN 02196520 
STREAM PROCEDURE STUFF OCNeL)$ VALUE N3 02196530 

BEGIN 02196540 
Dykes OStzB LIT @ "3s SyptebLs OSe2xq3 WSs 02196550 

STtsLOC Ns NSteB OFC) 02196560 

END} | 7 02196570 
STUFFCBEGINSTACKERSPOINTI,LINDS 02196580 

IF NOHFADING THEN DATIMES WRITELINGS 02196590 

END REGINPRINTS 02196610 
CARNNUMRERS aCONVCTNEOPLASTSFOQROWPLASTSEQUENCE™§ 425,8)3 02214260 
$ 02228000 
CARDNUMBER@=IF SEQTOG THEN TOTALNO#ADDVALUE ELSE 02234800 
CONV¢INFOTLASTSEQROWsLASTSFQUENCE™4)25,8)3 02234900 

IF @ = "AXREFO" THEN BFGIN SWITCHITCXREFBIT)3 ITF BOOLEANCXMODE) THENO2419100 
DEFINING t% BOOLEANCREALCDEFINING)&471847%4))3 024191410 

GO AGAIN END3 02419120 

IF 9 3 "“4BENDO" THEN REGIN SWITCHITCBENDBIT)$ Go AGAIN END} 02419200 
IF XREF THEN 02882100 

IF GT1#4 THEN 02882200 

BEGIN 02882300 

IF XREFPT&30 THEN 02882400 

BEGIN 02882500 

WRITE (NSK2s30eXREFAY2[*))3 02882600 

XREFPT « 03 02882700 

END3 02882806 
XREFAYOCXREFPT JeCARDNUMBERGXREF INFOLGTI eGT21709936%12)3 02882900 

XREFPT «¢ XREFPT+1) 02882940 

ENn3 02882920 

IF NOT nFFINTING THEN 02910100 
IF T.CLASS = BEGINV THEN 02910200 
BEGINSTACKCRSPOINT2=RSPOTNT+1I£&=CARDNUMBER ELSE 02910300 

IF T.sCLASS = ENNDV TyEN 02910400 
BEGIN 02910500 
IF LISTER THEN TF BEND THEN BEGINPRINT$ 02910600 
BSPOINT?£=BSPOINT = REALCBSPOINT > 0)3 & PREVENT INVALID INDEX 07910700 

ENDS 02910800 
"ARENDOMS 0, 50° 51 09251285 

"AXREFO"™* 0. % 505 53 09251286 

STREAM PROCEDURE XREFMOVECS»CoSNeSQeLeD)? 20FB13301100 
VALUE Cel3 £DFB13301130 
BEGIN Z0FB13301160 
Dis=D3 %0FB13301190 

DOStm 8 LIT’ 3 20FB13301220 
Sti203 ¥0FB13301250 

DS1"8 WHS3 Z20F813301280 
Drisps ¥0F 813301310 
SrisS3 %0FB13301340 
SrisS14+3? %0F 813301370 

OStec CHR} %O0FB13301400 
DrexD} 20FB13301430 
D1¢D14+603 ZO0FB13301460 
Srs=SN3 ®0FB13301490 
%0F813301520 


DSte4 orcs 


VUGUVBUVUVGTVVGRVDVVVUVUVUUVVUVUV VV VU VV VV VU VV UV UV UV BU 


108 
108 
106 
108 
108 
108 
108 
108 
108 
108 
408 
108 
108 
108 
198 
108 
498 
{08 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
408 
108 
108 
108 
108 
408 
108 
408 
198 
108 
108 
108 
1068 
108 
408 
108 
108 
108 
108 
108 
108 
108 
108 
106 
106 
108 
108 
108 


$1128) 
OSts8 orcs 
SytsLOc L3 
DSiawpS3 
END} 
IF XREF AND CNOT PTOG OR STREAMTOG) THEN 
BEGIN 
XREFMOVFCACCUME 4)» COUNT» SGNO »CARDNUMBER? 
XREFINFOCNEXTINFOs*LINKRoNEXTINFO,LINKC}) &eXLUNI@XLUNG1 » 
XREFAY193 
WRITECOSK1e100eXREFAYIC«%))3 
END} 
IF XREF AND PTOG THEN 


3DFB13301610 
%DFB13301640 
¥DFB13301670 
%0FB13301700 
3DFB13301730 

13310100 
20FB13310200 
%0FB13310300 
20FB13310400 

13310450 
%DFB13310500 
ZD0FB13310600 

13341200 


XREFPT«¢XREFPT@REALCELBATCIJ40)3 & GET RID OF LAST CREF 13341300 


SVOIDT 13366105 
DEFINING ts BOOLFANCREALCOEFINING) & 174784781])3 
: DEFINING !# BOOLEANCREALCDEFINING) & Of47ta741))3 
{! 
XMARK3 
TF TALL,FORMALNAMFE THEN 
ENNOFTTALLS 
IF XReF OR DEFINING Citi] THEN 
REGIN NEFINE LSSs <#,GTRe-#eNpOs ##oLEQachs 
DEFINE REF INFOxINFORS 
CLOSE CARDe RELEASE 93 
CLOSECTAPE,RELEASE 93 
LOCK(NFWTAPE)3 
WRITECLINELPAGE))? 


13366004 
14255500 
14268500 
15092000 
15092010 
15092020 
16495210 
16495300 
Z0FB17002000 
17002005 
17002490 
17002500 
17002510 
17002520 


FoR XREFPT#taXxREFPT STEP 1 UNTIL 29 DO XREFAY2E XREFPTI$ 21000000003 17003000 


WRITECDSK229 30°XREFAYoE«) 33 
TOTALNO*REALCXLUN >500)%1000430004XLUN} 
XREFPTeXLUN}O}3 
BEGIN 
ROOLEAN PROCFDURE INPUTS CA)3 
ARRAY A([0]3 
BEGIN 
LABEL LeFors 
REANCDSK1,10,Ar*¥IJICEOFT3 
GO TO L3 
FOF! rNPUTti&e TRUE 
REWIND(DSK1)3 
L3 
ENDS 
PROCENURE OUTPUTI¢BeA)$ 
VALUE B3 
BOOLEAN B 
ARRay aArOys 
BEGIN 
IF B THEN 
REWIND COSK?) 
ELSE 
BEGIN 


¥DFB17004000 

17004500 
2DFB17004600 
Z0FB17005000 
ZD0FB17006000 
OF 817007000 
DF B17008000 
Z0FB17009000 
£pFB17010000 
£0FB17011000 
2DFB17042000 
%0FB17043000 
SDFB17014000 
ZOFB17015000 
¥DFB17016000 
%DFB17017000 
DOF B179018000 
%0FB17019000 
%0FB17020000 
%0FB17021000 
Z0FB17022000 
¥0FB17023000 
2DFB17024000 


ALOJISXREFINFOLCALCOISLINKROALCOIoLINKC JS @XLUNG SXLUN+1 SEDFB17025000 


WRITECDSKY +10°ACHI)3 
END3 
END$ 
BOOLEAN STREAM PROCEDURE COMPS1 (AB); 


SDFB17026000 
¥DFB17027000 
20F 817026000 
Z0FRB17029000 


VBuvuvuvpvvVUOVV VU UV VV VU VV VU OV VU VT UV VE VU VU VU VU VT VU VU VM VPC VU Ve VV Ve eC UT VT VT TT PC VT TV VV 


108 
108 
108 
408 
108 
108 
(08 
108 
108 
108 
108 
108 
108 
108 
108 
108 
198 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
408 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
408 
198 
108 
108 
108 
1086 
108 
108 
108 
108 


END) 


BrayN 


REGIN 
Sptsa} 
nrteaBs 
1F 63 Se LSS Dec THEN TALLYt=13 
COMPS1 SaTALLY? 
PND3 
STREAM PROCEDURE HVS1CA)D3 
BEGIN 
Mitsaas 
NnSt#8B LrT "9 
Sitmaj 
nSis 7 wps) 
END? 
BOOLEAN PROCEDURE COMP4(A,B)3 
ARRAY A»BrO}i 
COMPL S$ sCOMPS1 CAB) 
PROCEDURE HV1(A)3 
ARRAY alo}3 
HVSYCA)3 
XLUNI 803 
REWINDCDOSK1)} 
SORTCOUTPUTI s INPUT! eOsWV1,COMP1 e102 TOTALNO 3 


STREAM PROCEDURF PUP(S,D)3 
REGIN 
SyrisS} 
NresD3 

DSts7 WOS3 8cCNStae LIT * #93 


$VOIDT 17054551 


END3 
STREAM PROCEDURE PUP1(590)3 
BEGIN 
Sr!7S3 SrteS74323 Sre=S1+283 
DrteDs NSte2 LrT * "3 OSisd CHR DSseD LIT * ¥#M3 
DSteB CHRs OStebLrT "es O§3238 LIT * My 
ENn3 
STREAM PROCEDURE PUP2¢STAR»SsCeD)3 
VALUE STAReSect 
BEGIN 
OLesD3 
CONTHsDT +1093 
STARCDI#DIFL3 nSeL Ii The") 3 
ST#"LOc §3 
nSt# 8 HFC: 
OStalLyT " 3 STAR¢Ditadtw1s nStabrr we") 3 
FND3 
STREAM PROCEDURE RLANKETCA)3 
BEGIN 
DrteA3 
DStse @ LIT * 3 
StsmA! 
DS:= 44 WOS3 
END? 
ARRAY PAYLOS17)3 
BOOLEAN PROCEDURE INPUT2CA)3 
ARRAY ArOy3 


%DFB17030000 
%0FB17031000 
%D0FB17032000 
30FB17033000 
%0FB17034000 
*0FB17035000 
®DFB17036000 
%OFB17037000 
20FB17038000 
30FB17039000 
20FB17040000 
30FB17041000 
¥NF 817042000 
%0FB17042100 
ZOFB17042200 
20FB17042300 
ZDFB17042400 
#DFB170462500 
3DFB17042600 
20FB17043000 
EDFB17044000 
%0FB17045000 
Z0FB17046000 
Z0FB17047000 
20FB17048000 
%DFB17049000 
%0FB17050000 
30FB17051000 

17052000 

17053000 
#0F 817055000 

17055100 

17055200 

17055300 

17055400 

17055500 

17055550 

17056000 

17056500 
2DFB17057000 
20FB17058000 

17059000 

17059100 
%DFB17060000 
%OFB17061000 

17061100 
%0FB17062000 
¥0FB17063000 
%D0FB17064000 
%DFB17065000 
%0FB17066000 
SO0FB17067000 
30FB17068000 
2DFB17069000 


Z0FB17069500 


20FB17070000 
%DFB17071000 


VBUVVGVVGVVVVVVVUVVVVVVVVVUVVVVUV VD VV VVU VU VU VV UV BC VV UU 


108 
108 
108 
408 
198 
408 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
106 
108 
108 
108 
108 
198 
198 
108 
108 
108 
198 
108 
108 
108 
106 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
198 
408 
108 
108 
198 
106 
108 
108 
408 
406 


| 


DUNS 


BEGIN ZDFB17072000 
LABEL LeEOFS %D0FB17073000 
DEFINE IT=XLUN#? 2DFB17073100 

IF XREFpPTs=XpEFPT+1230 THEN EDOFB17074000 
BEGIN %0FB17075000 
READCDSK20 30*eXREFAY2CweJLEOF I} %DFB17076000 
XREFPT 3203 SOF B17077000 
ENDS ZO0FB17076000 

IF € | s#®XREFAYAPXREFPTI), t27] GTR 99999999 THEN GO TO FOF!17079000 
ALO]3= J&XREFINFOFI el 924). 13:e)]£ 9:36:12])3 Z0FB17080000 
GO TO L}3 ZD0FB17081000 
FOFS INPUT2¢%eTRUF? Z0FB17082000 
BLANKETCPAY)3 ZDFB17083000 
XREFAYIC9] se"13 XREFPTeO$3 ZDFB17084000 
Lt ZDFB17085000 
ENn} ZDFB17086000 
PROCEDURE OUTPIT2C(BrA)3 ZDFB17087000 
VALUE B3 %DFB17088000 
BOOLEAN B3 ¥0FB17089000 
ARRAY ACOVS | ZDFB17090000 
REGIN DFFINE PRINTFRELINE #3 X¥DFB17091000 
LABEL LOOP,»FOF 23 17091100 

OWN BOOLEAN B23 17091110 
LABEL DUN3 : 17091200 
IF NOT B2 THEN 17091210 
1F B THEN ZDFR17092000 
WRITECPRINTER® 15ePAYru)) ZDFB17093000 

ELSE ZDF 817094000 

TF LASTADDRFSS # LASTADDRESS*ar0) AND LASTADDRFSS,L9 81214 0 THEN 17094100 
BEGIN £0F817095000 
LOOPS £0FB17095050 
1F 6ACO1,e 9412) GTR XREFAY1£9) THEN ¥OFB17095100 
BEGIN %DFB17095200 
17096000 

WRITFCPRINTER, 159 PAYEE 4193 17097000 
17098000 

BLANKETCPAY 93 XREFPT&=03 17099000 
RFADCDSK1,10sXREFAYI*IICEOF2)3 17099100 
PUPCKREFAY1,PAY)3 17099200 
WRITE CPRINTERIDBL I) 3 17099900 
WRITECPRINTER® 10ePAYre) D3 2DFB17100000 
PUPICXREFAY! »PAY) 3 17100100 
WRITE CPRINTER(DRL IJ s10ePAYE*))3 17190200 
BLANKETCPAY)3 ZOFB17101000 

G0 LOOP} ¥DFB17101100 
ENDS %O0FB17102000 
17102100 

PUP2¢LASTADDRESS < O,LASTADDRESS.£212273017103000 

XREFPT»PAY¢1))3 17103010 

IF XREFPTL=XREFPT41 = 14 THEN 17103100 
BEGIN £0FB17103200 
XREFPT+2=03 Z0FB17103300 

WRITE ¢ PRINTERS 15ePAY(¥])3 2DFB17103400 
BLANKETCPAY)3 SOFBLiT103500 

ENDS S0F817103600 

ENDS BDFB17110000 


IF FALSE THEN FOF28 B2teTRUES 17110500 


VUVVVTBVSOVGVUVUVVGVVVVGTVVVVVVUVU VU VVV VU VU VU UV VU VU VV VV VV UC UV ee 


198 
408 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
{08 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
106 
108 
108 
408 
108 
108 
198 
{08 
108 
108 
408 
108 
108 
108 
(08 
108 
108 
1086 
108 
108 
108 


Ce ee ee ee ee ee ee ee oe 


eEND} ®0FB17111000 
PROCEDURE HV2CA)3 ZO0FR17112000 

ARRAY A033 ZD0FB17113000 
Ap0)?2549756584 38873 %0FB17114000 

BOOLEAN PROCEDURE COMP2CA,B)3 ZOFB17115000 

ARRAY AsBl0y3 SDFB17116000 

COMP2e ABSCALOJ) LE@® aBScpro))s 17117000 
XReEFPT!2293 REWIND(DSK2)3  -¥0FB17118000 
SORTCOUTPUT2. INPUT 2» 02eHV2, COMP 291, TOTALNO oy 20FB17119000 

END} $0F817120000 
ENDS ¥0F 817121000 

END MATIN BLOCKS 17121500 

END: ¥OFB17122000 

$$ BY JTC = MSC DETROYT 99990000 


BO oe eae tei IR eI I RO RIOR RO Or eK II 990100 


$#PaTcH NUMBER 110 FOR FSPOL CONTAINS 503 CARDS 00000000 
$ VOInT 01001771 01001750 
TUG IIC IG IO OIO OO OG RE ork eek 6 601007005 
x X Ree STUFF 01007010 
TORR II RR RO IR IORI ERR GIRO IOR Aig ick eee 01007015 
x 04007020 
ARRAY 01007025 
XREFAY2(0129), g ARRAY OF ONE WORD REFERENCE RECORDS, 04007030 
g THE LAYOUT OF EACH WoRD IS 04007035 
x 04007040 
¥ of185)) TYPE OF REFERENCE 01007045 
¥ = 0 FOR FORWARD DECL 01007050 
% = 1 FOR LABEL OCCURENCE 0100705, 
x a 2 FOR NORMAL DECL 01007055 
¥ = 4 FOR NORMAL REFERENCE 01007060 
x = 5 FOR ASSIGNMENT 01007065 
x 01007070 
% NOTE: THE LOWER ORDER BIT 01007075 
¥ OF THIS FIELD IS ON 01007080 
+ IF YOU WANT STARS 01007085 
x AROUND THIS REFERENCE 01007090 
x IN THE XREF 01007095 
% 01007100 
x 0€6815] IDENTIFIER ID. NO, 01007105 
% THIS ¥S A UNIQUE NUMBER THAT 01007110 
a 1S ASSIGNED WHEN THE 01007115 
x IDENTIFIER IS ENCOUNTERE 01007120 
¥ FOR THe FIRST TIME, 01007125 
x 01007130 
¥ ef21227) SEQUENCE NUMBER 01007135 
x 01007140 
XREFAY1I0O:9)» 2 RECORD BUFFER AREA FOR WRITING OUT THE 01007145 
% NAME INFORMATION RECORDSe ONE RECORD 01007150 
¥ 1S WRITTEN FOR EACH IDENTIFIER IN THE SYMBOL 91007155 
% TABLE WHEN THE IDENTIFIER 1S PURGED FROM THE 01007160 
& SYMBOL TARLEs TeEue WHEN LEAVING THE BLOCK 01007168 
% YN WHICH THE IDENTIFIER IS DECLARED, 01007170 
x 


01007175 


VuvVTYHT UV UVUVUVUVe VU 


uv 


vvuUVvvVVVUVUVU VV VO VU VU UU UU UC UT VU BTU Ve VU VU BE VT Ue UU Ur 


108 
108 
108 
198 
1068 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 


110 


110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
$10 
110 
110 
110 


110. 


110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
ilo 
110 
110 
110 
110 
110 


XINFO70134,02127)3 


INTEGFR 
XREFPTs 


XLUNS 


DEFINE 
SEGNOF = (214% 429] #» 
IONMOF = (33:915)#>s 


TYPEREF = CitS]#e 
REFIDNOF al6r1S]#> 
SFONOF © (21127)8, 


> 4 
¥ 
z 
y 4 
% 
x 
z 
% 
% 
> | 
% 
% 
¥* 
% 
% 
% 
¥ 
¥ 
¥ 
x 
x 
z 
ys 
x 
% 
x 
z 
% 
z 
x 
+ 4 
y 4 
b 4 
z 
x 
¥ 
x 
x 
% 
x 
x 
¥ 
x 
r 
b 4 
x 
4 
> 4 
x 
% 
% 


THE LAYOUT OF EACH RECORD 17S! 


WORDS O=7 THF IDENTIFIER WITH BLANK 
FILL ON THE RIGHT 


WORD 8 
9021812) SEGMENT NUMBER IN WHICH 


04007180 
01007185 
01007190 
01007195 
01007200 
01007205 
01007210 


THIS IDENTIFIER WAS DECLAREDO1007215 


0f33945] IDENTIFIER IDe NO, 

WORD 9 FLBAT WORD 
THIS ARRAY CONTAINS ONF ENTRY FOR FACH ENTRY 
1N THE INFO TABLE, IF YOU HAVE THE INDEX 
OF THE ELBAT WORD FOR AN IDENTIFIER IN 
THe INeO TABLE YOU CaN FIND THE XINFO WORD 
FOR THE IDENTIFIER BY REFERRING TO3 

XTNFOLCINDEXeLINKRe INDEX.LINKC DIV 2) 
FACH ENTRY CONTAINS? 


0€21412) SEGMENT NUMBER IN WHICH 


01007220 
01007225 
01007230 
01007235 
01007240 
01007245 
01007250 
041007255 
01007260 
01007265 
01007270 
01007275 
01007260 
01007285 
04007290 
01007295 


THIS IDENTIFIER WAS DECL94007300 


0f33215]) IDENTIFIER ID, NO. 
IF THIS ID, NO, IS ZERO 
THEN XREF WAS NOT ON 
AT THE TIME THE IDENT 
WAS DECLARED AND ALL 
FUTURE REFERENCES WILL 
BE DISCARDED, 


CONTAINS INDEX OF NEXT AVAYLABLE SLOT IN 
XREFAY2, WHEN THIS BECOMES GREATER 

THAN 30 THE CURRENT ARRAY 13S DUMPED TO DISK 
AND XREFPT IS RESET TO ZERO, 


THIS VARIABLE CONTROLS THE ASSIGNING OF 


1m. NO, TO IMENTIFIERS, IT IS INCREMENTED 
EACH TIME A NEW IDENTIFIER 1S ENCOUNTERED, 


FIELDS IN XINFQ ENTRIES AND WORD 8 OF 
IDENTIFIER RECORDS, 


FIELDS OF REFERENCE WORDS 


oe x : 
XREFITCINNEXsSFONO,REFTYPE) = & NEFINE TO AND INFO TO REF TABLE 
CROSSREF T¢rNDEXsSEQNO,REFTYPE)3 END#, 


BEGIN YF XREF THEN 


XMARKCREFTYPE) «= 


BEGIN IF XREF THEN 


DEFINE TO CHANGE LAST ENTRY IN REF TABLE TO A 


XREFAYOQXREFPT@i)eTYPEREF t= REFTYPE END#» 


01007305 
01007310 
01007315 
01007320 
01007325 
01007330 
01007335 
01007340 
01007345 
01007350 
01007355 
01007360 
01007365 
01007370 
01007375 
01007380 
01007385 
01007390 
04007395 
01007400 
01007405 
01007410 
01007415 
01007420 
01007425 
01007430 
01007435 
04007440 
01007445 
01007480 
01007455 
01007460 


VuVVUVVvVVVVVVeV VV VW VV eV UCU UT VV VT VU VT UV Ve VU VV OU VT VU VT VU VT VP Vv VV VM Ve VV Ve VU Ve BUC Ve UU 


+4 01007465 

XREFDUMPCYNDEX) = % DEFINE To DUMP SYmBo,, TABLE INFO FOR IDENTIFIERO1007470 
BEGIN IF DEFINING, £4347 THEN CROSSREFDUMPCINDEX)S END#e 01007475 

% 01007480 

XREFINFOLYINDEX) «= % DEFINE TO TRANSLATE INFO ROW AND COLUMN TO 01007464 
XENFOLECTINDEXD SLINKReC INDEX), LINKC DIV 22%, % XINFO ROW AND COL 010074892 

% 01007483 

FORWARDREF = Of, ¥ OFFINES FOR DIFFERENT REFERENCE TYPES 01007485 
LBLREF = 18, ¥ 01007486 
DECLREF = 28» +4 01007690 
NORMALREF «= Q#, x 01007495 
ASSIGNREF = 523 ¥ 01007500 
$VOIDT 01723000 
FOIE EEOC SGI IO IG IOIO IO ORE IG IKK aoe keke Rake 02001605 
% 02001610 
% MIScELLANEOUS CROSS REFERENCE PROCEDURES 02001615 
3% 02001620 
$ vOInT 02001831 02001625 
RE RR ee EEE REE REE ER EEE EE EE ER O2001630 
x 02001635 
PROCEDURE CROSSREF ITC INDEXsSEQNOPREFTYPE)3 020043640 
VALUE INDEX eSEQNQsREFTYPES 02001645 
REA|, INDEXseSEQNOPREFTYPE} 02001650 
BEGIN : 02001655 
IF XREFINFOCINDEXI.IDNOF # O THEN ® SAVE 02001660 
BEGIN 02001665 
IF XREFPT > 29 THEN % NO SLOTS LEFT IN ARRAYe WRITE IT OUT, 02001670 
BEGIN 02001675 
WRITECDSK2e3Q0oXREFAY2C «1 )3 02001680 
XREFPY #* O32 02001685 

END3 ‘ 0200146490 
XREFAY2CXREFPT) :© SEQNO & REFTYPE TYPEREF 2 XREF TNFOLINNEX) 02001695 
REF IDNOFS 02001700 

XREFPT ts XREFPT + 13 % EVEN THOUGH THE ARRAY MAY BE FULL NOW WE 02001705 

® CANT WRITE [IT OUT BECAUSE SOME ROUTINES 02001710 

% WILL LOOK BACK AT THE ENTRY WE JUST PUT 02001715 

Z IN AND FIX IT Up, 02001720 

EnND3 02001728 
END OF CROSSREFIT3 02001730 
% 02001735 
PROCEDURE CROSSREFOUMPCYNDEX)S 02001740 
VALUE INNEX3S 02001745 
REAL tNDFEX3 02001750 
BEGIN 02001755 
STREAM PROCEDURE MOVEXREFEINFOCSep,N)3 02001760 
VALUE N3 02001765 
BEGIN 02001770 
St t= O03 OF t# DS DS te B LIT * "$s DS te 7 WDS' % BLANK RECORD 02001775 

Sy se Ss S} te SI + 3% DI te DS} DS t# N CHR$ & MOVE IDENTIFIER 02001780 

END OF MOVEXREFINFOS 02001785 

x 02001790 
IF XREFINFOLINDEX).IDNOF # 0 THEN & DUMP IT O2001795 
BEGIN . 02001800 
MOVEXREFINFOCTNFOrINDEX,LINKRe INDEX LINKC+L I eXREFAYIC I] e 02001805 
a TAKECINDEX4+12.612161)3 02001810 

XREFAY1(8] t= XREFINFOCTNDEX]S 02001815 
02001820 


XREFAY1£9) t= TAKECINDFEX)S & ELBAT WORD 


VUGBDTVVVGVTVUVTVVVGVVUVUVUOVVUVUVVVUVVVU VV UV VU VU VM VV VT VV VV VU VU 


WRITE CDSK 01 0eXREFAY I %))3 
XREFINFOCINDEX] te 3 
END} 
END OF CROSSREFDUMP3 
SVOIDT 92887921 
IF GT! #1 aNp NOT MacROID THEN % NOT RESERVED WORD 
XREFITCT LINK eCARDNUMBERSNORMALREF D3 & BUILD XREF FNTRY 
XMARKCLBLREF DS & THIS WILL SORT AHEAD OF DECLARATION 
: % WHEN WE GET AROUND TO THE XREF, 
XMARKCASSIGNREF)? x FILL STATEMENT 
XMARKCASSIGNREF)$ & FOR STATEMENT 
XREFNUMPCPOINTER)$ &% DUMP XREF INFO 
$ VoIOT 13301731 
IF XREF THEN % MAKE DECLARATION REFERENCE 


a TF CACCUMCO],CLASS # DEFINEDID OR NoT 
x BOOLEANCACCUMLO],FORMAL)) THEN % NOT DEFINE PARAMETER 
$ VOINT 13310604 

REGIN 


XREFINFOCNEXTINFO) 8a 
1F SPECTOG THEN 
XREF INE OCELBATI II) 
ELSE 
COXLUN t= XLUN + 4) & SGNO SEGNOF)3 
IF SPECTOG THEN & JUST GO BACK AND FIX UP XREF ENTRY 
XMARKCDECLREF ) 
ELSE 
XREFTTONEXTINFO*®CARDNUMBERe TF PTOG AND NOT STREAMTOG 
THEN NORMALREF ELSE DFC\,REF)3 


FND 
z ELSE %® DEFINE PARAMETERS = DONT CROSS REF, 
% XREFINFOCNEXTINFO] $= 0 
ELSE 


1F DEFINING. 5181) THEN ® WE ARE DOING XREFING 
XREFINFOLNEXTINFO) t= O83 


1F XREF AND NOT SPeECTOG THEN % ERASE PREVIOUS XREF ENTRY, 


XMARKCDECLREF IS & PROCEDURE DECLARED FORWARD, MARK LAST 
g XREF ENTRY AS A DECLARATION, 
XREFDUMP( J)! % DUMP XREF INFO 


XREFTTCPROTNEO,OsFORWARDREF)$ % WE NEED THIS SO WE CAN FIND 


® THE FORWARD NECLe DURING XREF 
REAL REMEMBERSEQNOS & REMEMBERS SEQUENCE NUMBER OF VARIABLE 
% ON LEFT HAND SIDE OF ASSIGNMENT SO WE 
% CAN XREF IT CORRECTLY, 
REMEMBERSFQNO t= CARDNUMBERS 
XMARKCASSIGNREF)3 & ASSIGNMENT TO SIMPLE VARTABLE, 


~$VO10T 


BEGIN 
BEGIN 
ERR¢201)% ® PARTIAL WORD NOT LEFT#@MOST 
GO To EXIT$ 
END3 
XREFITCTALLeREMEMBERSEQNOSASSIGNREF )3 
GO TO Li? 
ENDS 


JAZZ3 XREF + TCTALL®REMEMRBERSEQNOSASSIGNREF)S STEPIT# AEXP3 


02001824 
02001822 
02001825 
02001830 
92882099 
02882100 
02882200 
07598100 
07598200 
07660600 
086178100 
13283500 
13301099 
13310050 
13310075 
13310080 
13310099 
13310100 
13310200 
13310300 
13310350 
13310400 
13310450 
13310500 
13310525 
13310550 
13310575 
13310580 
13310600 
13310700 
13310750 
13310800 
13310900 
13310950 
13341200 
14312100 
£4312101 
14445100 
14469100 
14469104 
15075550 
150755514 
15075552 
15085100 
15091100 
15092010 
15113100 
15115000 
15115100 
15115200 
15115300 
15116000 
15116100 
15116200 
15233012 


XREFTTCTALL® REMEMBERSEQNOsASSIGNREF)$ & ASSIGNMENT 1015301100 


% SUBSCRIPTED VARIABLE, 


15301200 


VUVVTVVIVUVRVU VU VM VUVUVUVVMVVVVUVUVU VV VV VV VV VV VV VV VV VU VP PC eC VV UU 


1F STEP? = ASSIGNOP THEN 
IF Pt? = FS THEN & PARTYTAL WORD YS LEFT#=MOST 
BEGIN 


15342000 
15342100 
15342200 


XREFITCTALLeREMEMBERSEQNOSASSIGNREF)3 & PARTIAL15342300 


% WORD ASS?1GNMENT TO SUBSCR, VAR, 
GO TO LAST} 
END 
XMARK(LBLREF)$ ® MARK LABEL OCCURENCE FOR XREF 
XMARKCASSIGNREF )3 
IF ¢XREF OR DEFININGs£421])2 AND XLUN > 0 THEN 
DEFINE XREFINFOCINNEX) = INFOFCCINDEX), CE DIV 2),£3387)» 
CCINDEX),CF DIV 2) .LINKCI]#. 
CF = £33815 98. 
FF = £18345)#, 
NEWIDCTNDEX] = CIF ROOLEANCINDEX) THEN XREFINFOCINDEX)eFF 
ELSE XREFINFOLINDEXIJeCF)B3 
ARRAY TIMINGS O0t2,08373 
PROCENURE SAVETIMES(C1D3 
VALUE 13 INTEGER 13 
BEGIN 
INTEGER J3 
FOR J t= 3 STEP y UNTIL 3 DO 
TIMINGSE eI] tea TrMECI)3 
FNn3 
PROCENURE UPDATETIMES(1)3 
VALUrF I3 INTEGER 13 
BEGIN 
INTEGER. U3 
FOR jy t= 4 STEP 4 UNTIL 3 DO 
TIMINGSF I oJ) ta TIMECJ) = TEMINGSS I eul3 
ENDS 
SAVETIMES(O)3 % SAVE TIMES FOR START OF TDENTIFIER SORT, 
TOTALNO t= XLUN# & REMEMBER NUMBER OF IDENTIFIERS, 
FOR [ t= 0 STEP 4 UNTIL 8191 DO 
PUT(Oet)3 
BEGIN 
REWINNEDSK1)3 
UPDATFTIMESCO)S & UPDATE TIMES FOR IDENTIFIER SORT, 
TIMINGS£ 0,0) t= XLUN3 % NUMBER OF TDENTIFTERS SORTED, 
END 
1F BOOLFANCAL8}) THEN 
XREFINFOTAL81}.FF t2 XLUN te XLUN «+ 1 
ELSE 
XREFINFOPFALBAI],CF t= XLUN te XLUN + 13 
AC8),1DNOF t= XLUNS 
1F 63 Sc < De THEN 
TALLY t2 1 
eLSF 
BEGIN 
Sy ts AB 
DOD] ts B3 
IF 63 SC = pec THEN 
TALLY a= 2} 
ENDS 
nS te B LIT 3"777777777"3 & TDeNO. AND SFEG.NO, FIELNS 
IF REALCCOMP1%=COMPS1(AeB)) = 2 THEN & IDS FQUAL 
COMP4( ts ALB8I],IDNOF < BEB, INNOFS 


15342400 
15342500 
15342600 
16159100 
16318500 
16495300 
17002005 
17002006 
17002007 
17002008 
17002009 
17002010 
17002012 
17002015 
17002020 
17002025 
17002030 
17002035 
17002040 
17002045 
17002050 
17002055 
17002060 
17002065 
17002070 
17002075 
170020860 
17002525 
17004500 
17004700 
17004710 
17022000 
17022100 
17022200 
17022300 
17022400 
17025000 
17025100 
17025200 
17025300 
17025400 
17033000 
17033100 
17033200 
17033300 
17033400 
17033500 
17033600 
17033700 
17033800 
17041100 
17042300 
17042350 


VVUVGVVIVVGI VV VUVVUVVUVUVVVVVVVV VU VV VV VU VV VVVV VV VV VV VV VU VV VU VT DV VU 


SORTCOUTPUTI + INPUT1+O#HV1+COMP1e10e1F TOTALNO < £000 THEN 
7000 ELSE 10000); 
$ VOINT 17069001 
ARRAY IDTYPFLOLCIDMAX43)x4=1)3 
STREAM PROCEDURE SrTUPHEADING(S »DeSEGreSFQNOsFANTOGsLBLT0G, 
FWOSEQNO,TYPFsOWNTOG»PARAMTOG, 


VALTOG)3 
VALUF SEG eSEQNO+FWDTOGSLBLTOGeFNDSEQNO,OWNTOGsPARAMTOG, 
VALTOG3 
BEGIN — 
$1] ts §} 
Ni ts D3 


63 ¢rF Sc =" " THEN JUMP OUT FLSE pS 12% CHR)! 
NS te 6 LIT * om wf 
OWNTOG COS t= 4 LIT “OWN *)3 
S} tz TyPers 
32 CIF SC = "," THEN JUMP OUT ELSE DS t CHR)3 
PARAMTOG (DS t# 6 LIT *™ wn HY 
DS ta g LIT "NAMES 
VALTOG (DY %= DI © 43 DS te 5 LIT VALUED} 
DS f= 4O LIT ™ PARAMETER"); 
n§ ts 18 LIT ™ == DFCLARED AT 3 
SI t= LOc SEANOS3 
DS t= 8 DEC 
FWOTOG (nS t2 17 LYT ™ == FORWARD aT *; 
St t= LOr FWOSFONOS 
NS ts 8 nFod3 
LBLTOG (DS ts 16 L1t * =" OCCURS aT "3 
St ts LOC FWNSEQNO3 
DS ts 8 Decy3 
END OF SETUPHEADING 


STREAM PROCEDURE AnNDASFONO¢CSEQNONsSTARS,D)3 
VALUPF SEQNOeNe STARS} 
BEGIN | 
Nr t= D3 
O1 $s DY + 83 
N (My t= DOI + 1095 
STARS¢D] t= Dy = 43 NS te LT wHm)S 
SI ta LOC SEQNO3 
OS ta 8 DEC) 
OS ts LIT * 3 
STARS (DI ts Df = 48 DS ta LIT "e")3 
ENDS 
STREAM PROCEDURE BLANKFT(D)3 
REGIN 
HI t= D3 
nS ta & LyT * "3 
SI ts D3 
nS 33 16 WDS3 
FNn OF BLANKETS 
PROCENURE PRINTXREFSTAT?STrCS}3 
BEGIN 
SWITCH FORMAT STaTS tz 
(4//e “CROSS REFERENCE STATISTICS» /» 


HmeanrP a2 g Sa en ane RBar mnwa mel, /), 


C™PHASE ONE = SORT", 165" IDENTIFIERS"), 


17045000 
17045100 
17047003 
17047100 
17047200 
17047300 
17047350 
17047400 
17047450 
17047500 
17047700 
17047800 
17047900 
17048000 
17048100 
17049300 
17049400 
17049410 
17049420 
17049430 
17049440 
17049500 
17050400 
17050500 
17050600 
17050700 
17050800 
17050900 
17051000 
17951100 
17051200 
17051300 
17051400 
17051500 
17051600 
17051700 
17051800 
17051900 
17052000 
17052100 
17052200 
17052300 
17052400 
17052500 
17052600 
17052700 
17052600 
17052900 
17053000 
17053100 
17053200 
17053300 
17053400 
17053500 
17053600 
17053700 
17053600 


C"PHASE TWO = SORT'%s17," REFERENCES" De 
C"PHASF THREE = PRINT CROSS REFERENCE ¢(ol7e" LINES) *)5 
CX5e74e%8%,271," ELAPSED TIME CMINSSEOCD")» 
CX5e14e%8%,211," PROCESSOR TIME"), 
CX50T4e"$™e719," 1/0 TIME",/)3 
INTEGER JodeK3 
WRITECLINE®STATSP 0393 
FOR 1 t® 0 STEP 4 UNTIL 2 00 
BEGIN 
WRITECLINEe®STATSFI+lL eT PMINGSE120])3 
FOR J t= 1 STEP 1 UNTIL 3 DO 
BEGIN 


17053900 
17054000 
17054100 
17054200 
17054300 
17054400 
17054500 
17054600 
17054700 
17054800 
17054900 
17055000 


K te CTIMINGSE1eJ] + 30) DIV 60% % ROUND TO NEAREST SECON17055010 


WRITECLINE s STATSFJ43)9K DIV 60,€Kt=K MOD 60) DIV 105 
K MOD 10)3 
END! 
ENNS$ 
FNn PRINTXREFSTATISTICS:; 
DEFINE REFCOUNT ® TIMINGS(120)#3 % NUMBER OF REFERENCES SORTED, 
BOOLEAN FIRSTTIMES &% TRUE ON FIRST CalLL OF OUTPUT PROCEDURE. 
REaL LASTANDRESSS 
NEFING 1 ® LaSTANDRESS#} 
Aro) te 1 & NEwrnrys, REF TONOF) REFTONOFS 
REFCOUNT t= REFCOUNT + 143 
XREFAY 66) ts XREFPT tm LASTADDRESS t& 03 
Fii.L TOTYpEf#) WITH 


"UNKNOWN, ", 2 0 
"STREAM LABELs ", 4 
"STREAM VARIABLE. ", % 2 
"DFEFINEs ", * 3 
"LIST. ", 4 
WFORMAT, ee ee 
"SWITCH FORMaT, “> £6 
"REAL SUBROUTINE, ar ee ed 
“SUBROUTINE, ", x 8 
"SWITCH LABEL. “ & 9 
"PROCEDURE, *, ¥ 10 
"INTRINSIC, ", 8 11 
"STREAM PROCFDOURE, ", £ 12 
"BOOLEAN STREAM PROCEDURE» ", % 43 
"REAL STREAM PROCEDURE. ®, & 14 
"INTEGER STREAM PROCEDURE. ", & 15 
“INTEGER STREAM PROCEDURE. ", % 16 
"BOOLEAN PROcENnURE. ", % 17 
"REaL PROCENURE, ", 2 18 
"INTEGER PROCEDURE. ", 2 19 
“INTEGER PROCEDURE, ", & 20 
"BOOLEAN, ", £ 21 
WREAL, ", % 22 
"INTEGER, ", % 23 
"INTEGER, ", ¥ 24 
"BOOLEAN ARRAY, ", & 25 
"REAL ARRAY, | ", & 26 
"INTEGER ARRAY, ", & 27 
"INTEGER. ARRAY. ", £ 28 
" ", © 29 
", % 30 


WNAME, 


17055020 
17055025 
17055030 
17055100 
17055200 
17069300 
17069400 
17069600 
17073100 
17080000 
17080100 
17084000 
17084010 
17084020 


17084030. 


17084040 
17084050 
17084060 
17084070 
17084060 
17064096 
17084100 
17064110 
17084120 
17084130 
17084140 
17084150 
17084160 
17084170 
17084180 
17084182 
17064184 


17084186 


17064188 
17084190 
17084200 
17084210 
17064220 
17084230 
17084240 
17084250 
17084260 
17084270 
17084280 


— i Pe 
oe pe ee 
ooo 


PO ee te ee ee 
bb ee ee ee ee OP he ee ee ee ee Re Oe 
ooo0 coococeoe0coo 7090 


"INTEGER NAME. ", % 31 
"LABEL. "; x 32 
LABFL EOF2s SKyP}X 
OWN BOOLEAN B2, FWOTOGe LBLTOGs WAITINGFOREWDREF 3 
DEFINE MATCHCA,B) = REALCBCOLEANCA) FQV BOOLEAN(CB)) « 
REALCNOT FALSE)#3 
Real I3 
DEFINE LINECOUNT # TIMINGS(2s0)#3 & NUMBER OF LINES PRINTED, 
OWN REAL FWDSEQNO} 
IF FIRSTTIME THEN % PRINT HEADINGS AND SAVE TIMINGS,» 
REGIN 
FIRSTTIME se FALSE) 
TIMEL t= TrMee1)3 
DATIME3 
UPDATETIMESC1)3 
SAVE TIMES(>)$ &% SAVE TIMES FOR START OF XREF PRINT, 
ENDS 
SVOTDT 17111004 
IF NOT Be THEN 
IF B THEN ® END OF SORT = LIST OUT REST OF SEQ, NO, 
IF XREFPT # 0 THEN & WE GOT SOMF TO LYST OUT 
REGIN 
WRITECLINECDBLJ2i15ePAYL*))3 
LINECOUNT t= LINFCOUNT + 13 
END 
ELSE ® NOTHING TO LIST OUT 
FLSE % NOT ¢ND OF SORT 
IF NOT MATCHCLASTADDRESSsAL0}) AND ALOJ,REFIDNOF # O AND 
ArO],REFIONOF 2 XREFAY1(8).10NOF THEN 
1F ALOV,TYPEREF = FORWARDREF THEN & 
WAITINGFORFWDOREF t= TRUE 
ELSE 
1F ArOJ,TYPEREF «= LBLREF THEN & 
BEGIN 
LBLTOG ts TRUES 
FWOSEANO t= ArOJ,SEQNOFS3 
END 
ELSE 
IF ACO),TYPFREF = DFECLREF THEN 
IF WAITINGFORFWDREF THEN & THyS MUST RE IT 
BEGIN 
WATTINGFORFWOREF t= FALSE} 
FWDT0G te TRUE 
FWOSEQNO t= ALO), SEQNOF3 
END 
ELSF 2 ITS A NORMAL DECLARATION = NOT FORWARD 
BEGIN 
IF ACOVeREFIDNOF > XREFAY10 8)eIONOF THEN 
no 
RFADCOSK1s10,XREFAYIC*)) CEOF2) 
UNTYL 
ArO],REFIDNOF < XREFAYI(8],1DNOF3 
TF ALO}, REFIDNOF < XREFAYIC8J.IDNOF THEN 
GO TO SKIPS 
1F XReePyT > O THEN & THERE 3S STUFF TO PRINT 
BEGIN 
IF SINGLTOG THEN 
WRITECLINE 15+ PaVe*]) 


17084290 
17084300 
17091100 
17091110 
17091115 
17091116 
17091120 
170911406 
17091150 
17091155 
17091160 
17091162 
17091165 
17091170 
17091175 
17091180 
17091200 
1709420, 
17091210 
17091300 
17091400 
17091500 
17091510 
17091520 
17091530 
17091600 
17091700 
17091800 
17091900 
17092000 
17092100 
17092200 
17092300 
17092400 
17092500 
17092600 
17092700 
17092800 
17092900 
17093000 
17093100 
17093200 
17093300 
170934006 
17093500 
17093600 
17093700 
17093650 
17093900 
17093950 
17094000 
17094050 
17094100 
17094150 
17094200 
17094240 
17094250 
17094300 
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i el ee le 
oocooc$]o 


ELSE 
WRITECLINECDBLIJ,15»PAY(#])3 
LINECOUNT t= LENECOUNT « 43 
END 
ELSE 
IF NOT SINGLTOG THEN 
WRITECLINE)3 
XREFPT t2 O$3 
RLANKETCPAY(C#))3 
SETUPHEADINGCXREFAYIC#] »PAYL*]eXREFAYI(8]), 
SEGNOF sAL0].SEQNOF pFWDTOGOLBLTOG,s 
FWOSEQNOsIOTYPECCIF CI 3% 
XREFAY1(9],CLASS) > JDMAX THEN 
O ELSE 1) « 4), 
REALCI 2 BOOID AND XREFAY1(9],£992]) = 1)» 
REALCC! 2 BOOID OR | = LOCLID) AND BOOLEAN 
CXREFAYL£9],09833))0 XREFAY1(9],01021))3 
FWDTOG te LALTOG t= FaLSe; 
WRITECLINEG 0 1 5ePAYL¥J)3 
LINECOUNT Je LINE COUNT + 43 
RLANKFETCPAYE*1)3 
END 
ELSE % JT MUST BE A NORMAL REFERENCE 
1F ALOV,SEQNOF # LASTADDRESS,.SEQNOF THEN 
BEGIN 
ADNDASEQNOCALO] ,SEQNOF*XREFPTsAL0O), 6599)» 
PAYr#])3 
IF cCXREFPT t® XREFPT + 4) & 14 THEN SFULL 
BEGIN 
WRITECLINE S15 ePAY(*])3 
LINECOUNT ta LINECOUNT + 13 
XRFFPT 32 O35 
BLANKETCPAY[E*])3 
END 
FND 
FLSE % REFERENCE TO SAME SEQ, NO, SKIP IT 
ELSE % TH1S 35 A REFERENCE TO THE SAMF SEQ, NOw = SKIP 
FLSE ® HIT ENn OF TDENTIFIER FILe = JUST SKIP OVER REFERENCES 
EOF2: BA t= TRUES & SO SORT CAN GO TO NORMAL FOU 
tr NOT B THEN SKIPS LASTADDRESS tw alo]? 
ENn OF OUTPUT2; 
ACO) tw 3"7777777777777773 & BIGGEST FLOATING PT, NO, 
COMP2 t# IF ALO),REFIDNOF < BLOJ,REFIDNOF THEN & DIF JDS 
TRUE 
FILSE 
IF ALOJREFIDNOF = BL0],.REFIDNOF THEN 
IF ArO),c1#42 LSS Br0),71!4] THEN 
TRUE 
ELSE 
IF ArO),(1°4) = Bf0),7r1!4) THEN 
IF ACLOJ.SEQNOF «< BLO).,SEQNOF THEN 
TRUE 
ELSE 
1F ACO].SEQNOF * BLO] eSEQNOF THEN 
BOOLEANCAL0},(5311) 
FLSE 
FALSE 


17094350 
17094400 
17094410 
17094420 
17094450 
17094500 
17094550 
17094600 
17094650 
17094700 
17094800 
17094900 
17095000 
17095100 
17095300 
17095310 
17095320 
17095400 
17095500 
17095510 
17095550 
17095600 
17095700 
17095750 
17095800 
17095900 
17996000 
17096100 
17096200 
17096300 
17996350 
17096400 
17096450 
17096500 
17096550 
17096575 
17096600 
17096700 
17096800 
17096850 
17096900 
17114000 
17117000 
17117100 
17117200 
17117300 
17117400 
17117500 
17117600 
17117700 
17117709 
17117704 
17117706 
17117708 
17117710 
171177192 
17117714 
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FLSE 
FALSE 
FLSE 
FALSES 
SAVETIMESC1)5 % SAVE TIMES FOR START OF REFERENCES SORT 
FURSTTIME $e TRUES & LET OUTPUT PROCFDURE KNOW ABOUT FIRST CAL 
SORTCOUTPUT2.INPUT220sHV2,COMP20156000)3 
UPnaTETIMESC2)5 % UPnATF TrMES FOR PRyNTING CROSS REFERENCE 
PRINTXREFSTATISTICS3 
DATE 2/1/76 
BY JTC = MSA CENTRAL’ 


THYS PATCH IS NEARLY A COMPLETE REWRITE OF THE ALGOL 
CROSS REFERENCE ROUTINES IN AN ATTEMPT TO REDUCE 

THE AMOUNT OF PAPER PRODUCED AND ALSO To PROVICE MORE 
INFORMATION ABOUT THF IDENTIFIERS. IN PARTICULARs 
THE FOLLOWING CHANGES HAVE BEEN MADE3 


122 ONE LINE 7S LISTED IN THE CROSS REFERENCE FOR EACH 
TOENTIFIER WHICH INCLUDES THE FOLLOWING INFORMATION? 

A, THE NAMF OF THE IDENTIFIER, 

B, THE CLASS Of THE IMENTIFTER» E.Ges REAL, 
INTEGER» BOOLFANs PROCEDURE» ETC, 

C, IF THE 1DENTIFIER IS A FORMAL PARAMETER IT 1S 
MARKED AS A "NAME PARAMETER® OR #VALUE PARAMETER", 

D, THE SEGMENT AND SEQUENCE NUMBER AT WHICH THE 

‘IDENTIFIER 1S DECLARED, 

E, IF THE IDENTIFIER IS A PROCEDURE |DENTIFIER? THEN 
IF THE PROCEDURE 1S DECLARED FORWARD THE SEQUENCE 
NUMBER OF THE FORWARD DECLARATION 7S LISTED, 

Fl IF THE IDENTIFIER IS A LABEL IDENTIFIER» THE SEQUENCE 
NUMBER AT WHICH THE LABEL OCCURS IS LISTED. 


2), ASSIGNMENTS TO IDENTIFIFRS ARE NOW STARRED In THE 

CROSS REFERENCE IN THE FOLLOWING ADDITIONAL CASES? 

A, WHEN A SUBSCRIPTED VARIABLE IS USED IN ASSIGNMENT, 

B, WHEN AN ARRAY ROW 1S USED IN A FILL STATEMENT, 

C. WHEN AN ARRAY ROW TS USED IN A SEARCH STATEMENT, 

C. WHEN A SIMPLe VARIABLE 1S USED IN A FOR STATEMENT, 

D. WHEN A LOCAL VARTABLE OR STREAM PARAMETER 1S CHANGED 
BY BEING ASSIGNED THE VALUE OF S1Y,DyeCI OR TALLY, 


» 


3). NEF INE PARAMETERS ARF NO LONGER CROSS REFERENCED, 


4), yDENTIFIERS REFERREN TO tN THE RIGHT HAND SIDE OF A 
DEFINE DECLARAT;ON ARE NO LONGER CROSS 
REFERENCED AGAIWST THE DEFINE DECLARATIONs 

5) 1F NO IDENTIFIERS WERE CROSS REFERENCED® THE IDENTIFIER 
SORT WOULD BLOW UP WITH AN 170 ERROR 86, NOWs XREF 
CHECKS TO MAKE SURE THERE 1S SOMETHING TO SORT BEFORE 
BEGINNING, 


6). 1T SHOULD NOW BE POSSIBLE TO SET AND RESET XREF 
INDOYSCRIMINANTLY DURING A COMPILE WITWOUT CAUSING Twe XREF 
TO GET CONFUSED, PREVIOUSLY, REFERENCES WOULD GET 
ASSACIATED WITH THE WRONG IDENTIFIERS, THE RULE NOW IS THAT 


17117720 
17117730 
17117800 
17117900 
17117910 
17117920 
17119000 
17119100 
17119200 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
99990700 
99990800 
99990900 
99991000 
99991100 
99991200 
99994300 
99991400 
99994500 
999914600 
99991700 
99991800 
99991900 
99992000 
999921400 
99992200 
99992300 
99992400 
99992500 
99992600 
99992700 
99992800 
99992900 
99993000 
99993100 
99993200 
99993300 
99993400 
99993500 
99993600 
99993700 
99993800 
99993900 
99994000 
99994100 
99994200 
99994300 
99994400 
99994500 
99994600 
99994700 
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XREF MUST BE ON AT THE POINT OF DECLARATION FoR AN 
IDENTIFIFR TO BE CROSS RFFERENCED aT able 


$1 7), PREVIOUSLY» WHEN THE SAME IMNENTIFIER OcCURREN IN 


$3 
$3 
$1 
$3 


DIFFERENT BLOCKS» THF IDFENTIFTERS WOULD BE LISTED 
IN NO PARTICULAR ORDER, NOWs THE INENTIFIER THAT 
APPraRS FIRST WrLL BE LyYSTrFp FIRST JN THE XREF. 


S#PATCH NUMAFR 111 FOR FSPOL CONTAINS 3 CARDS: 


IF MERGFETOG THEN ® TNOTCATE NAME OF SOURCE FILE, 
WRITECLINEs <X40e "SOURCE FILER “eA e Abe "™/*eAleA6e//>a 
CNIitB TAPE MFID) COLGJ ONTO CNZESTAPE. FID). COLG6] N23 


$! DATE 2/6/76 f 
$! BY JTC = MSA CENTRAL. 


$t 


$i THrS PATcH PRINTS Tur NAME OF Tue SOURCE FILF BELOW 
$1 THE NAME OF THE OBJECT FILE ON THE PRINTED LISTING IF TAPE 
$1 1S SET AT THE TIME THE HEADING IS PRINTED, 


S#PATCH NUMBER 112 FOR ESPOL CONTAINS 116 CARDS. 


094 
618 


PARSEt MISSING RIGHT BRACKET 
BLOCK! AUXMEM APPEARS IMMEDIATELY BEFORE IDENTIFIER (NO TYPE) 
SRITF =(2116]#+ % STARTING BIT FOR FIELD ID. 
NBITF =(27:6)#» % NUMBER OF BITS FOR FIELD ID. 


FIELDID =125#, COMMENT 1753 
DEF INEV =19#, COMMENT 233 
AUYMEMV =20%, COMMENT 243 
FYELDV n21#3 COMMENT 253 


DEFINE LASTSEQUENCE = 447#, 


IF STEP! = FIELDID THEN % GET INFO FROM INFO 
BEGIN 
FIRST t= ELBATC1],SBITF3 
SECOND !® ELBATCII.NBITFs3 
GO TO EXIT) 
END 
FLSE 
IF ELCLASS # LFTBRKET THEN 
IF STePy = FIELDID THEN 
BEGIN 
FIRST a5 ELBATLI],SBITF3 
SECOND $= ELBATEIY.NBITFE 
IF STEpI «= RTBRKET THEN 
GO To EXITs 
END 
ELSE 
IF ELCLASS = LITNO THEN 
IF ELCLASS © FIELDID THEN 
REGIN 


99994800 
99994900 
99995000 
99995100 
99995200 
99995300 
99995400 
99995500 


00000000 


01835600 
01835700 
01835800 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 


00000000 


00069975 
00418000 
01154200 
91154300 
01278700 
01298000 
01298500 
01296600 
01569000 
05273100 
05273200 
05273300 
05273400 
03273500 
05273600 
05273700 
05273800 
05273900 
05274000 
05274100 
05274200 
05274300 
05274400 
05274500 
05274600 
05275000 
06315100 


06315200 


VCTveveVBDVTWVTUVwVVVUVUVVUVUVV UV VV VV Ve 


vuVvVVVUM UV 


0 


vwuvuUVUVVVVUV YU 


=u 


See ke fee ee em ed 
ee oe ee ee es 
oO 


= 
i" 
~~ 


Ce ee ee ee 
aoe ell el ell one oe ee od 
tl a ee eS 


112 


112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 


FIRST 12 ELRBATCIIJ,SRITFS 
SECOND t# 48 = (THIRD t# ELBATCIJeNBITF)3 
GO TO NEXTCHK 
FND 
ELSE 
IF STEP] = FIELDID THEN 
REGIN 
FIRST 8 © FLBATCIDSBITF3 
SECOND t= 48 = (THIRD t= ELBATCIJeNBITF)3 
IF STEPT # RTRRKET THEN 
BEGIN 
ERRC94)3 
GO TO FxXyqT3 
ENDS 
GO TO NEXTCHK? 
FND 
ELSE 
1F ELCLASS e& LITNO THEN 
0¢71310157730000002, *35cS00", 
0¢T0500000250000000, "SFIFELD™s 
IF ELCLASS>IDMAX AND ELCLASS<MULOP 
GOTSCHK »sFIELDDECs AUXMFMERRs 
STREAMERRe DEF INEDE Cs AUXMEMERRe FIELDDECS 
AUXMEMERRIFLAG(C618)3Jiey4139G0 TO REALDEC 
FIELDnEc! 
BEGYN 
REAL SAVEINFOs SBs NBS 


BOOLEAN FOUNDLBS & TRUE TF LEFT@BRACKET WaS USED IN FIELD SPEC, 


LABEL EXITs SAVEITS 
STOPENTRY ta STOPGSP t= TRUE: 
I's ft = 43 
DO 
BFGIN 
STOPNEFINE t= TRUE? 
STFPIT? 
ENTRYCFIELDIDD3S 
SAVEINFO t@ LASTINFO: 
IF ELCLASS # RELOP AND ACCUM(1} = %1=0000" THEN 
BEGIN 
IF STEP] = |,FTBRKET THEN & REMEMBER THIS 
BEGIN 
FOUNDLB ts TRUE$S 
STEPITS 
END 
ELSE 
FOUNDLB t= FALSE} 
IF ELCLASS « FIELDIN THEN 
BEGIN 
SB '® ELBATCI],SBITF3 
NB '® ELBATCI].NBITF? 
GO TO SavertT: 
ENDS 
IF ELCLASS m LITNO THEN 
IF STEP] = COLON THEN 
IF STEP? = LITNO THEN 
1F.¢Sp te ELBAT£ "27, ADDRESS) x 
(NB t= ELBAT&1],ADDRESS) ¢ 0 AND 
Sp + NB $ 48 THEN 


%652 
%4654 


06315300 
06315400 
06315500 
06315600 
06315700 
06316100 
06316200 
06316300 
06316400 
06316500 
06316600 
06316700 
06316800 
06316900 
06317000 
06317100 
06317200 
06317300 
09128600 
09128700 
13337000 
14016000 
14021000 
14136100 
14269020 
14269040 
14269060 
14269080 
14269100 
14269120 
14269140 
14269160 
14269180 
14269200 
14269220 
14269240 
14269260 
14269280 
14269300 
14269320 
14269340 
14269360 
14269380 
14269400 
14269420 
14269440 
14269442 
14269444 
14269446 
14269448 
14269450 
14269450 
14269460 
14269480 
14269500 


14269520 | 


14269540 
14269560 
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112 
{12 
112 
112 
112 
112 
112 
112 
112 
12 
i112 
112 
112 
{12 
112 
412 
i12 
i12 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
112 
il2 
112 
112 
112 
112 
112 


112 


112 
112 
112 
112 
112 
112 


BEGIN 
SAVE!T?# 
PUTCTAKECSAVEINFO) & SB SBITF & NB NBITFs 
SAVEINFO)3 
STEPTTS 
IF FOUNDLB THEN % BETTER HAVE RIGHT BRACKET, 
IF ELCLASS = RTBRKET THEN 


BEGIN 
STEPITS 
GO TO FXIT 
END 
FLSF ¥ MISSING RIGHT BRACKET, 
ELSF 
GO TO EXITS 
END} 
ENDS 
FLAGC114)3 
DO STEPIT UNTIL ELCLASS = COMMA OR ELCLASS # SEMICOLON} 
EXIT! 
END 
UNTrL 


ELCLASS # COMMAS 
STOPENTRY t= STOPGSP tx FALSES 
ENDS 
GO TO START? 
ARRAY 1DTYPELO?CIDOMAX44)x4—4)3 
"LABEL, ", % 32 
"FIELDs "; ¥ 33 CCLASS = 125) 
XREFAYI1(9),CUASS) > IDMAX THEN IF { #® 
FIELDION THEN 33 ELSE O ELSE I) * 4» 
DATE 2/2/76 
BY JTC = MSA CENTRAL 


THTS PATCH IMPLEMENTS A NEW DECLARATION TYPE OF "FIELD" WHICH 


PROVIDES A CONVENIENT METHOD OF DESTGNATING a PARTIAL WORD FIELD 

A LA THE 6700 ESPOL AND ALGOL MECHANISM, THIS METHOD IS CONSIDERABLY 
MORE EFFICIENT THAN A DEFINE BECAUSE THE PARTIAL WORD FIELD INFOR@ 
MATION 1S STORED OFF WITH THE IDENTIFIER IN THE SYMBOL TABLE THUS 


MAKING REFERENCES To THE PARTIAL WORD FIELD VERY INEXPENSIVE. 
THe SYNTAX FOR A PARTIAL WORD DECLARATION +S AS FOLLOWS? 
<FIELD DECLARATION> ttm FIELD «FIELD LItST> 
<FIELD |,YST> tie <FrELN> / «FIELD LIST> » <FIELD? 
<FIELD> tte <FIELD IDENTIFIER> = <FIELD SPECIFICATION> 
<FIELD ;DENTIFIER> yt «IDENTIFIER? 
<FIELD SPECIFICATION> ste <INTFGER> $ <INTEGER> / 

{[ <INTEGER>® § <{NTEGER> ) / 

<FIELD IDENTIFIER> / 

( <FIELO [DENTIFIFR> J 


SOME EXAMPLES! 


14269580 
14269590 
14269600 
14269620 
14269640 
14269660 
14269680 
14269700 
14269705 
14269710 
14269715 
14269720 
14269740 
14269760 
14269780 
14269800 
14269820 
14269640 
14269860 
14269880 
14269900 
14269920 
14269940 
14269960 
14269980 
17047100 
17084300 
17084400 
17095000 
17095100 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
99990700 
99990800 
99990900 
99991000 
99991100 
99991200 
99994300 
99991400 
99991500 
99991600 
99991700 
99991800 
99991900 
99992000 
99992100 
99992200 
99992300 
99992400 
99992500 
99992600 
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$s 
$3 
$5 
$I 
$3 
$1 
$1 
$i 
$1 
$1 
$t 
$1 
$t 
$1 
$3 
St 
$t 
$t 
St 


FteLD CF # (3321513 


FrELD FF = 18345, 
SIZE = 083403 


FIFLWNS MaY BE USED ANYWHERE PARTTAL WORN DFSIGNATORS MAY BE USED 
AND MAY RE ENCLOSED +N RRACKETS OR NOT aS NESIREN, ENCLOSING 
THE FIELN YOFNTIFIER 'N BRACKETS MAY HELP THr READABILITY OF 
THE CODF BUT OF COURSE RFQUTRES EXTRA SCANNING BY THE 
COMP1LER TO PROCESS TwE BRACKETS, 
SOME EXAMPLES? 
1 t= 1,FF3 
J te 7,CF & 10 (SIZE) & K FF 


T.FF tm J,CCFV) 


99992700 
99992800 
99992900 
99993000 
99993100 
99993200 
99993300 
99993400 
99993500 
99993600 
99993700 
99993800 
99993900 
99994000 
99994100 
99994200 
99994300 
99994400 
99994500 


BO tk RRR III OO IR IOI IOI III II IORI ORIG IOI gk dnc aot 0899999999 


$#PATCH NUMBER 113 FOR ¢SPOL CONTAINS 2 CARDS: 


SSET OMIT LISTA & LIST 
$POP OMIT LISTA 


$! 
$3 


$1 


DATE 3/27/76 
BY JTC * MSA CENTRAL 


THIS PATCH SFTS OMIT AROUND THE COMMENT AT THE BEGINNING OF THE 
ESPOL COMPILER TO SPFED UP SCANNING OF THE COMMENT, 


00000000 


00000999 
00499999 
99990000 
99990100 
99990200 
99990300 
99990400 


SB ORI IORI IOI IIO IOI OIG I IOI i fo so 99999999 


S#PATCH NUMBER 144 FOR FSPOL CONTAINS 222 CARDS, 


$ VOINT 01476001 


LAREL EXITe NEXT» LASS3 
DEFINE 

FORMALNAMF = (932) «= 2#, 

LONGID =» NAMEIN#> 

PARTIALWORD = (T1 # O)#, 

FRREXITCNUM) = BEGIN ERRCNUM)s GO TO EXIT? FNDB#S 
ROOLEAN 

SPCLMON, 

DUPTTS & TRUE IF WE ARE DOING UPDATE TYPE ASSIGN= 

% MENT» 1eFoe | tz & + lee 


$ VOINT 15127004 


IF TALLeCLASS €$ INTID THEN & SIMPLE VAR OR FORMAL NAME 
BEGIN 
1F STePy # ASSITGNOP THEN 
IF P1 = FL THEN 
BratN 


00000000 


01471000 
15076000 
15076100 
15076110 
15076120 
15076130 
15076140 
15076200 
15076300 
15076400 
15076500 
15085150 
150865200 
15085400 
15085600 
15085600 
15086000 
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114 


114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 


| 


rr ELCLASS « AMPERSAND THEN 
EMITN¢ TALL, ADDRESS) 
ELSE 
EMITV¢eTALL, ADDRESS )3 
GO TO EX]T3 
FND 


ELSF 


IF ELCLASS = PERIOD THEN & PARTYSAL WORD 
IF DOTSYNTAXCT1»T2) THEN % FRROR 
GO TO EXIT 
ELSE 
STFEPIT: 


1F ELeLASS = ASSTGNOP THEN 
BEGIN 


STACKCT te 13 
IF PARTIALWORD THEN & Make SURE LEFT=MOST 
BEGIN 
IF P41 # ©S THEN & NOT LEFT@=MOST 
ERREX1T¢C201)93 
XREFITCTALL»REMEMBERSEQNO,ASSIGNREF D3 
END 
ELSE 
XMARKCASSTGNREF D3 
1F TABLEC 141) & ASTRYSK TWEN & MIGHT BE UPDATE 
IF cDUPHTtecTABLECt+#2) 2 EQVOP AND TABLECI+2) 
S$ MULOP) OR TABLE¢ 142) «© AMPERSAND) THEN 
STEPIT? % STEP OVER ASTERISK 
VALE OnMALNAHE THEN % FORMAL PARAMETER 
EGIN 
EMITNCTALL,«ADDRESS)3 
IF PARTIALWORD OR DUPIT THEN % NEED VALUE 
BEGIN 
EMITOCNUP)3 
EMITOCCOC)S 
ENDS 
END 
ELSE ® ITS A SIMPLE VARIABLE 
tr PARTYLALWORD OR puPrYT THEN 
EMITVCTALL.ADDRESS)3 
If PARTIALWORD AND DUPIT THEN 
BEGIN 
FMITOCDUP)S 
FMITICO+TI»T2)3 
ENN3 
STACKCT tax REALCPARTTALWORD OR QUPIT)3 
STEPIT3 
te OUPYT THEN & ALREADY GOT FIRST PRIMARY 
SyMPARITH 
F..SE 
AEXP3 
EMITDCQB*T2eT10T2)3 


STACKCT ta O3 


GT1 tw IF TALL.eCLASS = INTID THEN 
1F P1 = FS THEN 
13D 
ELSE 
ISN 


15066200 
15086400 
15086600 
15086800 
15087000 
15087200 
15087400 
15087600 
150687800 
15088000 
15088200 
15088400 
15088600 
15088600 
15089000 
15089200 
15089400 
15089600 
15089800 
15090600 
15090800 
15091000 
15091200 
15091400 
15091600 
15091800 
15092000 
15092200 
15092400 
15092600 
15092800 
15093000 
15093200 
15093400 
15093600 
15094800 
15095000 
15095400 
15095600 
15095700 
15095800 
15095900 
15096000 
15096100 
15096400 
15096600 
15096800 
15097000 
45097200 
15097400 
15097600 
15097800 
15098000 
15098200 
15098400 
15098600 
15098800 


VPUuVTVGTVVVVVVVVUVVVUVU OVUM VU VC UV VU VV VUE VU VU UV VU VV VU VV VU VU VI VV VT VC VU VU Ve VV UU 


114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 


114. 


114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 


ELSE 
1F Pi = FS THEN 
STD 
FLSF 
SND} 
If TALL.FORMALNAME THEN 
REGIN 


FMITOCXCH)S % TO GET HESCRIPTOR ON TOP | 
IF TALLeADDRESS > 1023 THEN & SET VARIANT 
EMITOCPRIF)$ 
FMYTOCGT1)3 
END 
ELSE 
: EMITPATRCTALL,ADDRESS,GT193 
END 
ELSE & NOT ASSIGNMENT TO SYMPLE VARIABLE 
BEGIN 
Ir P1 # FP THEN & EXPECTED ASSIGNMENT 
FRREX1IT¢202)3 
EMITYTCTALLoT1,T2)8 &® EMPT OP CALL AND PARTIAL 
END? % wORn cODE 
FNn OF SIMPLE VARIABLES 
$ vOrnt 15233028 . 
1F STEP? # LeETBRKET THEN & ARRAY [TEM NOT FOLLOWED BY 
BEGIN % A SUBSCRIPT 
IF ELCLASS = PERY0D THEN 
IF DOTSYNTAX( T4572) THEN ¢ ERROR IN PARTIAL WORD 
GO To EXIT 
ELSE 
STEPYT! 
IF ELCLASS = ASSYTGNOP THEN 
BEGIN 
TF PaRTTALWORD THEN 
BEGIN 
1F P{ # FS THEN & PART?HAL WORD NOT LEFT=MOST 
ERREXIT¢209)3 
XREFITCTALL» REMEMBERSEQNOsASSIGNREF) 3 
END 
ELSE % ASSIGNMENT TO ID WITH NO PARTIAL WORD 
XMARKCASSIGNREF)3 
IF TABLECI#1) = ASTRISK THEN 
TF CDUPTT t# ¢TABLECT+2) 2 EQVOP AND TABLE(1+42) 
¢ MULOP) OR TABLEC!I+¢2) = AMPERSAND) THEN 
STEPITS 
IF PARTIALWORD OR DUPIT THEN ® NFED VALUE ON STACK 
IF TALL«CLASS < INTARRAYIO THEN & NOT NAME ITEM 
FMYTPATR¢ TALLeADDRESSsLON) 
ELSE 
FMYITNCTALL, ADDRESS) 3 
IF PARTIALWORD AND DUPIT THEN 
REGIN 
FMITOCDUP)3 
EMITICOeT1sT2)3 
FNDS 
STACKCT t= STACKCT + REALCPARTTALWORD OR NUPIT)3 
STrP1T3 
1F DUPYT THEN & WE HANDLED FIRST PRIMARY 
SIMPAR]TH 


15099000 
15099200 
15099400 
15099600 
15099800 
15100000 
15100200 
15100400 
15100600 
15100800 
15101000 
15101200 
15101400 
15101600 
15101800 
15102000 
15102200 
15102400 
15102600 
15103400 
15103600 
15103800 
15183050 
15183100 
15183200 
15183300 
15183400 
15183500 
15183600 
15183700 
15183800 
15183900 
15184000 
15184100 
15186200 
15184300 
15184400 
15184500 
15184600 
15184700 
15184750 
15184800 
15184850 
15185000 
15185100 
15185200 
15185300 
15185400 
15185500 
15185600 
15185700 
15185800 
15185900 
15186000 
15186100 
15186200 
15186300 
15186400 


VBPUVVDVVIGVECVIVVIV SUV VUB VU VVVVUVUUDVVVVV UU VVVVU VU VV VV VV VV VV UU) 


114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114! 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 


EMrTNC4BRTosT19T2)$3 
EMYITPAIRCTALL.ADDRESSsIF PY = FS THEN STD ELSE 


SND)3 
eV eGet t= 03 *¥ A AND B ARE EMPTY 
END 
ELSE % NOT ASSIGNMENT 
EMITHCTALLoTioT2)3 
GO TO FXxIT3 
END OF ASSIGNMENT TO NON SIMPLE NON SUBSCRYIPTED 
VARTABLE? 
$ vOINnT 
$ VOtnT 15370004 : 
fF STEPY = PFRIOD THEN & PARTIAL WORD 
IF DOTSyNTAXCT1.2T2) THEN % ERROR 
GO TO FxXrT 
FLSE 
STEPIT? 
TF FLCLASS = ASSIGNOP THEN % ASSIGNMENT TO SUBSCRIPTED 
BEGIN % VARIABLE 


IF PARTTALWORD THEN 

IF P1 #¢ FS THEN 

ERREXIT(209)3 & PARTIALWORD NOT LEFT=MOST 

XREFITCTALL»REMEMBERSEQNOsASSIGNREF )3 
IF J = 4 THEN & SINGLE"DIMENSTONED 

EMITNCTALLe ADDRESS) 
ELSE 

EMITOCCOC)S 
IF TALL.CLASS 2 LONGID THEN & EXPLICIT INDEX OP 


EMITOCINX)$ ® REQUIRED 
IF P{ = FR THEN % CALLED FROM FOR STATEMENT 
GO 10 FXIT3 


IF TABLECI+1) = ASTRISK THEN 
IF cDUPYT3ecTABLECI42) 2 FQVOP AND TABLE( 142) 
<¢ MULOP) OR TABLECI4+2) = AMPERSAND) THEN 
STEPITS 
TF PARTYALWORD OR DUPIT THEN & NEFD VALUE ON STACK 
BEGIN 
EMITOCOUP)3 
EMITOCLOD)? 
END!) 
1F PARTTFALWORD AND DUPIT THEN 
BEGIN 
EMITOcDUP)? 
EMITYTCOeT49T2)3 
ENDS 
STEPIT3 
IF DUPYT THEN 
SIMPARSTH 
ELSE 
AEXP3 
EMITDC4B=T2eT19T2)3 
EMITOCXCH)S 
IF TALL. ADDRESS >» 1023 THEN 
EMITOCPRTE)D3 
EMITOcCIF TALL,CLASS MOD 2 = INTARRAYID MOD 2 THEN 


15186500 
15186600 
15186700 
15186800 
15186900 
15187000 
15187100 
15187200 
15187300 
15187400 
15187500 
15187600 
15273000 
15299050 
15300000 
15300100 
15300200 
15300300 
15300400 
15300500 
15300600 
15300700 
15300800 
15300900 
15301000 
15301100 
15301200 
15301300 
15301400 
15301500 
15301600 
15301700 
15301800 
15301900 
15302000 
15302100 
15302200 
15302300 
15302400 
15302500 
15302600 
15302700 
15302800 
15302900 
15303000 
15303100 
15303200 
15303300 
15303400 
15303500 
15303600 
15303700 
15303800 
15303900 
15304000 
15304100 
15304200 


VVVVVVVVIVSEVUVUU VU VUDVVSVVUVVVUV VV UO VUV VV VV VV VV VV VV Ue CU 8 


114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 


S#PATCH NUMBER 


CASEV 
DEF NE 


1F P?! = FS THEN tSD ELSE SN 
ELSE JF P1 = FS THEN STp ELSE SND) 
STACKCT t= 03 % A & B ARF EMPTY 
P41 t= O38 
END OF aSSIGNMENT TO SUBSCRIPTEN VARIABLE 
FLSE 
BEGIN & HANDLING Of NO ASSTGNMENT CASE 
SPCLMON t= Pi e FP OR PARTITALWORD OR ELCLASS 2 
; AMPERSAND3 
1F J s § THEN & SINGLE DIMENSTONED 
IF TALL.«CLASS 2 LONGID THEN & NAME ITEM 
BFGIN 
EMI TNCTALL,.ADDRESS)3 
EMITOCINX)) 
IF SPCLMON THEN 
EMITOCLOD)3 
END 
FLSr % REFERENCE TO SINGLE DIMENSJONED ARRAY 
Ip SPCLMON THEN 
EMITVC TALL, ADDRESS) 
FLSE 
FMITNCTALL. ANDRESS) 
FLSE x MULTI@MIMENSIONED CASE 
EMYTOCTF SPCLMON THEN cOC ELSE c0Cc)s 
1F Pi = €S THEN & EXPECTED AN ASSIGNMENT 
ERReXyT¢21093 


STACKCT t= 13 % BECAUSE REGISTERS ARE NON=EMPTY 


1F PARTTALWORD THEN 
BEGIN 
EMITyCOrTieT2)3 
Py te 03 
ENDS 
END OF NO ASSYJGNMENT CASE3 


115 FOR FSPOL CONTAINS 150 CARDS 


zhOF, COMMENT 06143 
LASTSEQUFNCF = 1498, 


15304300 
15304400 
15304500 
15304600 
15304700 
15304800 
15304900 
15305000 
15305100 
15305200 
15305300 
15305400 
15305500 
15305600 
15305700 
15305800 
15305900 
15306000 
15306100 
15306200 
15306300 
15306400 
15306500 
15306600 
15306700 
15306800 
15306900 
15307000 
15307100 
15397200 
15307300 
15307400 
15307500 


00000000 


01229000 
01569000 


SAAAALLLTALAAKATALALSLASLALALATALASLALAALARSLALALETLLALAAALAATLFSSVARRLXLOT6RGOIO 
$F ok ROI IOI OR IGIGIOR io kg GRO OR ok de notok ee tc oe B07 646015 


i* 
Xx 
%« 
x» 
To 
%* 
X* 


S* THIS PROCEDURE HANDLES THE CASE STATEMENT. THE SYNTAX FOR THE CASE 


Z* STaTMENT 7S 
3x 
Xe CASF < 


S* THe CODF GE 
y* 


: 
AFXP> OF BEGIN <COMPOUND TAIL> 
NERATED FOR THIS STATEMENT IS? 


*%07646020 
*%07646025 
*%07646030 
#%07646035 
*307646080 
«207646045 
#%076486050 
«%07646055 
*%07646060 
*%07646065 
*%307646070 
*%07646075 
#%07646080 
*%07646085 
*¥07646090 


VuvuodvVvVVWV UVM VV VV UV UV VE VV BTV UO VV UT UV UU 


2] 


VvVuVUIUIV VV VU VV VV eSB UU 


114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
$14 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 


115 


115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 


g* 
%* 
g* 
Xx 
X%* 
<* 
X* 
X* 
Z* 
x* 
%* 
X* 
X« 
zm" 
eo 
Ze 
Xs 
a 
%* 
Zs 
gx 
2 
<* 
<* 
ZX 
%* 
<* 
X* 


BRANCH TABLES 


RESUME 3% 


Se NOTICE THAT! 


Xs 
Ze 1) 
Ze 
ye 
Zu 
#* 2) 
g* 
* 
R* 3) 
z* 
z* 
g* 
%* 4) 
g* 
z* 


<AEXP> 
LITC 2 
BFW 
STMT 0 
LITC ? 
BFW 
STMT 1 
LITC ? 
BFW 


BRANCH 


BRANCH 


BRANCH 


BRANCH 
BRANCH 
BRANCH 


BRANCH 


THE CASF INDEX IS NOT INTFEGERIZED, 
INDEX TO BE 
INTEGERIZE tT YOURSFLF, 


MIGHT CAUSE THE 


NO RANGE CHECKING 


1S DONE ON THE 


UNNORMALY ZED 


TO BRANCH TABLE 


TO RESUME 


TO RESUME 


INTO TABLE 


TO STATEMENT 0 


TO STATEMENT 1 


TO STATEMENT N 


Ir YOU HAVE ANYTHING THAT 


YOU WILL HAVE TO 


INDEXe IF YOU USE A NUMBER 


OUT OF RANGE THEN YOU WILL FALL OFF THe END OF THE WORLD, 


1F A STATEMENT IN THE CASE COMPOUND TATL 1S NULL» 


GENERATED 


FOR 


THE 


DIRECTLY TO RESUME, 


1F A STATEMENT 


tN 


STATEMENT, 


INSTeE 


NO 


CODE IS 


ADs THE BRANCH TABLE GOES 


THE CASE COMPOUND TaIL 1S A SIMPLE GO TOs 
THE STATEMENT DoES NOT HAVE A BRANCH To RESUME AFTER IT, 


*%07646095 
*%07646100 
*#%07646105 
*207646110 
*207666115 
*307646120 
*207646125 
*%207646130 
*%07646135 
*%07646140 
*%07606145 
*%07686150 
*%07686155 
*307646160 
*%07646165 
«307646170 
*£07646175 
*%07646180 
*307666185 
*#%07646190 
*£07646195 
*207686200 
*%07646205 
*%07686210 
4207666215 
*%07686220 
*#307646225 
*#%07646230 
*%07646235 
*%07646280 
*E07646245 
*%07646250 
*%07646255 
*£97686260 
*%07686265 
*%07646270 
"2976486275 
*%07646280 
*%¥07646285 
*%07646290 
*207646295 
*%¥07646300 
*%07606308 
*207646310 


TAURI OIE ICI III UO OIRO OOO IO I Or ick mire 007606315 


ELARTFEAABELALILARTRELALTFAARALLALALELARETIALSLVARBALLALRBRAALKTRRAERLLXZO7 646320 
PROCEDURE CASESTATEMENT? 


BEGIN 


ARRAY CASEADDRESS(0199)3 


INTEGER 
LINK» 


ANR, 


ae ae aR 


CASE. 


2@ 22 be De JQ 


THIS ARRAY HOLDS THE RELATIVE 
ADDRESS OF THE BEGINNING OF EACH 


HOLDS RELATIVE ADDRESS OF FIRST OF 
BRANCHES THAT MUST BE FIXED UP TO 
BRANCH TO THE RESUME POINT, 
HOLDS RELATIVE ADDRESS OF THE BRANCH 
AROUND THE CASE STATEMENTS YO THE 


07646325 
07646330 
076864335 
07646340 
07646345 
07646350 
07646355 
07646360 
07646365 
07646370 
07646375 


vuVVIVVOHVuV VV VU 8 VGUVGCTCVGEVVVOVMVU VV VUVVUVUVV UVB VP VV VV VV UV VV UB UU 


115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
145 
115 
115 
115 
{15 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
115 
1t5 
115 
115 
115 
115 
115 
115 
115 
115 


% BRANCH TABLE. THES BRANCH GETS FIXED 
% UP WHEN WE FIND WHERE THE BRANCH TABLE 
% GOFS, | 

N, % COUNT OF NUMBFR OF CASE STATEMENT 
% ENCOUNTERED, 

ENDOFIT, 2 ADDRESS OF RESUME POINT 

Je % TEMPORARY 

K3 % TEMPORARY 
% 

BOOLEAN 

GoTOG3 % TRUE IF WE ARE COMPILING A SIMPLE 

% G0 TO, 
LABEL XIT3 

STEPITS % STEP OVFR MCASE" 

AFXPS % GENERATE CODE FOR caSE INDEX 

IF STEP} # BEGINV THEN & NOTICE WE JUST JUMPED OVER "OF® 

BEGIN 
ERR¢70)3 GO TO xIT3 
ENDS 

EMIy¥¢cO)s$ & GENERATF DUMMY BRANCH TO BRANCH TABLE. WILL FIX 

EMITOCBEW)t & 1T UP LATER, 

ADR te 13 


WHILE STEPI # ENDV nO 
BEGIN &% PROCESSING CASE STATEMENTS 
ERRORTOG ta TRU? 
IF FLCLASS # SEMICOLON THEN % NULL STATEMENT, NO CODE NEEDED 
N ta N + 4 & THIS LEAVES A ZERO IN CASEADDRESS(N} 


ELSE 
BEGIN ; 
CASEADDRESS¢«N} t= L$ &% REMEMBER BEGINNING ADDRESS OF 
N te N + 43 % THIS CASE, 


IF ¢GOTOG tx SIMPGO) THEN 
ELRATCItey7q) $= ELCLASS :* GOV3 & REMEMBER IF SIMPLE 
STmTs % PROCESS THE STATEMENT 
IF ELCLASS = SEMICOLON THEN 
IF NOT GOTOG THEN & GENERATE DUMMY BRANCH TO RESUME 
REGIN 
EMITCLINK)S 
EMITOCBFW)S 
LINK t= L3 
.END 
FLS€ ¥ SrMPLe GO TO, NO CODE TO GENERATE 
ELSE 
IF ELCLASS # ENDV THEN 
FRRCO71)3 
FND} 
END OF WHILE LOOP; 
ENDTOG t® TRUE} % SKIP OVER COMMENT AFTER END 
DO STOPHEFINE t= TRUE UNTIL 
STEP? $ ENDV AND FLCLASS 2 UNTILV OR NOT ENDTOG3 
ENDTOG ts FALSES 
EMITBCBeEWeADReL?3 % FIX UP BRANCH 10 BRANCH TABLE 


EMITOCOUP)S | % GENERATE CODE TO MULTIPLY INDEX 
EMITOcAnD)3 % BY TWO AND BRANCH NTO BRANCH TABLE 


EMITOCBFW)S 


07646380 
07646385 
07646390 
07646395 
07646400 
07646405 
07646410 
07646415 
07646420 
07646425 
07646430 
07646435 
07646436 
07646440 
07646445 
07646450 
07646455 
07646456 
07646457 
07646458 
07646459 
07646460 
07646465 
07646470 
07646475 
07646480 
07646485 
07646890 
07646495 
07646500 
07646505 
07646510 
07646515 
07646520 
07646525 
07646530 
07646535 
07646540 
07646545 
07646550 
07646555 
07646560 
07646565 
07646570 
07646575 
07646580 
07646585 
07646590 
07646595 
07646604 
07646602 
07646603 
07646604 
07646608 
07646610 
07646615 
07646620 


VPUVVVVVGVVVVUOVVVVVVUVD UV VV VVUVUVU VU VV VVV VU VV HU VV VV VV UV VU PVP UV 


ENDOFIT te L + 2xNS % CALCULATE WHERE RESUME IS 
WHILE (JUt3J+41) S$ N NO & GENERATE THE BRANCH TABLE 
EMITR¢BBWeLtaLe?e1F CKSECASEADDRESS(CY"1})) = 0 THEN 
ENDOFIT ELSE K)3 
J te LINKS & TO MAKE THE LOOP WORK 
WHILE CLINKt2J/) # 0 NO 
BEGIN % FIXING UP BRANCHES TO RESUME 
J ta GETCLYNK*™259$3 & LOCATION OF NEXT BRANCH TO FIX 
EMITBCBFWeLINK ol, )3 


ENDS 

X1Ts 

END OF cASE STATEMENTS 
Lava . 
r CASESTATEMENTS GO TO FXIT3 

L413 
9¢T0500000250000002, "SrrEeLn™, %654 
Oc TO610000080000000, *4caSFO", %656 


$t BY Jtc = MSc HETROIT 

$1 THrS PATcH ANDS A =CASF= STATEMENT TO ESPOL, SEE 
$1 DOCUMENTATION AT BEGrNNING OF PROCEDURE 10 SFE HOW 
$1 17 18 USeD, 


07646625 
07646630 
07646635 
07646640 
07646645 
07646650 
07606655 
07646660 
07646665 
07646670 
07646674 
07646675 
07759100 
07759200 
07770000 
09128700 
09128800 
99990000 
99990100 
99990200 
99990300 


SI IOI SOI IOI IO IGOR IOIICIO IUGR IIOIOI Ok Noto Hii toi iti 99990000 


S#PATCH NUMBER 116 FOR FSPOL CONTAINS 1 CARD 


SAVE ARRAY DEFINEARRAYr0$34I5 
$3 DATE 6/29/76 
$3 BY JTC = MSA CENTRAL 


$i THtS PATCH FIXES A PRORLFM WITH FSPOL THAT COULD CAUSE THE 
$t COMPYLER TO ABORT WITH AN |NVALID INDEX AT END OF FILE ON 
$t EITHER THE CARD OR TAPE FILE IF NO 99999999 CARD WAS PROVIDED, 


S#PATCH NUMBER 147 FOR FSPOL CONTAINS 3 CARDS: 


% MARK XV1,0.416 

% MAY 9, 1977 

"XV1,0.116" 

$1 BY DJZ = MSC DETROIT 

$t DATE 05/09/77 . 

$1 TH1S PATCH UPOATES TwE MARK LEVELS OF THE SYMBOL FILE, 


00000000 


01491000 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 


00000000 


00001030 
00001040 
01831000 
99990000 
99990100 
99990200 


$0 i iO OI RII OUI OIOOI GE SOOO iO IG ORE 99990300 


$# PATCH NUMBER 901 FOR ESPOL CONTAINS 1 CARD 


$§ THIS PATCH CHANGES INPUT TAPE BLOCKING TO ALLOW INCREASED 
$t EFFICIENCY IN STORING SOURCE FILES ON TAPE 


$1 BY TJPs 2/16/77, USr UTILITY COMPTP/UTIL TO CREATE SOURCE TAPES, 


VevV’GvvTVUVP eV VV VV VT VV VU 


uv 


vuuUVUV YD 


ov 


vYyGVYT VU 


Pan 


117 


117 
117 
117 
117 
117 


901 


901 
9014 
904 


0000000/PMCARD 


BEGIN RR8650x10450413 RR9690 END! 


S#PATCH NUMBER 902 FOR FSPOL, CONTAINS 1 CARD, 


00538000 


PAGE SKIP BETWEEN PROCEDURES 


$1 THrS PATCH CHANGES THE FFFECT OF THE FORMAT OPTION TO CAUSE A 
$! PAGE SKIP BETWEEN PROCEDURES INSTEAD OF A FOUR*@LINE SKIP 


$t 
$1 


BY JeHas UCSCe 4 MAY 77 
SPACEITOOWN = WRITECLINEPPAGE1) #3 


14023100 


AOoOooans 


904 


902 


909 
902 
909 
909 
9092 


@ q 
e a 
aT ITTtTT Tt CONFLICTS ORO OIGIOI OI ISIOIOIISIG UIC IORI IOISIOIUIEIO I IUIG IORI IOISIOIRHOIOIOR I IGI II IOISIOI IEE HI ROR I NOR Ea HOI i i ge 
e e 
e @ 
$ VOIDT 01001771 01001750 P 410 CONFLICTED WITH? 
DEFINE XREFYNFOCXREFINFOLeXREFINFO2 Js 01001750 P 108 DISCARDFD 
@ XTNFOPXREFINFOS oC KREFINFO2IDIV 2)8. 01001760 P 108  vyorDeED 8 
¥MARK= JF XREF THEN XREFAY2¢CXREFPT"1) ¢isileq#s 01001770 P 108 VOIDED 
 ) & 
¥ 01007100 P 110 CONFLICTED WITH! 
° ARRAY XREFAY2£0129)eXREFAYI£01401+XINFOLO?31202127)3 01007100 P 108 DISCARDED e 
| 01007200 P 110 CONFLICTED WITH! 
e INTEGER XREFPTsXLUN} ZDFB01007200 P 108 DISCARDED  ) 
@ DEFINE LASTSEQUFNCF = 1498, 01569000 P 115 CONFLICTED WITHE ® 
DEFINE LASTSEQUENCE = 4474, 01569000 P 1412 DISCARDED 
e @ 
DEFINE LASTSEQUENCE = 1478,» 014569000 P 110 CONFLICTED WITH? 
IF XREF THEN 02882100 P 108 VOIDED 
@ 1F GT1#y THEN 02882200 P 108  VOIDED ® 
BEGIN ; 02682300 P 108 VOIDED 
IF XREFPTa@30 THEN 02882400 P 108 VOIDED 
@ BEGIN 02882500 P 108 VOIDED ® 
WRITE CDSK20300eXREFAY2E4])3 02882600 P 108 VOTDED 
XREFPT « OF 02882700 P 108 VOIDED 
@ ENDS 02682800 P 108 VOIDED e 
XREFAY2CXREFPT ]+CARDNUMBER&XREFINFOLGT1+G1T2]£09136312]3 02882900 P 408 VOIDED 
XREFPT «© YREFPT+13 02882910 P 108 VOIDED 
& ENN} 02882920 P 108 VOIDED ] 
 ) 0¢T0500000250000002, *SFIELD". %654 09128700 P 115 CONFLICTED WITH! ] 
0670500000250000000, "SFIELD"» ¥654 09128700 P 142 DISCARDED 
@ e 
0¢T0500000250000000, SFIELND", x654 09128700 P 410 CONFLICTED WITH! 
STREAM PROCEDURE XREFMOVECSsCoSNeSQebeD)3 Z0FB13301100 P 108 VOIDED 
e VALUE Cob ¥0FB13301130 P 108  vOtpeD e 
BEGIN ; ZDFB13301160 P 108 VOIDED 
DItsDs ¥0FB13301190 P 108 VOIDED 
e pSte 8 LIT" "3 ZDFB13301220 P 108  vOroFD ® 
SrtsD} S0F813301250 P 108 vVOIDED 
DStaB WS; ¥DFB13301280 P 408 VOIDED 
e Dit=D3 ZDFB13301310 P 408 VOIDED @ 
StimSh %0FB13301340.P 108 | VOIDED 
StreS]43) ¥DFB813301370 P 108 VOIDED 
e DStmC CHRS Z0FB13301600 P 108  VOIDED e 
DisaD3 %0FB13301430 P 4108 VOIDED 
N1eD14603 ZDFB13301460 P 108 VOTDED 
@ STi=SN3 ZDFB13301490 P 408 VOIDED ® 
@ & 


DSt=4 PEC3 20F 813301520 
S1s=SQ3 %0FB13301610 
OSt#8 pDFC3 ¥0FB13301640 
StisLOc Li SDF B13301670 
DStawns) 0FB13301700 

ENDS $0FB13301730 
ENDS %DFB13301730 
IF XREF AND CNOT PTOG OR STREAMT0OG) THEN 13310100 
BrarN 3DFB13310200 
XREFMOVECACCUMF I) +COUNTsSGNO »CARDNUMBER® | . %DFB133140300 
XREFINFOPNEXTINFO,LINKReNEXTINEFO,LENKC)&@XLUNtaXLUNeds &0F813310400 

XREFAY1 93 13310450 

WRITE COSK #1 0eXREFAYG[%)])3 %0FB13310500 
EnDs %DFB13310600 
IF XREF AND NOT SPECTOG THEN 3 ERASE PREVIOUS XREF ENTRY, 13341200 

IF XREF AND PTOG THEN 13341200 

IF XREF AND PTOG THEN 13341200 
XMARKCASSIGNREF)3 & ASSIGNMENT TO SIMPLE VARYABLE. 15091100 
SVOIDT 15092010 
REGIN 15113100 

BEGIN 15115000 

ERR(201)3 &® PARTIAL WORD NOT LEFT*MOST 15115100 

GO TO EXIT? 15115200 

ENDS 15115300 
XREFITCTALLsREMEMRBERSEONO sASSIGNREF D3 15116000 

GO TO L143 15116100 

FNDS 15116200 

Lit 15092000 
¥MARK$ 15092010 

1F TALL, FORMALNAMF THEN 15092020 

TF TALL, FORMALNAME THEN 15092020 
JAz7! XREFYTCTALLeREMFMBERSEQNO,ASSIGNREF)S STFPYITS AEXPS 15233012 
JAZZ3 XREFrTéETALLsREMEMBERSEQNOsASSIGNREF)$ STEPITS AEXP3 15233012 
XREF rT ¢TALLeREMEMBERSEQNO*®ASSIGNREF)$ & ASSTGNMENT 1018301400 

% SUBSCRIPTED VARIABLE, 15301200 

IF STEP] = ASSIGNOP THEN 15342000 

IF Py = FS THEN 3 PARTIAL WORD IS LEFTeMoST 15382100 

REGIN 15342200 
XREFITCTALL®REMEMBERSEQNOSASSIGNREF)$ % PARTIAL15342300 

% WORD ASSIGNMENT TO SUBSCR. VAR, 15342400 

GO TO LASTS 15342500 

FND 15342600 

IF CXREF OR DEFININGe £1213) AND XLUN > O THEN 16495300 
IF XREF OR DEFINING £1813 THEN 16495300 


ie ia eveuvuVeVuUVVMeST UV vv vuvVvwIVV UYU wuVVUU 


vuVUuVV Ve VU 


ee *) 


108 
108 
108 
108 
108 
108 


110 


VOIDFD 
VOINFD 
VOIDED 
VOIDED 
VOIDFD 
VOIDFD 


CONFLICTED WITH! 
VOIDED 
VOIDED 
VOLDED 
VOIDED 
VOIDED 
’ VOIDED 
VOIDED 


CONFLICTED WITH$ 
DISCAROFO 


CONFLICTED WITH? 
VOTDED 
VOIDED 
VOIDED 
VOIDED 
VOSOEFD 
VOIDED 
VOIDFD 
VOIDFD 
VOIDFD 
VOIDED 
VOIDED 
VOIDED 
VOIDFD 


CONFLICTED WITH! 
VOTDED 


CONFLICTED WITHS 
VOTDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 


CONFLICTED WITH? 
DISCARDED 


NEFINE XREFINFOLINNDEX) = INFOPCCINDEX).CF DIV 2),03397]0 


DEFINE XRFFINFOsINFOFS 


TOTALNO t= XLUNS & REMEMBER NUMBER OF JTDFNTIFIFRS, 


TOTALNOe¢REALCXLUN >500)x1000430004+XLUN} 


BEGIN 
REWIND(DSK14) 


IF BOOLEANCA(8]) THEN 


17002005 
17002005 


17004500 
17004500 


17022000 
ZDFB17022000 


17025000 


ALOJPEXREFINFOLCALIISLINKRoALIIeLINKC Jt mXLUNS EXLUNG 3 RDF BI 7025000 


IF 63 5C < NC THEN 
TF 63 SC LSS DC THEN TALLYs=13 


IF REAL CCOMP1%mCOMPS1(A0B)) = 9 THEN © IDS EQUAL 
COMP{L i aCOMPS1(0A0B)3 


SORTCOUTPUT Le INPUT1+00HVieCOMP4e10e1F TOTALNO < 1000 THEN 
SORTCOUTPUT1 eo INPUT1s09HV4sCOMP19°10+TOTALNO 3 


SORTCOUTPUTI » INPUTL » Os HV1,COMP4 910» TOTALNO 3 
STREAM PROCEDURE PUP(S,D0)3 

BEGIN 

SrtsS3 

Hny~it=sD3 
DStea7? WOSS 8¢OSte& LIT * 33 


SVOIDT 17054551 


END} 
STREAM PROCEDURE PUP1(SeD)3 
BEGIN 
SrieSs SyseS14493 SptaSy4oB3 
DiteDs OSte2 LIT © "3S DSa2h CHR? DSteo LIT © «m3 
DSieB CHRS DSteL IT "*"3 OSte38 LIT * *3 
END} 
STREAM PROCEDURE PUP2CSTAReSeCeD)3 
VALUE STAR»Sec} 
REGIN 
nltepy 
CEN teDL+10)3 
STARCDIeDIMLS HSeL ITM" )3 
StssLOc S$ 
nSt= 8 MFEC3 
OStaLiIT * "$ 
FNOD3 
STREAM PROCEDURE BLANKFTCA)? 
BEGIN 
DItsA} 
OSt= 8 LiT * #3 
Sttsa} 


STARCNIPsDI ets HNSreLIT MH" )3 


17033000 
20F 817033000 


17042300 
30FB17042300 


17045000 
%DFB17045000 


2DFB17045000 
ZDFB17048000 
SDF B17049000 
%DFB17050000 
¥0FB17051000 
17052000 
17053000 
DF B17055000 
17055100 
17055200 
17055300 
17055400 
17055500 
17055550 
17056000 
17056500 
Z0FB17057000 
20F 817058000 
17059000 
17059100 
torB17060000 
20F 817061000 
17061100 
20FB17062000 
S0FB17063000 
Z0FB17064000 
S0FB17065000 
Z0FB17066000 
¥0FB817067000 


vv 


vuvVvVUV UUM Ve VU CUT VT VU Ve VT VEC Cee Ve VT eT WI 


CONFLICTED WITH! 
DISCARDED 


CONFLICTED WITHS 
DISCARDED 


CONFLICTED WITH? 
DISCARDED 


CONFLICTED WITHS 
DISCARDED 


CONFLICTED WITHS 
DISCARDFO 


CONFLICTED WITH? 
DISCARDED 


CONFLICTED WITH! 
DISCARDED 


CONFLICTED WITH! 
VO10ED 
VOIDED 
VOIDED 
VOIDFD 
VOTDED 
VOIDEO 
VOIDED 
VOLDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOloro 
VOIDED 
VOIDFD 
VOIDFD 
VOIDED 
VOIDFD 
VOIDFD 
VOLDED 
VOTDED 
VOrpeD 
VOIDED 
VOLDFD 


DSts 14 WOS3 
ENN) 


ARRAY 1D0TYPELOSCIDMAX44d)x4nyq 3 
ARRAY ITDTYPELOICIDMAX43)xG~4)3 


NEFINE IT = LASTADDRESS#; 
DEFINE T3XLUN#S 


ACO] te 1 & NEWIDCTeREFIDNOF] REFIDNOFS 
ACO]#= TOXREFINFOFT.L 9t4)el.Ci3tBlir 983681233 


XREFAY{C8) ts XREFPT t= LASTADDRESS se 03 


XREFAVIPO] tants XREFPT+O3 
"LABEL. ", % 32 
“LABEL, "s ¥ 32 


LAREL FOF2» SKrP$ 
LABEL LOOP,FOF23 


OWN BOOLEAN B2, FWOTOG. LBLTOGs WaAITINGFORFWDREF 3 
OWN BOOLEAN B23 


ENDS 
LABEL DUN} 


LABEL DUN3 
IF NOT B2 THEN 
1F B THEN 
WRITECPRINTER® 15e#PAYe*)) 
FLSE 
1F LASTADDRESS # LASTANDORESS«ar0) AND LASTAODRESS,(9 
BEGIN 
LOOP! . 
IF 6ALO],¢ 98123 GTR XREFAY1(69] THEN 
BEGIN 


WRITECPRINTER,15~PAYE*))3 


BLANKETCPAY )3 XREFPT#&x03 
READCDOSK1,10,XREFAYIP*IICEOF2)3 
PUPCXREFAY1»PAY)3 
WRrTECPRINTEREFDBLJ23 
WRITECPRINTERs 10ePAYe%I1)3 

PUPTCXREFAY1»PAY)3 
WRITECPRINTERCDBL3910ePAYE*))3 
BLANKETCPAY)3 

69 LOOP? 


20FB17066000 
%0FB17069000 


17047100 
17047100 


17073100 
%0FB17073100 


17080000 
ZOFBL17080000 


17084000 
%DFB17084000 


17084300 
17084300 


17091100 
17091100 


17091110 
17091110 


17091200 
17091200 


17091200 
17091210 
SDFB17092000 
%0FB17093000 
Z0FB17094000 


t12]# 0 THEN 17094100 


ZDFBL7095000 
%0FB17095050 
Z0FB17095100 
3DFB17095200 
17096000 
17097000 
17096000 
17099000 
17099100 
17099200 
17099900 
£0FB17100000 
17100100 
17100200 
%0FB17101000 
$0FB17101100 


vv 


vv 


wvuvTVVVUeE Vee VU Ve VV Be UT Ve BU oF 


108 
1086 
108 


108 
108 
408 


VOIDED 
VOIDED 


CONFLICTED WITH 
DISCARDED 


CONFLICTED WITHS 
DISCARDED 


CONFLICTED WITHE 
DISCARDED 


CONFLICTED WITH? 
DISCARDED 


CONFLICTED WITH! 
DISCARDED 


CONFLICTED WITH! 
DISCARDED 


CONFLICTED WITH 
DISCARDED 


CONFLICTED WITH? 
DISCARDED 


CONFLICTED WITHS 
VOIDED 
VOIDED 
VOIDFD 
VOIDED 
VOIDED 
VOIDED 
VOTDED 
VOIDED 
VOIDEFD 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 


END3 0FB17102000 P 1086 VOT0ED 
DUNS 17102100 P 108 VOIDED 
PUP2CLASTADDRESS < OsLASTADDRESS,£€21127)917103000 P 108 VOTDFD 
XREFPTsPAY¢1))3 17193010 P 108 VOIDED 
IF XREFPTs=XREFPT41 «© 11 THEN 17103100 P 108 VOIDED 
BEGIN 2DFB17103200 P 108 VOIDED 
XREFPTt203 ZDFB17103300 P 108 VOTDFD 
WRITE CPRINTER S 15,PAYL*])3 ¥DFB17103400 P 108 VOIDED 
BLANKET¢(PAY)3 ZDFB17103500 P 108 VOINED 
FND3 ZO0FB17103600 P 108 VOIDED 
ENDS %0FB17110000 P 106 vOrDED 
IF FALSE THEN FOR?! B28saTRUES 17110500 P 408 VOLDED 
FND3 ZOFB17111000 P 108 VOIDEO 
XREFAY1693,CLASS) > [DOMAX THEN IF [ & 17095000 P 412 CONFLICTED WITH? 
XREFAY(697.CLASS) > 1DMAX THEN 17095000 P 140 DISCARDED 
FIELDID THEN 33 ELSE O ELSE 1) = 4%» 17095100 P 442 CONFLICTED WITH! 
O ELSE 1) x 4), 17095100 P 710 DISCARDED 
ACO} ts 3°777777777777777"3 & BIGGEST FLOATING PT, NO, 17114000 P 440 CONFLICTED WITH?! 
ACO}#®54975584 38873 ZDFB17114000 P 408 DISCARDED 


COMP? t= JF ACO),REFLONOF « BLOJ,REFIONOF THEN & DIF {DS 47417000 P 440 CONFLICTED WITH? 
CoMP?« ABSCAL0]) LEQ ABS¢(BL0))3 17117000 P 108 DISCARDED 


SORTCOUTPUT2+ INPUT2»0°HV2eCOMP2s196000)3 17119000 110 CONFLICTED WITHS 
SORTCOUTPUT2s INPUT2»0*#HV22COMP2e 15 TOTALNO 3 S0FB17119000 P 108 DISCARDED 


a] 


NUMBER OF FRRORS DETECTFD & 0, 
PROCESSOR TrME « 65 SECONDS, 
1/0 TYMp = 40 SECONDS’ 


LABEL OO0D000000LINE 00177234? FXECUTE PATCH/MERGE PATCH /MERGE 


? COMPILE ESPOL/NISK ALGOL LIBRARy 


PACKET 7 

INPUT 1143 CARNS FROM 7Z)7P 
TIME 1604 

DATE 77234 MONDAY, 08/22/77 


*##* BURROUGHS B5700 DCMCP MARK XVI,0,73 AND INTRINSTCS MARK XV1,0,00 #4% 
#NO MESSAGES TODAY 


? COMPILE ESPOL/DISK ALGOL LIBRARY 
? ALGOL STACK# 1000 
? ALGOL FILE TAPF= SYMBOL/ESPOL DISK SERIAL 
? FILE LINE=® LINE PRINT OR BACK UP 
? NATA CARD 
4tALGOL/FSPOL201 SCHEDULED 1601» NFEDS 27328 
StALGOL/ESPOL= 1 BOY 1602 O5/120/77 
COB IN CARN DBtALGOL/ESPOL® 1 
DKA IN SER SYMBOL ESPOL?ALGOL/FSPOLs 1 
PB8D000B8 OUT 011 LINESALGOL/ESPOL= 4 
DKA OUT SER DSkK1 UOOOOOOTALGOL/ESPOL= 1 
DKA OUT SER DSK2 UOQOO000S ALGOL/ESPoL= 1 
DKA OUT RDM ESPOL DISKIALGOL/ESPOLe 3 
#DUP LIBRARY ESPOL/DISKSALGOL ESPOLs 1 
ESPOL/nISK REMOVED 
DKA LOK ESPOL DISKIALGOL/FSPOLe 1 
COR REL CARD DBtaLGOL/ESPOLs 1 
? FND, 
DKA REL SYMBOL ESPOLIALGOL/ZESPOL® 4 
DKA OUT SER DSRTy VOQODOOSALGOL/ESPOL® 1 
DKA OUT SER DSRT2 UOOOOOO:ALGOL/ESPOL= 1 
DKA REL NSRT1 UOOOOOOSALGOL/ESPOL= 1 
DKA REL DSRT2 UOOOONOTALGOL/FSPOL® 1 
DKA OUT SER DSRT1 UOOOOOOSALGOL/ESPOL= 1 
DKA OUT SFR DOSRT2 UOOODDOLALGOL/ESPOL= 1 
PBp0008 OUT O121ALGOL/ESPOL® 14 
DKA REL, DSRT1 UOOQOOOtALGOL/FSPOLe 1 
DKA REL DSRT2 YOOOOOOSALGOL/FSPOLS 1 
OKA REL DSK2 UOOOOOOTALGOL/FSPOL® 1 
OKA REL nNSK1 VOOQOOOSALGOL/ESPOLSs 1 
PBNO008 REL Off LINE 126872ALGOL/ESPOL® 1 
ALGOL/FSPOL= ¢ FOU 1613 
FOR ALGOL/ESPOLs 4% PROCESS= 474 SECS, 10m 269 SECS» OLAYa 9 
PKT#0007 REMOVED 


LABEL 


PRT(22) 
PRT¢23) 
PRT¢2a) 


PRT(25) 


PRT(¢26) 


PRT¢27) 
PRT(30) 
PRTC34) 


PRT(32) 
PRT(33) 
PRT(34) 
PRT(35) 
PRT(36) 
PRT(C37) 
PRTC40) 
PRTC44) 
PRTC42) 
PRT¢43) 
PRT(44) 


PRT¢45) 


PRT(46) 


OOOND00000LINE 


a 


00177234? COMPILE FSPOL/DISK ALGOL LIBRARY 


BURROUGHS B8#5700 ALGOL COMPILER MARK xV1,0,122 MONDAY» 


FSPOL /DISK 


SOURCE FILE: SYMBOL /ESPOL 


$SET OMIT LISTA = LIST 
BEGIN COMMENT OUTERMOST BLOCK3 
*L1ST. LABELe OR SEGMENT NESCRIPTOR# 
*OUTER BLOCK nESCRIPTOR* 
*SEGMENT DESCRYIPTOR* 


INTEGER ERRORCOUNT? COMMENT NUMBER OF ERROR MSGS, MCP WILL TYPE 
ERRORCOUNT 


08/22/77» 


K1i13- 


4102 PM, 


00000999 
00500000 


START OF SEGMENT 


SYNTX ERR aT EOJ IF THIS IS NON®@ZERO, MUST Be @R4253 
INTEGER SAVETIMES COMMENT SAVE*FACTOR FOR CODF FILEe GIVEN BY MCP, 


SAVETIME 


1F COMPILE & GO «0, FOR SYNTAXs ==1, MUST BE AT R426} 


INTEGER CARDNUMBERS & SE@ # OF CARD BEING PROCESSED, 


CARDNUMBER 

INTEGER CARDCQUNT? % NUMBER OF CARDS PROCESSED, 
CARDCOUNT 

BOOLEAN BUILDLINE} 
BULLDOLINE 


COMMENT RR1*RRyy ARE USED IN SOME PROCEDURES IN 
PLACE OF LOCALS TO SAVE STACK SPACE} 
REAL RRieRR2oRRZORRG RRS »RROORR7Z oRRGAORRIA*RRIOSRRIY?E 


RR1 
RR2 
RR3 
RR4 
RR5 
RR6 
RR7 
RRB 
RRO 
RR10 
RR11 
COMMENT SOME OF THE RR1I ARE USEn TO PASS FILE INFORMATION 
TO THE MAIN BLOCK; 
COMMENT EXAMTN RETURNS THe CHARACTER AT ABSOLUTE ADDRESS NCR} 
REAL STREAM PROCEDURE EXAMYNCNCR)$ VALUE NCRI 
FXAMIN 
BEGIN SJeNCRIDI#LOC EXAMINSDI«+DI473 DS*CHR ENDS 
INTEGER STREAM PROCEDURE GETFCQ)3VALUE Q3 
GETF 


00501000 


00502000 
00503000 


00504000 
00504100 


005040150 
00504700 
00505000 


00506000 
00507000 


00508000 
00509000 
00510000 
00511000 


00512000 


00523000 


ALGOL /ESPOL 
C 00011000080 
T 00011000080 
ere Tt rs tt. 

T 00021000080 
T 00021000030 
T 00028000010 
T 00021000010 
T 00021000010 
T 00021000010 
T 00021000010 
T 00021000010 
T 00021000080 
T 00021000010 
T 00024000030 
T 00021000010 
T 00021000080 
T 00021000010 
T 00021000030 
T 00021000210 


BEGIN SI*LOC GETFS SleSIl#73DI LOC QIDLeDI4S3 00524000 T 00021000290 
SKIP 3 DBS 9CIF SR THEN DSeSET ELSE DS*RESET$ SKIP SB)3 00525000 T 000210003%2 
NT*LOC QSSr+OsPSewWDSsSypeQsGETFeS] 00526000 T 00021000532 
END GETF3 00527000 T 0002800063 
COMMENT START SETTING UP FILE PARAMFTERSS 00528000 T 0002!0007!3 
TF FXAMINGRR1GeGETEO324"YO8") #12 THEN RR1*5 ELSE 00529000 T 0002!000713 
REGIN RR{#2?RR2¢150 ENDS 00530000 T 00024001312 
IF EXAMIN¢CRR114+5) #12 THEN RR3¢4 FLSE 00531000 T 000280046!1 
BEGIN RR3e23 RR4e450 ENDS 00532000 T 000218002010 
JF EXAMINCRR114+10)"8192 THEN 00533000 T 00028002210 
BEGIN RR5¢2sRR6¢103RR74150 END ELSE 00534000 T 00021002410 
BEGIN RR5ei3RR6*563RR7410 FND} 00535000 ¥ 000280027!2 
IF EXAMINCRR114159=12 THEN 00536000 T 00023002933 
BEGIN RRB«+103RR9¢150 E€NO ELSE 00537000 TF 00021003210 
BEGIN RR8e50%10450413 RRIe{O FNS 8901 00538000 P 00021003410 
BEGIN COMMFNT MAIN BLOCK3 01000000 y 00021003713 
INTEGER OPYNXS & USED FOR INDEXING NTO OPTYONS ARRAY, 01000800 T 000280037!3 
PRTC47) & *SEGMENT DESCRIPTOR# 
START OF SEGMENT *eeeutaney 3 
PRT¢50) = OPINX 
ROOLEAN SETTINGS % USED BY DOLLARCARD FOR AN OPTION"S SETTING, 01000802 YT 00032000080 
PRT(51) = SETTING 
INTEGER NEWINX, ADOVALUE» BASENUM, 01000860 T 000380000!0 
PRT¢(52) = NeEWENX 
PRT(53) = ANDVALUE 
PRT(¢54) = RASENUM 
PRT¢55) = TOTALNO 
DEFINE OPARSIZE = 200 #3 01000902 T 0003180000!0 
ARRAY OPTTONSCOLSOPARSIZE]3 01000904 T 0003%80000t0 
PRT¢56) = OPTIONS 
BOOLEAN OPTIONWORD3 01000910 T 000380002381 
PRT(57) = OPTIONWORD 
DEFINE CHECKBIT = 1%, 01000990 T 00038000234 
DEBUGBIT = 24, 01000930 T 00038000231 
NFECKBIT = 3, 01000940 T 000310002!1 
FORMATBIT = 4t, 01000950 T 0003!0002!1 
INTBIT = 5#, 01000960 T 000320002814 
LYSTABYT s 6%, 01000970 TF 00038000231 
LISTBLT = «67#, 01000980 T 000380002! 
LYSTPAYT = § 8#, 01000990 Y 00038000281 
MCPBIT s «698, 01001000 T 00038000284 
MERGEBYTT = 10#, 01001010 T 000380002%14 
NESTBIT = 11#, 01001020 T 00031000281 
NEWBIT = 12#, 01001030 T 00031000283 
NEWINCLBIT s 13#, 01001040 T 00038000281 
OMITBIT = 148, 01001050 T 00038000284 
PRINTNOLLARBIT 3 154, 01001060 T 000380002%1 
PRTBIT = 16#, 01001070 T 000310002%1 
PUNCHBATIT = 47#, 01001080 T 00038000234 
PURGEBTT = 78%, 01001090 T 00031000231 
SEGSBIT = 198, 01001100 T 00038000281 
SEQByT = 20%, 01001110 T 00038000284 
SFQERRBIT = 01001120 T 00038000284 


PRT(60) 
PRT¢64) 


PRT¢69) 


PRT(63) 
PRT(6a) 
PRT( 65) 
PRT(66) 
PRT(67) 


NOHEAD 
NFWBAS 


LASTCR 


XMODE 


NOLLAR 
ERRMAX 


COMMENT 


DEFINE 


COMMENT 


BOOLEAN 
ING 
BOOLEAN 
E 
BOOLEAN 
DPATCH 


INTEGER 
BOOLEAN 
T0G 

INTEGER 


BOOLEAN 


SFQXEQTOG 


LISTER 


BOOLEAN 


SINGLBYT 
STUFFBIT 
VOIDBIT 
VOIDTS8IT 
XREFBIT 
BENDBIT 
USFROP NX 


1F A NEW COMPILER#DEFINED OPTION TS ADNEDs 
AND ADD OPTION IN DEFINES BELOWs IN DOLLARCARDs AND IN 


HR nH UR 


= 


2o%, 
23%, 
24%, 
25#, 
26%, 
a7v#, 
288} 


FILL STATEMENT IN INTTYALIZATION OF COMPILERS 


CHECKTOG 
DEBUGTOG 
DECKTOG 
FORMATOG 
INTOG 
LISTATOG 
LISTOG 
LISTPTOG 
MCPTOG 
MERGETOG 
NESTOG 
NEWTOG 
NEWINCL 
OMITTING 


PRINTDOLLARTOG 


PRTOG 
PUNCHTOG 
PURGETOG 
SFGSTOG 
SFQTOG 


SEQTOG INDICATE 


SFQERRTOG 
SINGLTOG 
STUFFTOG 
VOTOING 
VOTOTAPE 
XREF 
BEND 
NUMMY 
NOHEADING?) 


NEWBASEF3 
LASTCRDPATCH! 


XMODE 3S 
DOLLARTOGS 
ERRMAX3 
SEQXEQTOG3 
LISTER? 


% 


= 


“7H Nu HHH HAHN On Hh eR Hehe ht ee Hh OHH Ou ha Os a 


OPTYONWORD.CCHECKBITI1) #e 
OPTIONWORDeCDEBUGBIT?21) #e 
OPTIONWORD.CDECKBIT#{1) #e 
OPTIONWORD,CFORMATBIT!1) #s 
OPTLONWORD,CINTBITI1) #s 
OPTIONWORD,(CLISTABIT31] #e 
OPTFONWORD,CLISTBIT#1] #' 
OPTTONWORD,CLISTPBITIH1) #e 
OPTTONWORND ,FMCPBIT!14) 
OPTTONWORD,CMERGEBITII) #s 
OPTTONWORD, CNESTBITS1) #, 
OPTrONWORD,CNEWBITS1) se 
OPTTONWORND,CNEWINCLBIT!S1) #e 
OPTIONWORD,COMITBIT31) #- 
OPTrONWORD, CPRINTDOLLARBYT14) &e 
OPTIONWORD,CPRIBITIS4] # 
OPTTONWORHD,CPUNCHBITI1] #» 
OPTYONWORD, CPURGEBIT#1) #» 
OPTrONWORD.CSEGSBITE1) 
OPTIONWORD,CSEQBIT!1) #, 
RESFQUENCTNG IS TO Be DONES 
OPTTONWORD, CSEQERRBIT!41)} #, 
OPTIONWORDsCSINGLBIT#H1] #» 
OPTIONWORD,CSTUFFBITI4)] #e 
OPTIONWORDeLVOIDBITS1) #s 
OPTIONWORNeLVOIDTBIT#1] #e 
OPTIONWORD,CXREFBITI4] #e 
OPTIONWORNDsLBENDBITS1 34> 


#} 
RUE IF DATIME HAS NOT BEEN CALLED. 


NEW BASENUM FOUND ON A NEW $#CARD, 


NORMALLY FALSE» 


LAST CARD FROM SYMBOLIC LIBRARY READ 


1S PATCHED FROM THE CARD READER, 


TELLS DOLLARCARD HOW TO SET OPTIONS, 


TRUE ¥F SCANNING A DOLLAR CARD, 


COMPILATION STOPS IF EXCEEDED, 


GIVE SEQ. NOe WHEN DSwING OBY, 


LISTOG OR LISTATOG OR DEBUGTOG, 


SET TO TRUE WHEN THE 


%108@ 
%106« 
%108« 


CHANGE USEROPINX 


%106- 
4106 


01001130 
01001140 
01001150 
01001160 
01001170 
01001171 
01001172 
01001160 
01001190 
01001200 
01001210 
01001220 
01001230 
01001240 
01001250 
01001260 
01001270 
01001260 
01001290 
01001300 
01001310 
01001320 
01001330 
01001340 
01001350 
01001360 
01001370 
01001380 
01001390 
01001400 
01001410 
01001420 
01001430 
01001440 
01001450 
01001460 
01001461 
01001462 
01001470 
01001480 


01001490 
01001500 
01001510 
01001520 
01001530 
01001540 
01001550 
01001560 
01001570 
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0003'0002%4 
00033000233 
00038000231 
00031000211 
00033000234 
00038000284 
00033000281 
000380002%4 
00031000231 
00038000211 
000380002814 
0003!0002!1 
0003'000281 
00033000211 
00031000211 
00038000231 
00031000281 
00031000214 
0003:000214 
0003!0002?1 
00038000284 
00032000284 
00038000284 
00032000284 
00031000284 
0003000214 
00032000211 
00031000211 
00038000281 
00038000214 
00038000284 
0003!80002!; 
00033000231 
00031000281 
00038000211 
00038000214 
00031000284 
00038000231 
0003!0002914 
000310002t14 


00030002314 
00031000284 
0003800024 
00031000281 
00038000291 
00038000231 
000320002314 
00033000284 


00032000231 


PRT¢70) 
PRT(74) 
PRY(¢792) 
PRT¢73) 


PRT¢74) 


PRT¢75) 


A 
MEDIUM 
I 


MYCLASS 
REAL BATMAN3 % USFp 1N DOLLARCARD FVALUATION, 
BATMAN 
ARRAY SPECTALLOS3193 
SPECIAL 
COMMENT THIS ARRAY HOLDS THE INTERNAL CODE FOR THE SPECIAL 
CHARACTORS! 17 +S FILLED DURING INITIALIZATIONS 
ARRAY INFO (02197202255) 
INFO 
PEPSE LEVEL SLES ELE ET SLEEP RECEP eee CCC ete cer PTET ert Terr rrci rer ey Tad tt 
% XReEF STUFF ¥110° 
SE me he ete ei a ok ae a tok a KK EO 
% ¥110= 
ARRAY R110" 
XREFAY2(0229), % ARRAY OF ONE WORD REFERENCE RECORDS, Z110# 
XREFAY2 
THE LAYOUT OF EACH WORD 1S *110# 
110° 
of185) TYPE OF REFERENCE %110° 
# 0 FOR FORWARD DECL %110« 
= 1 FOR LABEL OCCURENCE £1108 
# 2 FOR NORMAL DECL Z110- 
= 4 FOR NORMAL REFERENCE 41108 
* 5 FOR ASSIGNMENT ¥110° 
%110° 
NOTE? THE LOWER ORDER BIT 


PRTC76) = XREFAY] 


LPHA MFEDIUM$ 


NTEGER MYCLASS3 


XREFAYI(O89 Je 


% INPUT IS! 


TeCeoPeCAsCBeCC, 


% USED 1N DOLLARCARD EVALUATION, 


z 
z 
x 
% 
% 
% 
z 
% 
gz 
% 
% 
z 
% 
z 
% 
% 
z 
% 
% 
z 
% 
x 
| 


Be Fe HR BA BARE BR BE BA BE OE DE BK 


WORDS 07 


0f6315] IDENTIFIER ID, 


OF THIS FIELO 3S ON 
IF YOU WANT STARS&110# 
AROUND THIS REFERENCE 


IN THE XREF 


NO, 


*110° 
%110° 
¥110« 


THIS 18 A UNIQUE NUMBER THAT 


1S ASSIGNED WHEN THE 
IDENTIFIER IS ENCOUNTEFRE 
FOR THE FIRST TIME, 


eC2it27) SEQUENCE NUMBER 


SYMBOL TABLEr IeE. 
IN WHICH THE IDENTIFIER IS DECLARED, 


WORD & 


(21812) 


RECORD BUFFER AREA FOR WRITING OUT THE 
NAME INFORMATION RECORDS, ONE RECORD 
IS WRITTEN FOR EACH IDENTIFIER IN THE SYMBOL 
TABLE WHEN THE IDENTIFIER IS PURGED FROM THE 
WHEN LEAVING THE BLOCKY110« 
THE LAYOUT OF EACH RECORD 158! 
THE IDENTIFIER WITH BLANK 
FILL ON THE RIGHT 


SEGMENT NUMBER IN WHICH 


¥110" 
¥110= 
%110« 
%1108 
110° 
%1109 
£1106 


¥110° 


£1100 
%110" 
%110° 
61108 
%110# 
%140° 
%110= 
%140= 
¥110° 


01001580 
01001590 
01001600 
01003000 


01004000 
01005000 
01006000 
01007000 


01007005 
01007010 
01007015 
01007020 
01007025 
01007030 


01007035 
01007040 
01007045 
01007050 
01007051 
01007055 
01007060 
01007065 
01007070 
01007075 
01007080 
01007085 
01007090 
01007095 
01007100 
01007105 
01007110 
01007115 
01007120 
01007125 
01007130 
01007135 
01007440 
01007145 


01007150 
01007155 
01007160 
01007165 
01007170 
01007175 
01007180 
01007485 
01007190 
01007195 


01007200 


01007205 
01007210 


—~ - 


aa44 — 
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00038000231 
0003180002814 
00033000231 
00038000211 


000310005!2 
0003t0005!2 
000380005!2 
00038000582 


000310007183 
00038000783 
00038000733 
00038000733 
000318000713 
00038000783 


00031001034 
00033001081 
00038004031 
00031004084 
00038001084 
000318001084 
00031001081 
00031001031 
00031001084 
00038100;0%1 
00038004094 
00038004081 
0003380010!1 
00033004034 
00033004034 
00033001031 
0003900;40%14 
000330010384 
00038001081 
00038004081 
00033004084 
00038001;0t1 
00034900,0!4 
000310040!34 


0003400132 
000310014382 
00031004382 
0003#0013%2 
00031004382 
00031001382 
00038001332 
000320043!%2 
000390043142 
00038001332 
00033004332 
000340014312 
000310013!2 


XINFOP0231208127)3 
PRTC77) # X1tNFO 


INTEGER 
XREFPT» 
PRT¢100) = XREFPT 


Be PL DR SR FL Bl BE BQ HR FO 2A VA ae BQ BE DG DR HE SL BO BE 3 Bee DE ae TL FR BC 


BR We DR DR JO 


THIS YDENTIFTER WAS DECLARED 


110° 

0633415] IDENTIFIER Ip, NO, erie 
%110" 

WORD 9 ELBAT WORD %110° 
%110= 


THIS ARRAY CONTAINS ONE ENTRY FOR EACH ENTRY 


IN THE INFO TABLE, IF YOU HAVE THE INDEX £1108 
OF THE ELBAT WURD FOR AN IDENTIFIER IN £110- 
THE tNrO TABLE YOU CAN FIND THE XINFO WORD%1102 


FOR THE IOENTIFIER BY REFERRING TO} %110« 
¥110° 

XINFOCINDEX,LINKRe INDEX,LINKC DIV 2) *110= 
¥110" 

EACH ENTRY CONTAINS? #110# 
¥110= 


o€21%912) SEGMENT NUMBER IN WHICH 
THIS IDENTIFIER WAS DECL 
%110° 
0€33815) IDENTIFIER ID, NO, %110- 
IF THIS ID. NO. IS ZERO 
THEN XREF WAS NOT ON 
AT THE TIME THE IDENT 
WAS DECLARED AND ALL 
FUTURE REFERENCES WHLL 


BE DISCARDED, %110- 

£1108 

%110- 

CONTAINS INDEX OF NEXT AVAILABLE SLOT JN %410 

XREFAY2. WHEN THIS BECOMES GREATER 41109 
THAN 30 THE CURRENT ARRAY IS DUMPED TO DISK 

AND XREFPT IS RESET TO ZERO, 21108 

%110« 


XLUN3 THIS VARIABLE CONTROLS THE ASSIGNING OF ¥1108 
PRT¢C101) = XLUN 

% IDe NO, TO IDENTIFIERS. IT 1S INCREMENTED £110 

® EACH TIME A NEW IDENTSFIER 1S ENCOUNTERED, £1102 

z %110« 

DEFINE x %110= 

SEGNOF = L2t%12)#, % FLIELOS IN XINFO ENTRIES AND WORD 8 OF Z110° 

TONOF 2 733845) #> % IDENTIFIER RECORDS, %110¢ 

x %1108 

TYPERFF = C1!S]#, % FIELOS OF REFERENCE WORDS £110" 

REFIONOF =L6'45)#, % %110° 

SFQNOF = [21°827)#, % %110* 

4 %110« 

XREFITCINDEX*SEQNO#REFTYPE) = ® DEFINE TO ADD INFO TO REF TABLE 81108 

BEGIN TF XREF THEN CROSSREF ITCINDEXsSEQNO,REFTYPE)3 END#, %110- 

x #1108 


XMARK¢(REFTYPE) =# 


% 


DEFINE TO CHANGE LAST ENTRY IN REF TABLE TO A 


BEGIN 1F XREF THEN XREFAYOCXREFPT=1),TYPEREF $= REFTYPE END#®, £1108 
% 


£1409 

XREFDUMPCINDEX) = % DEFINE TO DUMP SYMBOL TABLE INFO FOR IDENTIFIER 
BEGIN IF DEFINING. £131) THEN CROSSREFDUMPCINDEX)3 END&e 1108 

z %110 


01007215 
01007220 
01007225 
01007230 
01007235 
01007240 
01007245 


01007250 
01007255 
01007260 
01007265 
01007270 
01007275 
01007280 
01007285 
01007290 
01007295 
01007300 
01007305 
01007310 
01007345 
01007320 
01007325 
01007330 
01007335 
01007340 
04007345 
01007350 
01007355 


01007360 
01007365 
01007370 
01007375 
01007380 


01007365 
01007390 
01007395 
04007400 
01007405 
01007410 
01007415 
01007420 
01007425 
01007430 
01007435 
01007440 
01007445 
01007450 
01007455 
01007460 
01007465 
01007470 
01007475 
01007480 
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0003!004312 
00031004312 
00031004382 
00031004382 
00031004382 
00034004312 
00031004312 


000310014533 


00038001583 


00031004513 
00038004583 
00031001583 
00031004583 
00031004583 
00038001583 
00031004513 
00031004583 
00031004593 
00031004583 
00031003533 
00031004583 
00031004593 
00031003513 
00031004513 
00038003583 
00038003583 
00031004513 
00031004513 
00033003533 


00033004583 
00031001583 
00031004533 
00031004583 
00031001533 


000310015%t3 
00033004533 
00033004583 
000310045183 
00031001583 
00031004513 
00038004583 
00033001523 
00032004533 
00031004533 
00031004513 
0003100145383 
00033001533 
00038004513 
00031004583 
00031001583 
000330074583 
00033001583 
000380045283 
00032004583 


XREFINFOFINDEX) «& % DEFINE TO TRANSLATE INFO ROW AND COLUMN TOKG108 01007484 Cc 00038004583 
XINFOLCINDEX) +LINKReCINDEX),LINKC DIV 23%, &® XINFO ROW AND COL 21108 01007482 ¢ 00038004533 
z Z110° 01007483 C 000310045!3 
FORWARDREF @ OF, % DEFINES FOR DIFFERENT REFERENCE TYPES %¥110« 01007485 ¢ 000330014533 
LBLREF = {#, z %110" 01007486 c 00031003533 
DECLREF = 28, z %110° 01007490 C 000310014533 
NORMALREF = 4¥e % %110= 01007695 Cc 000380045383 
ASSIGNREF #& 5¥#3 g K110" 01007500 ¢ 00031001533 
ARRAY BEGINSTACK£LO#255]3 INTEGER BSPOINT3 %108° 01007600 C 00038004533 
PRTC102) = BEGINSTACK 
PRT¢C103) ©& RSPOINT 
: BOOLEAN DEFYININGS %108" 01007650 c 00031001810 
PRTC104) =& HEFINING 
COMMENT INFO CONTAINS ALL THE INFORMATION ABOUT A GIVEN IDENTIFIER 01008000 T 00031001810 
OR RESERVED WORD, THE FIRST WORD OF A GIVEN ENTRY 1S 01009000 T 0003300;,8!0 
THE INTERNAL CODE ¢ OR ELBAT WORD AS [{T 7S USUALLY 01010000 T 0003180014830 
CALLED). THE SECOND WORD CONTAINS THE FORWARD BIT CIN 01011000 T 0003100;8!0 
C1643) FOR PROCEDURES, THE LINK TO PREVIOUS ENTRY CIN 01012000 T 000330078380 
f4%8})» THE NUMBER OF CHARACTORS IN THE ALPHA REPRESENTA®@ 01013000 T 0003#0018!0 
TION CIN £1236))* ANO THE FIRST 5 CHARACTORS OF ALPHA, 01014000 T 00033004810 
SUCCEDING WORDS CONTAIN THE REMAINING CHARACTORS OF ALPHA. 01015000 T 000380018!0 
FOLLOWED BY ANY ADDITIONAL INFORMATION, THE ELBAT WORD 01016000 T 000310048!0 
AND THE ALPHA FOR ANY QUANTITY ARE NOT SPLIT ACROSS &A ROW 01017000 T 00031001830 
Of INFO, FOR PURPOSES OF FINDING AN IDENTIFIER OR 01018000 T 00033001810 
RESERVED WORN THE QUANTITIES ARE SCATTERED INTO 125 01019000 ~ 00031004810 
DOIFERENT LISTS OR STACKES, WHICH STACK CONTAINS A QUANTITY 01020000 T 00038004890 
1S GIVEN BY TAKING NAAAAA MOD 125 WHERE N IS THE NUMBER 01021000 T 000320018!0 
OF CHARACTORS AND AAAAA IS THE FIRST 5 CHARACTORS OF 01022000 T 00031004830 
ALPHAs FILLED IN WITH ZEROS FROM THE RIGHT IF NEEDED, 01023000 T 00031004610 
THIS NUMBER 1S CALLED THE SCRAMBLE NUMBER OR INDEX, 01024000 T 00031001880 
THE FIRST ROW OF INFO IS USED FOR OTHER PURPOSES, THE 01025000 T 0003:0018:0 
RESERVED WORDS OCCUPY THE SECOND ROW, IT IS FILLED DURING 01026000 T 00038001810 
INITIALIZATIONS 01027000 T 000320014830 
COMMENT INFO FORMAT 01028000 T 00031004630 
FOLLOWING IS A DESCRIPTION OF THE FORMAT OF ALL TYPES OF ENTRIES 01029000 T 0003800;86:!0 
ENTERED {N INFOS 01030000 T 00038003810 
THE FIRST WORD OF ALL ENTRIES 1S THE ELBAT WORD, 01031000 T 000380018!0 
THe INCR FIELD ¢£27%8)) CONTAINS AN [NCREMENT WHICH WHEN 01032000 T 00034004810 
ADDED TO THE CURRENT {NDFX INTO INFO YELOSAN TNDEX TO ANY 01033000 T 0003100;,8!0 
ADDITIONAL INFO CIF ANY) FOR THIS ENTRY, 01034000 T 0003200;8!0 
ElG. IF THE INDEX 1S IX THEN INFOCCIX#INCR)LINKROCIX#INCR), 01035000 T 000380014810 
LINKC) WILL CONTAIN THE FIRST WORD OF ADDITIONAL INFO, 01036000 T 0003!001810 
THE LINK FIELO OF THE ELBAT WoRD IN INFO IS DIFFERENT FROM 01037000 T 00038001830 
THAT OF THE ENTRY IN ELBaT PUT IN BY TABLEeTHE ENTRY IN ELBAT 01038000 T 0003!0048!0 
POINTS TO ITS OWN LOCATION CRELATIVE) IN INFO, 01039000 T 00031001830 
THE. LINK IN INFO POINTS YO THE PREVIOUS ENTRY EoGyoTHE 01040000 T 000340048!0 
LINK FROM STACKHEAD WHICH THE CURRENT ENTRY REPLACEDs 01041000 T 00032003830 
FOR SIMPLICITYs!I WILL CONSIDER INFO TO BE A ONE DIMENSIONAL 01042000 T 00038001830 
ARRAY»SO THAT THE BREAKING UP OF THE LINKS INTO ROW AND COLUMN 01043000 T 00033004810 
WILL NOT DeTRacT FROM THe p1ScuSStION, 01044000 T 000390014880 
ASSUME THAT THREE IDENTIFIERS A»BeAND C "SCRAMBLE" INTO 01045000 T 0003100;810 
THE SAMF STACKHEAD LOCATON IN THE ORDER OF APPEARANCE, 01046000 T 00038003680 
FURTHER ASSUME THERE ARE NO OTHER ENTRIES CONNECTED To 01047000 T 00038004810 
THYS STACKHEAD INDEX, LET THIS STACKHEAD LOCATION BE 01048000 T 000330038:0 
Stl] 01049000 T 000340043830 
NOW THE DECLARATION 01050000 T 00038001820 
BEGIN REAL AeBeC IS FNCOUNTERED 01051000 T 0003100180 


TF THE NEXT AVAILABLE NFO SPACE 1S CALLEN NEXTINFO 
THEN A TS ENTERED AS FOLLOWStcC ASSUME AN ELBAT WORD T HAS BEEN 
CONSTRUCTED FOR A) 
T,LINKe S€uJ, CWHICH 1S ZERO AT FIRST), 
INFOCNEXTINFOJeT. SELI*NEXTING Oe 
NEXTINFO®NEXTINFO+NUMBER OF WORDS IN THIS 
ENTRY» 
NOW SCL] POINTS TO THr FNTRY FOR a EN INFO AND THE ENTRY 
ITSFLF CONTAINS THr STOP FLAG ZERO, 
B 1S ENTERED SIMILARLY TO A, 
NOW Srly PorNTS TO THe ENTRY FOR B AND {T POINTS TO THE 
ENTRY FOR A, 
SIMILARLYeAFTER C IS ENTERED 
SLL] POINTS To CoWHOSE ENTRY POINTS To B WHOSE ENTRY 
POINTS To Ae 
THE SECOND WORD OF EACH ENTRY IN INFO IS MADE UP AS FOLLOWS! 
FWOPT #(1814]-THIS TELLS WHETHER A PROCEDURE WAS DECLARED 
FORWARD.IT IS RESET AT THE TIME OF ITS ACTUAL 
FULL DECLARATION, 
PURPT #(4:8) THIS GIVES A DECREMENT WHICH GIVES THE RELATIVE 
INDEX TO THE PREVIOUS INFO ENTRY WHEN SUBTRACTED 
FROM THE CURRENT ENTRY INDEX, 
[1286] TELLS THE NUMBER OF CHARACTERS IN THE ENTRY,(<64) 
r18830) CONTAINS THE FIRST FIVE ALPHA CHARACTERS OF THE ENTRY 
AND SUCCEEDING WORDS CONTAIN ALL OVERFLOW IF NEEDED, 
THESE WORDS CONTAIN 8 CHARACTERS EACHsLEFT JUSTIFIED. 
THUS®AN ENTRY FOR SYMBOL FOLLOWED BY AN ENTRY 


FOR xX WOULD APPEAR AS FOLLOWS! 
INFOCIt] = ELBATWRD CMADE FOR SYMBOL) 
J+{ 8 OP6SYMBO cP DEPENDS ON PREVYOUS ENTRY) 
J+2 = Le 
1+3 & ELBATWRD CMADE FOR X) 
1+4 = 031X 


THIS SHOWS THAT INFOLI=P] WOULD POINT TO THE BEGINNING OF 
THE ENTRY BEFORE SYMBOL» AND 
tNEOCT4+3"3) POYNTS TO THe ENTRY FOR SYMBOL, 
ALL ENTRIES OF INDNETIFIERS HAVE THE INFORMATION DESCRIBED ABOVE 
THAT 1SeTHE FLBAT WORD FOLLOWED By THE WORD CONTAING THE FIRST 
FIVE CHARACTERS OF ALPHAsAND ANY ADDITIONAL WORDS OF ALPHA IF 
NECESSARY, 
THIS 15 SUFFICIENT FOR ENTRIES OF THE FOLLOWING TYPES» 
REAL 
BOOLEAN 
INTEGER 
ALPHA 
FILE 
FORMAT 
LYST 
OTHER FNTRIES REQUIRE ADDITIONAL INFORMATION, 
ARRAYS? 
THr FIRST WORD OF ADDITIONAL INFO CONTAINS THE NUMBER OF 
DIMENSIONSCIN THE LOW ORDER PART).(4018) 
EACH SUCCEEDING WORD CONTAINS INFORMATION ABOUT EACH LOWER 
BOUND IN ORDER OF APPEARANCES ONE WORD FOR EACH LOWER BOUND, 
THESE WORDS ARF MADE UP AS FOLLOWS! 
r23%12) sADD OPERATOR SYLLABLE (0401) OR 
SUB OPERATOR SYLLABLE ¢0301) CORRESPONDING 


01052000 
01053000 
01054000 
01055000 
01056000 
01057000 
01058000 
01059000 
01060000 
01061000 
01062000 
01063000 
01064000 
01065000 
01066000 
01067000 
01068000 
01069000 
01070000 
01071000 
01072000 
01073000 
01074000 
01075000 
01076000 
01077000 
04078000 
01079000 
01080000 
01081000 
01082000 
01083000 
01084000 
01085000 
01086000 
01987000 
01086000 
01089000 
01090000 
01091000 
01092000 
01093000 
01094000 
01095000 
01096000 
01097000 
01098000 
01099000 
01400000 
01101000 
01102000 
01103000 
01104000 
01405000 
01106000 
01107000 
01108000 
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000328004810 
00031001870 
00038004880 
00032004830 
00038001880 
0003:0016:0 
00033001830 
0003:0014830 
0003800480 
00038004820 
00038004880 
0003%00,8!0 
00038001810 
000380014680 
00031001810 
00038004820 
00038004880 
00031001830 
00033004840 
00033001880 
0003:001610 
00031001810 
00031001830 
00031004810 
00031004810 
000380071830 
00031004820 
0003%0036!0 
00038004880 
00038003;8:0 
00031004810 
00033001810 
000310014810 
00031004810 
000310048!0 
0003!004830 
0003001630 
00031001610 
0003%007,890 
000318004810 
0003!0018!0 
000310018!0 
00031001610 
000330014680 
00031003680 
000318001810 
00038001610 
00031003810 
000320038130 
00031004880 
00033004610 
00032004810 
0003#0048%0 
00031004810 
00031004630 
0003100, 8!0 
0003100;810 


RESPECT] 


VELY TO WHETHER THE LOWER BOUND 1S 


TO BE ADDEN TO THE SUBSCRIPT IN INDEXING OR 


SUBTRACT 


ED, 


635%11) #11 BIT ADDRESS OF LOWER BOUNDe IF THE LOWER BOUND 
REQUIRES A PRT OR STACK CELLsOTHERWISE THE 8yT 
35 IS IGNORED AND THE NEXT TEN BITS¢£36#10)) 
REPRESENT THE ACTUAL VALUE OF THE LOWER BOUND 
f4682) 200 OR 10 


PROCEDURES 


IS A LIT 


DEPENDING ON WHETHER THE (35211) VALUE 
ERAL OR OPERANDsRESPECTIVELY, 


THE FIRST WORD OF ADDITIONAL INFO CONTAINS THE NUMBER OF 
PARAMETERS (4018) 
If A STREAM PROCEDURE THEN TH1S WORD CONTAINS ALSO IN 


ri3%411) ENDING 


PRT ADDRESS FOR LABELS» 


[ 796) NO OF LABELS REQUIRING PRT ADDRESSES, AND £146] NUMBER 


Or LOCALS, 


SUCCFEDING WORDS CONE FOR EACH FORMAL PARAMETERs IN ORDER 


OF 


APREARANCE IN FORMAL PARAPART) ARE 


ELBAT WORDS SPECIFYING TYPE OF EACH PARAMETER AND WHETHER 
VALUF OR NOT¢(¢1081)), 
THE ADDRESS(r16811)) 18 THE Fe ADDRESS FOR EACH, 

If THE PARAMETER 1S AN ARRAY THEN THE INCR FIELDCE27#8)) 

CONTAINS THE NUMBER OF DIMENSTONS, OTHERWISE INCR 1S MEANINGLESS. 
LNK¢(35813)) 1S MEANINGLESS, 

1F A STREAM PROCEDURE THEN THE CLASS OF EACH PARAMATER JS 

THAT OF LOCAL ID OR FILF 1De DEPENDING ON WHETHER OR NOT A RELEASE 
1S DONE IN THE STREAM PROCEDURE, 


LABELS! 


AT DECLARATION TIME THE ADDITIONAL INFO CONTAINS O, THE SIGN 

BrT TELLS WHETHER OR NOT THE DEFINITION POINT HAS BEEN REACHED, 
THEN £36312] CONTAINS AN ADDRESS JIN CODEARRAY OF A 
LrST OF FORWARD REFERENCES TO THIS LABEL. THE END OF LIST FLAG IS 
O: IF SIGN 20. THEN £36842] CONTAINS L FOR THIS LABEL, 


IF SIGN = Os 


SWITCHES! 


THE FIELD £36312] CONTAINS L FOR THE BEGINNING OF SWITCH DECLAR® 
ATION, £2434217 CONTAINS L FOR FIRST SIMPLE REFERENCE TO SWITCH, 
IF SWITCH 15 NOT SIMPLE. 37 TS MARKED FORMAL, HERE SIMPLE MEANS 
NO POSSIBILITY OF JUMPING OUT OF A BLOCK, 3 
DEFINE MON 


CLASS 


ee 43 Like 
ml 2t 7TJ)#»s 


FORMAL#( 9t 178» 


vO 
LVL 


wtyOt 1)8> 
welCqit So#. 


ADDRESSS(16:11) > 


INCR 
LINK 
SBITF 
NBITF 
LINKR 
LINK 


COMMENT THESE NEFINES ARE 
MON +S THE BrT WHICH 1S ON IF THE QUANTITY IS MONT TORED, 
CLASS IS THE PRINCIPAL IDENTIFICATION OF A GIVEN 


QUANT]TY, 


BCLO7t 81k» 

sC35t13)4> 

={[21:6)#. ¥ STARTING BIT FOR FIELD ID. 112° 
e(2716)]#, & NUMBER OF BITS FOR FIELD 10,8112" 
ef35: Sie, 

#(u0s 8)#3 

USep TO PICK APART THE ELBAT WORD, 


FORMAL IS THE Brt WHICH IS ON IF THE QUANTITY TS A FORMAL 
PARAMETER, 
VO IS THE VALUF*OWN ByT, IF FORMAL = 1 THEN THE ByT 


DISTINGUY 


SHES VALUE PARAMETERS FROM OTHERS, IF 


01109000 
01110000 
01111000 
01112000 
01443000 
01114000 
01415000 
011416000 
01117000 
01118000 
01119000 
01120000 
01121000 
01122000 
041123000 
01124000 
01425000 
01426000 
01427000 
014428000 
011429000 
01130000 
01131000 
01132000 
01133000 
01134000 
01135000 
01136000 
01137000 
01138000 
01139000 
01140000 
01141000 
01142000 
01143000 
01444000 
01445000 
01146000 
01147000 
01148000 
01149000 
01150000 
01151000 
01152000 
01153000 
01154000 
01154200 
01154300 
01155000 
01156000 
01157000 
01158000 
01489000 
0141460000 
01161000 
01162000 
01163000 
01164000 
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00031004810 
00031004810 
000310014810 
00034004810 


- 00032001810 


00031004810 
0003100180 
000330048!0 
00031001810 
00031001880 
00033004810 
00031004830 
00031004810 
000380014830 
00035004880 
00031004810 
00038001880 
00031001810 
00031001880 
00034004830 
00031001810 
00031004610 
00032004810 
0003200;80 
00031004810 
0003!001810 
0003800480 
00031004810 
00034004830 
00031004810 
00034001810 
00032004810 
00031001880 
00031004810 
00038004810 
00031004880 
00031001810 
000340048t0 
00031001810 
00034004810 
000310018380 
00031001810 
000310018180 
00033:0018!0 
00031001810 
00031001840 
00031001810 
00031004810 
00031004810 
00038001810 
00038001680 
00031004810 
00031004880 
000310046840 
00034003810 
00038004810 
00031004810 
0003100;880 


FORMAL = O THEN THE BIT DISTINGUISHES OWN VARTABLES 
FROM OTHERS, 


LVL GIVES THE LEVEL AT WHICH A QUANTITY WAS DECLARED, 
ADDRESS GIVES THE STACK OR PRT ADDRESS, 


INCR GIVES A RELATIVE LINK TO ANY ADDITIONAL INFORMATTION 


NEEDED>® RELATIVE TO THE LOCATION IN INFO, 


LINK CONTAINS A LINK TO THE LOCATION IN INFO IF THE 


QUANTITY LIES IN ELBAT» OTHERWISE IT LINKS TO THE 
NEXT ITEM IN THE STACK, 


ZERO IS AN END FLAG. 


LINKR AND LINKC ARE SUBDIVISIONS OF LINK,3 


COMMENT CLASSES FOR ALL QUANTITIES = OCTAL CLASS 1S IN COMMENTS 
COMMENT CLASSES FOR TDENTIFIERSS 
DEFINE UNKNOWNYD FOO, | COMMENT 0003 

STLABID =0Oy#>, COMMENT 0033 
LOCLID =02#, COMMENT 0023 
DEFINEDID F03f, COMMENT 0033 
LIST oO Oat» COMMENT 004) 
FRMTID =O5#> COMMENT 0083 
SUPERFRMTY{D E06» COMMENT 0063 
REALSUBID SO7#, COMMENT 0073 
SUBID =O8#» COMMENT 0103 
SWITCHIN ZO9#. COMMENT 0113 
PROCID =10#» COMMENT O123 
INTRNSICPROCID *44#, COMMENT 0133 
STRPROCID m12#, COMMENT 01943 
BOOSTRPROCID a13f, COMMENT 0153 
RFALSTRPROCID =14#> COMMENT 0163 
ALFASTRPROCID 2158» COMMENT Q17% 
INTSTRPROCID =15#, COMMENT 0173 
BOOPROCID B74, COMMENT 0243 
REALPROCID =16#, COMMENT 0223 
ALFAPROCID =19#, COMMENT 0233 
INTPROCID E198, COMMENT 0233 
ROOD 72 ,#>s COMMENT 0253 
Reali) s2o8, COMMENT 0263 
ALFAID 223%, COMMENT 0273 
INTIO R258» COMMENT 0273 
ROOARRAYID 225%, COMMENT 0333 
REALARRAYID =26#, COMMENT 0393 
ALFAARRAYID 2278s COMMENT 0333 
INTARRAYID 27H, COMMENT 0333 
NAMED z30#, COMMENT 0363 
INTNAMFID e318, COMMENT 0373 
LABELID =328, COMMENT 0403 

COMMENT CLASSES FOR PRIMARY BFGINNERS3 
TRUTHV 2334» COMMENT 04373 
NONL TNO 2348, COMMENT 0423 
L1TNO =35#, COMMENT 0433 
STRNGCON e36F, COMMENT O443 
LEF TPAREN 237%, COMMENT 0453 
POLISHV EIBH. COMMENT 0463 
ASTRISK E398, COMMENT 0473 

COMMENT CLASS FOR ALL DrCLARATORS! 
NECLARATORS 4O#, COMMENT 0503 

COMMENT CLASSES FOR STATEMENT BEGINNERS 
DOURLFY eAok, COMMENT 0523 
FORV 2438, COMMENT 0533 


01465000 
01166000 
014167000 
01168000 
014169000 
01170000 
01171000 
01172000 
01173000 
01174000 
01175000 
01176000 
01477000 
01178000 
01179000 
014180000 
01181000 
01182000 
01183000 
01484000 
01185000 
01486000 
01187000 
01188000 
01189000 
01190000 
011491000 
01192000 
01493000 
01194000 
01195000 
01196000 
01197000 
011498000 
01199000 
01200000 
01201000 
01202000 
01203000 
01204000 
01205000 
01205200 
01205400 
01206000 
01207000 
01208000 
01209000 
01210000 
01211000 
01212000 
01212100 
01212200 
01213000 
01214000 
01215000 
01222000 
01223000 
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00038004880 
00038007,8!0 
00038001880 
0003100380 
00038007830 
00032004830 
000318001810 
00031001840 
00031004810 
0003!20018!0 
000310048t0 
00033001830 
00031004810 
00038004810 
00033004810 
00031004810 
0003%00;,8!0 
00032001880 
00038004820 
00038003880 
00038001680 


0003100;830. 


000318004830 
0003800;,8!0 
00031004880 
0003100;810 
00031004810 
00031004880 
00038001820 
00033001,8!0 
00031001880 
000310048:0 
000310034880 
000310013810 
00038001830 
000380018!0 
00038001630 
0003:001,8:0 
00038004810 
00038003810 
0003#0018:0 
00038001890 
0003800;810 
00038001880 
0003:00,8!0 
00031001830 
00038001880 
00033001810 
00031007810 
0003200;18#0 
0003!00;1830 
00038001880 
00033001630 
00033001680 
000310018:0 
00038001830 
0003001880 


COMMENT 


COMMENT 


COMMENT 


3 


WHILEV zaat, COMMENT 0543 
NOV =458, COMMENT 0553 
UNTYLY =46#, COMMENT 0563 
FLSEV zA74#, COMMENT 0573 
ENDV e468, COMMENT 0603 
CASEV ZAO#, COMMENT 0613 
SEMICOLON e504, COMMENT 06923 
IFV 544, COMMENT 0633 
GOV 2598» COMMENT 0643 
1OCLASS s53%, COMMENT 0653 
BFGINV e5ak, COMMENT 0663 
CLASSES FOR STREAM RESERVED WORDS} 
STV 255%, COMMENT 0673 
014 e568, COMMENT 0703 
Civ E578» COMMENT 0733 
TALLYV =58#, COMMENT 0723 
OSV 2598» COMMENT 0733 
SKIPV Z608>, COMMENT 0743 
JUMPYV 61d. COMMENT 0753 
NRV E60, COMMENT 0763 
SRV 263K COMMENT O773 
TOGGLEV S648, COMMENT 1003 
ScV =65#, COMMENT 1043 
LOCV =66#, COMMENT 41023 
ocv S678, COMMENT 1033 
LOCALV 2684, COMMENT 1043 
LITV =69#, COMMENT 4053 
TRNSFER S70#s COMMENT 14063 
CLASSES FOR VARTOUS MISCELLANEOUS QUANTITIES 
COMMENTV a71#> COMMENT 1073 
FORWARDV =72#» COMMENT 1103 
STFPV =73#, COMMENT 11143 
THENV a74k, COMMENT 1123 
TOV =75#, COMMENT 1133 
VALUEV =76#> COMMENT 1143 
WITHV =77#, COMMENT 1153 
COLON E788, COMMENT 14163 
COMMA 279#> COMMENT 14173 
CROSSHATCH =B0#, COMMENT 1203 
LFTBRKET =By#, COMMENT 1243 
PFERION S828, COMMENT 14223 
RTBRKET B38, COMMENT 1233 
RTPAREN SBAH, COMMENT 1243 
AMPERSAND s65%> COMMENT 1253 
CLASSES FOR OPERATORS: 
HFXOP eO6#, COMMENT 14263 
BrTOP aB7#, COMMENT (273 
TSOLATE =B8#, COMMENT 1303 
OPERATOR e898, COMMENT 4343 
NOTOP 2908, COMMENT 1323 
ASSIGNOP S918» COMMENT 1333 
FQVOP 90K, COMMENT 1343 
OROP 2938, COMMENT 1353 
ANDOP 948» COMMENT 1363 
ReLOP e958, COMMENT 1373 
ANOP =96#, COMMENT 1403 
MULOP 974, COMMENT 14143 


%115° 


01224000 
01225000 
01226000 
042927000 
01228000 
01229000 
01230000 
01231000 
01232000 
01233000 
01234000 
01235000 
01236000 
01237000 
01238000 
01239000 
01240000 
01241000 
01242000 
01243000 
01244000 
01245000 
01246000 
01247000 
01248000 
01249000 
01250000 
01251000 
01252000 
01253000 
01254000 
01255000 
01256000 
01257000 
01258000 
04259000 
01260000 
01261000 
01262000 
01263000 
01264000 
01265000 
01266000 
01266500 
01267000 
01268000 
01269000 
01270000 
01271000 
01272000 
01273000 
01274000 
01275000 
01276000 
01277000 
01278000 
01278500 
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00033004680 
00031003810 
00031004810 
00031004810 
00038004830 
00038004880 
00038001880 
00038001810 
00038004830 
00031004820 
00038004880 
00031001810 
00033004830 
0003100480 
00034004810 
0003t004810 
00032004810 
00033004810 
00031001680 
00038004830 
00038001880 
00038001810 
00031004830 
00038004810 
00032001880 
000310048t0 
00031004810 
0003001810 
00033001880 
00034001880 
000310018:0 
00038001810 
00034004830 
00031004610 
00031001810 
00031004830 
0003800380 
00038004810 
00033001830 
00033004610 
00031004810 
00031001830 
00038004810 
00031004810 
00038001810 
0003#0048!0 
00031004810 
00038001810 
0003#00,810 
00031004610 
00031001810 
00031004810 
00031004810 
00034001810 


00038004880 


0003!0018!0 
00038001830 


PRT¢105) 
PRTC106) 
PRTC107) 
PRTC1409 


PRTCi91) 


PRT¢192) 


PRT¢193) 


COMMENT 


STRING 
FIELDIN 


OWNV 
SAVEV 
BOOV 

RF ALVy 
ALFAV 
INTV 
LABELV 
DUMPYV 
SUBV 
OUTV 
INV 
MONTTORV 
SWITCHV 
PROCV 
ARRAYV 
NAMEV 
FILEV 
STRE AMY 
DEFINEV 
AUXME My 
FIrELDV 


DEFINE npes 


ADES 

PDES 

LOES 

CHAR 

FACTOP 
OPERATORS 
FILEID 
MAXINTRINSIC 
tNTRINSTCADR 


REAL TyMEQ3 


TIMES 


BOOLEAN ASTOGI 


ASTOG 


BOOLEAN SAF3 


SAF 


INTEGER SCRAM? 


SCRAM 


ACCUM 


STACKHEAD 


cOUNT 


uu eh kBnnea 


S998, COMMENT 1433 
=125#, COMMENT 14753 112° 


SUBCLASSES FOR NECLARATORS CKEPT IN ADDRESS)3 


=O01#, COMMENT 043 
=02%, COMMENT 023 
e038, COMMENT 033 
TOa#s COMMENT 043 
s05#, COMMENT 053 
=05#, COMMENT 053 
z07#» COMMENT O73 
mOB#, COMMENT 103 
=09%, COMMENT 493 


™108, COMMENT 123 
rik, COMMENT 133 
=12#8> COMMENT 448 
S138. COMMENT 153 
=14¢, COMMENT 163 
F15#>, COMMENT 173 
E168» COMMENT 203 
=17#, COMMENT 2143 
E188, COMMENT 2923 
R198, COMMENT 233 £1ii2= 
E204» COMMENT 243 *¥112= 
m21#3 COMMENT 253 z112° 
at, 

28#, 

aot, 

30%, 

38» 

ASTRSK#.s 

HEXOP#. 

Of» 


150#, % USED 1N BUILDING INTABLE ® 09414120 
CMAXINTRINSIC DIV 30)#3 & RESERVES SEG FOR INTABLE 


COMMENT SCRAM CONTAINS THe SCRAMBLE INDEX FOR THE LAST IDENTIFIER 


OR RESERVED WORn SCANNED? 
ALPHA ARRAY ACcCUMr0!40}3 


COMMENT ACCUM HOLDS THE ALPHA AND CHARACTER COUNT OF THE LAST 


SCANNED ITEM IN A FORm COMPATIBLE WITH ITS APPEARANCE 


IN INFOe 


THAT IS ACCUME 1] #@ OONAAAAA, ACCUMEI} «2 I> 4, 


HAS ANY ADDITIONAL CHARACTERS, ACCUM(O) 13S USED FOR 
THE ELBAT WORD BY THE ENTER ROUTINES} 
ARRAY STACKHEAD(0242513 


COMMENT STACKHEADEN] CONTAINS AN INDEX JNTO INFO GIVING THE TOP 
: ITEM YN THE NTH STACK? 
INTEGER COUNTS 


01278600 
01278700 
01279000 
01280000 
01281000 
01282000 
01283000 
01284000 
01285000 
01286000 
01287000 
01288000 
01289000 
01290000 
01291000 
01292000 
01293000 
01294000 
01295000 
01296000 
01297000 
01298000 
01298500 
01298600 
01299000 
012990410 
01299020 
01299030 
01299040 
01299100 
01299200 
01299300 
01299400 
01299500 
01300000 


01300100 
01300200 
01301000 


01302000 
01303000 
01304000 


01305000 
01306000 
01307000 
01308000 
01309000 
01310000 


01311000 
01312000 
01313000 


AAA AHHH HHO OO PH HH st ts ot tO 


= 


a 


~a-+- 


000380048:0 
000330018:0 
00031001880 
00031003630 
00033001680 
00038001630 
00032004820 
00038001630 
00038004880 
00031001,68:0 
00038007880 
0003100;,810 
0003100;810 
00031001610 
000380071830 
00033004880 
0003!0038!0 
00031001610 
000310018t0 
00032001810 
00032004830 
00031001830 
00033001820 
00031001680 
000320018:0 
00031001810 
00033001620 
00031004830 
00032001830 
000318004810 
00031003810 
00038001810 
00031001830 
00033004610 
0003!004810 


00031001640 
0003100;8t0 
0003#0018!0 


00031001810 
00031001880 
0003100;8t0 


00031002084 
00038002084 
00031002014 
000310020814 
00031002014 


00038002083. 


0003%0023t2 
0003!800a3t2 
000380023!2 


PRT¢114) 


PRT(145) 
PRTC116) 
PRTC147) 


PRTC120) 


PRT¢121) 
PRT¢122) 
PRT¢123) 
PRT(¢194) 
PRT¢125) 


PRT¢126) 


PRT(197) 


PRTC€130) 


PRT(131) 
PRTC132) 


PRT¢133) 
PRT¢134) 


PRT¢135) 
PRT(136) 


PRT¢137) 


COMMENT COUNT CONTAINS THE NUMBER OF CHARACTORS OF THE LAST ITEM 


SCANNED3 
ALPHA 3 
9 
COMMENT @ CONTAINS ACCUME1] FOR THE LAST IDENTIFIER OR RESERVED 
* WORD SCANNEDS 
ARRAY €LRAT(ON75]3 INTEGER Ie NXTELBTS 
-PFLBAT 
! 
NXTELBT 
COMMENT ELBAT +S AN ARRAY HOLDING ELBAT WORDS FOR RECENTLY SCANNED 
QUANTITIES. THE TABLE ROUTINE MAINTAINS THIS ARRAY, 
CELBAT 3S TABLE SPELLED BACKWARDS,) THE TABLE ROUTINE 
GUARANTIES THAT ELBAT ALWAYS CONTAINS THE ELBAT WoRDS 
FOR THE LAST 10 QUANTITIES SCANNED, NXTELBT IS AN INDEX 
POINTING TO THE NEXT AVAILABLE WORD IN ELBAT, I IS AN 
INDEX USED BY THE REST OF THE COMPILER To FETCH THINGS 
FROM ELBAT. 1! tS ALSO MAINTAINED BY THE TABLE ROUTINES 
INTEGER ELCLASS3 
FLCLASS 
COMMENT FLCLASS USUALLY CONTAINS ELBAT(I],CLASS3 
INTEGER FCR»e NcRe LCRe TLCRsCLCRS 
FCR 
NCR 
LCR 
TLCR 
CLCR 
INTEGER MAXTLCR} 
MAXTLCR 
COMMENT FCR CONTAINS ABSOLUTE ADDRESS OF THE FIRST CHARACTOR OF 
THE CARD IMAGE CURRENTLY BEING SCANNEDe NCR THE ANDRESS 
OF THE NEXT CHARACTOR TO BE SCANNED» AND LCR THE LAST 
CHARACTOR CCOLUMN 73): TLCR AND CLCR CONTAIN ADDRESS OF 
THE LAST CHARACTER IN THE TAPE AND CARD BUFFERS, MAXTLCR 
1S THE MAXIMUM OF TLCR WHEN THE INPUT IS BLOCKED 
ARRAY TENS #46169)3 
TEN 
DEFINE PRTBASF£129#»PRTOP2z896#3; COMMENT PASE AND TOP OF PRT3 
ARRAY PRTILTPRIBASEIPRTOP])3 
PRT 
INTEGER DISKADReCORADRS COMMENT GLOBALS FOR PROGDESCBLOR! 
NISKADR 
cORADR 
INTEGER SGAVLSCOMMENT NEXT AVATLABLE SEGMENT NUMBERS 
SGAVL 
INTEGER SGNO?COMMENT THYS +S THE CURRENT SEGMENT NUMBER? 
SGNO 
ARRAY COP,WOP(9t¢2773 
coP 
woP 


“COMMENT THE EMIT ROUTINES PLACE EACH SYLLABLE INTO THE EDOC ARRAY 
AS SPECIFIED BY "LL", 
Te THE DEBUGTOG IS TRUE COP AND WOP ARE FILLED WITH 
THE BCD FOR THE OPERATORSs OTHERWISE THEY ARE NOT USED} 
REAL LASTENTRY 3 
LASTENTRY 
COMMENT LASTENTRY 1S USED BY EMITNUM AND CONSTANTCLEANe IT POINTS 


01314000 
01315000 
01316000 


01317000 
01318000 
01319000 


01320000 
01321000 
01322000 
01323000 
01324000 
01325000 
01326000 
01327000 
01328000 


01329000 
01330000 


01331000 


01332000 
01333000 
01334000 
01335000 
01336000 
01337000 
01340000 


01341000 
01342000 
01343000 


01344000 


01369000 
01370000 
01371000 
01372000 
01373000 
01374000 
01375000 
01376000 


01377000 
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+a 


_" 


a44-4 + 


+ 


0003%0023t2 
00038002312 
00038002312 


00031002332 
00034002382 
000310023!2 


000380020583 
000310025!3 
00031009513 
00038002513 
00031002583 
00038002583 
000318002533 
00038002583 
00031002533 


00038002533 
00038002533 


00038002533 


00033002583 
00038002513 
00032002583 
0003!0095!3 
00038009583 
00031002583 
00038002513 


000380028!0 
0003200286!0 
00031002880 


00033003031 


00033003031 
00031003084 
00031003084 
00034#0034:0 
00032003480 
00038003410 
00038003480 
00032003480 


00031003430 


PRT(140) 


PRTC141) 
PRT¢142) 
PRT¢143) 
PRT(144) 
PRT¢145) 


PRT(€146) 


PRIC147) 


PRT¢180) 


PRT¢151) 


PRTC152) 
PRT¢153) 
PRT¢154) 
PRT¢155) 


INTO JNFOCOs*®) AT THE NEXT AVAILABLE CELL FOR CONSTANTS! 

BOOLEAN MRCLEAN 3 

MRCLEAN 
COMMENT NO CONSTANTCLEAN ACTION TAKES PLACE WHILE MRCLEAN 17S 

FALSE. THIS FEATURE IS USED BY BLOCK BECAUSE OF TuE 
POSSIBILITY THAT CONSTANTCLEAN WILL USE INFOCNEXTINFO] 
DURING AN ARRAY DECLARATION 3 

REAL GT1eGT2sGT3eGT4eGT33 


qT1 
aT2 
673 
qT4 
aT5 
INTEGER GTI1? 
GT}1 
COMMENT THESE VARIABLES ARE USEpn FOR TEMPORARY STORAGES 
INTEGER RESULT? 
RESULT 
COMMENT THIS VARIABLE 1S USFD FOR A DUAL PURPOSE BY THE TABLE 
ROUTINE AND THE SCANNER, THE TABLE ROUTINE USES THIS 
VARTABLE TO SPECIFY SCANNER OPERATIONS AND THE SCANNER 
USES 1T TO INFORM THE TABLE ROUTINE OF THE ACTION TAKEN} 
INTEGER LASTUSEDS 
LASTUSED ; 
COMMENT LASTUSED IS A VARIABLE THAT CONTROLS THE ACTION OF 
READACARDs THE ROUTINE WHICH READS CARDS AND INITIALIZES: 
OR PREPARES THE CARD FOR THE SCANNER, 
LASTUSED LAST CARD READ FROM 
| CARD READER ONLY» NO TAPE, 
2 CARD READFRe TAPE AND CARD MERGE, 
3 TAPE» TAPF AND CARD MERGE, 
8 INITIALITZATYON ONLYe CARD ONLY, 
3 
BOOLEAN LINKTOG! 
LINKTOG 
COMMENT LINKTOG IS FALSE 1F THE LAST THING EMITTED 1S A LINKe 
OTHERWISE IT 1S TRUE3 
INTEGER LEVEL* FRSTLEVEL*® SUBLFVELeMODES 
LEVEL 
FRSTLEVEL 
SUBLEVEL 
MODE 


COMMENT THESE VARIABLES ARE MAINTAINED BY THE BLOCK ROUTINE TO KEEP 
TRACK OF LEVELS OF DEFINITION, LEVEL GIVES THE OFPTH OF 
NESTING IN DEFINITION, WHERE EACH BLOCK AND EACH PROCEDURE 
GIVES RISE To A NEW LEVEL. SUBLEVEL GIVES THE LEVEL oF 
THE PARAMETERS oF THE PROCEDURE CURRENTLY BEING ComPILEDe 
FRSTLEVEL IS THE LEVEL OF THE PARAMETERS OF THE MOST 
GLOBAL OF THE PROCEDURES CURRENTLY BEING COMPILED, MODE 
1S THE CURRENT pEPTH OF THE PROCFOURE IN WHICH WE ARE 
~ NESTED CAT COMPILE TIME)! 
BOOLEAN ERRORTOG} 


PRT(156) = FRRORTOG 


COMMENT ERRORTOG 1S TRUE 1F MESSAGES ARE CURRENTLY ACCEPTABLE TO THE 
FRROR ROUTINES, ERRORCOUNT IS THE COUNT OF ERROR MSSGS! 
BOOLEAN ENDTOGS COMMENT ENDTOG TELLS THE TABLE TO ALLOW 


01378000 
01379000 


01380000 
01381000 
01382000 
01383000 
01384000 


01384500 


01385000 
01386000 


01387000 
01388000 
01389000 
01390000 
01391000 


01392000 
01393000 
01394000 
01394500 
01394600 
01395000 
01396000 
01397000 
01398000 
01398300 
01399000 


01400000 
01401000 
91402000 


01403000 
01404000 
01405000 
01406000 
01407000 
01408000 
01409000 
01410000 
01411000 
01412000 


01413000 
01414000 
01415000 


ee a 


_" 


ee ee ee 


~-+4 + 
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00031003410 
00031003410 


00031003010 
00031003430 
00031003480 
00031003410 
0003!003410 


00033003480 


00031003430 
00031003410 


00031003480 
00038003480 
00035003480 
00031003480 
00031003410 


00031003410 
00031003410 
00031003410 
00031003410 
0003%003410 
00031003410 
00031003410 
00031003410 
00031003410 
00031003410 
00031003480 


00031003410 
00038003430 
000310034!0 


000380034!0 
00033003410 


000330034:0. 


00033003410 
00038003410 
00031003410 
00038003410 
00031003430 
00033003410 
00032003430 


00034003410 
000380034t0 
00038004410 


PRT(157) = ENDTOG 


COMMENT TO BE PASSED BACK TO COMPOUNDTAIL3 
BOOLEAN STREAMTOG3 


PRTC160) = STREAMTOG 


COMMENT STREAMTOG IS TRUE IF WE ARE COMPILING STREAM STATEMENT, JT 
1S USED TO CONTROL COUMPOUNDTAILS 
DEFINE FS = 4%, FP = 2#s FL aw Jee FR 248} 
COMMENT THESE DEFINES ARE USED WHEN CALLING THE VARIABLE ROUTING. 
THETR PURPOSES +S TO TELL VARIABLE WHO IS CALLING, 
THEIR MEANING IS8 
FS MEANS FROM STATEMENT» 
FP MEANS FROM PRIMARY» 
FL MEANS FROM LYISTe 
FR MEANS FROM FOR} 
INTEGER L} 


PRYC161) # L 


COMMENT L 1S THE LOCATION OF THE NEXT SYLLABLE TO BE EMITTEDS 
DEFINE BLOCKCTR = 16%. JUNK = 17 #, XYTR = 18 #p LSTRIN =& 1983 
DEFINE ATYPFE #34. BTYPERATYPFE,DTYPESATYPESS 
BOOLEAN TR13 


PRT(162) = TB1 


COMMENT TB1 1S A TEMPORARY BOOLFAN VARIABLE? 
INTEGER JUMPCTR} 


PRT¢163) = JUMPCTR 


PRT¢164) 
PRT¢165) 


PRT¢166) 
PRT(167) 
PRT¢170) 
PRTC171) 


PRTCi?72) 


PRT¢173) 


PRT(174) 


COMMENT JUMPCTR 1S A VARIABLE USED FOR COMMUNICATION BETWEEN ALOCK 
AND GENGO. IT GIVES HIGHEST LEVEL To WHICH A JUMP HAS 
BEEN MADE FROM WITHIN A THE PRESENTLY BEING COMPILED 
SEGMENT, THE BLOCK COMPILES CODE TO INCREMENT AND DECRE= 
MENT THE BLOCKCTR ON THE BASIS OF JUMPCTR AT COMPLETION 

OF COMPILATION OF A SEGMENT © I,€. THE BLOCKCTR IS TALLIED 
IF LEVEL = JUMPCTR?3 


DEFINE BUMPL @ LeLe2#3 

-COMMENT BUMPL 17S USED MOSTLY TO PREPARE A FORWARD JUMP3 
DEFINE YDMAX = LABELID#:3 

COMMENT TOMAX 74S THE MAXIMUM CLASS NUMBER FOR JDENTIFIERS3 
INTEGER DEFINECTReDEFINEINDEXS 


= NEFINECTR 


NEF INE INDEX 
REAL JOINFO» COMMENT POINTS TO PSEUDO LABEL FOR JUMP OUTS} 
JOINFO 
LPRT»s COMMENT SHOWS LOCATION OF THE LAST LABEL IN THE PRT 3 
LPRT 
NESTLEVELs COMMENT COUNTS NESTING FOR GO TO AND JUMP OUTS3 
NESTLEVEL . 
JUMPLEVELS COMMENT NUMBER OF LEVELS TO BE JUMPED OUTS 
JUMPLEVEL 
COMMENT THE REaLS apOVe ARE FOR STREAM STATEMENTS 
ARRAY MACROC0835)3 
MACRO 
COMMENT MACRO 7¢S FILLED WrTw SYLLABLES FOR STREAM STATEMENT? 
REAL P, COMMENT CONTAINS NUMBER OF FORMALS FOR STREAM PROCS) 


Z3 COMMENT CONTAINS {ST WORD OF INFO FOR STREAM FUNCTIONS} 


01416000 
01417000 


01418000 
01419000 
01420000 
01421000 
01422000 
01423000 
01424000 
01425000 
01426000 
01427000 
01428000 


01429000 
01430000 
01452000 
01457000 


01458000 
01459000 


01460000 
01461000 
01462000 
01463000 
01464000 
01465000 
01466000 
041467000 
01468000 
01469000 
01470000 
01477000 
01478000 
01479000 
01480000 
01481000 


01482000 
01483000 
01484000 


01485000 


01486000 
01487000 


01488000 
01489000 


01490000 


Se ee 
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00031003410 
00038003480 


00038003430 
00038003430 
00038003480 
00031003430 
00032003420 
0003!0034!0 
00038003450 
00038003410 
00038003410 
00038003430 
00032003430 


00033003480 
00033003430 
00038003480 
0003200340 


00031003410 
00031003480 


00038003430 
00031003420 
00031003410 
00031003410 
00038003480 
00031003410 
00031003410 
00038003410 
00031003480 
00031003410 
00034003410 
00031003430 
00038003410 
00038003410 
00034003480 
00038003410 


0003#0034!0 
0003!003430 
00033003430 


00031003410 


00031003480 
00038003410 


00038003614 
00031003681 


0003!0036?14 


PRT(175) 


PRT(176) 


PRTC177) 


PRT¢200) 
PRT¢201) 


PRT(202) 


PRT¢€203) 


ARRAY NEWTAPBUFLO3933 


NEWTAPBUF 
SAVE ARRAY DEFINEARRAY(Ot34)3 ¥116= 
NEF INE ARRAY 
COMMENT THESE VARTABLES ARE USED TO CONTROL ACTION OF THE DEFINE. 


DEFINECTR COUNTS DEPTH OF NESTING OF DEFINE=# PAIRS, 

THE CROSSHATCH PART OF THE TABLE ROUTINE USES DEFINECTR 
To DETERMINE THE MEANING OF A CROSSHATCH. DEFINEINDEX 1S 
THE NEXT AVAILABLE CELL IN THE DEFINEARRAY. THE DEFINE®@ 
ARRAY HOLDS THE ALPHA OF THE DEFINE BEING RECREATED AND 
THE PREVIOUS VALUES OF LASTUSEDs LCR» AND NCRS$ 


INTEGER REGINCTR3 


BEGINCTR 
COMMENT BEGINGTR GIVES THE NUMBER OF UNMATCHED BEGINS, 1T 18 USED 
FOR FRROR CONTROL ONLY3 
INTEGER DYALASDI ALB: 
NYALA 
NTALB 


BOOLEAN RRB13 


RRB1 


RRB2 


DEFINE 


DEFINE 


DEFINE 


NEF INE 


DEF rNE 


DEFINE 


_ DEFINE 


DEFINE 


DUMPOR = C2081198) 


COMMENT THESE VARIABLES GrtVE THE LAST VALUE TO WHICH A AND R WERE 


DrALED. THIS GYVES SOME LOCAL OPTIMIZATION, EMITD 
WORRTES ABOUT THIS, OTHER ROUTINES CAUSE A LOSS OF MEMORY 
BY SETTING DIALA AND DIALB TO ZERO? 

COMMENT RRBiw=-RRBN ARE BOOLEAN VARIABLES THAT SERVE THE 


SAME FUNCTION AS RR1i**"RRN FOR REAL VARIABLES, SEF 
COMMENT AT RR13 

ROOLFAN RRA2$ COMMENT SEE COMMENT AT RRB1 DECLARATION} 
ARRAYMONFILE = (27811]#3 COMMENT ARRAYMONFILE 1S THE DEFINE FOR 
THE ADDRESS OF THE FILE DESCRIPTOR IN 
THE FIRST WORD OF ADDITIONAL INFOS 
COMMENT MONYTORFILE 1S THE DEFINE FOR 
THE ADDRESS OF THE FILE DESCRIPTOR IN 
INFO FOR MONITORED SIMPLE VARIABLES} 
COMMENT THE FIRST ADDITIONAL WORD OF INFO 
FOR ARRAYS CONTAINS THE NUMBER OF DIMENSIONS 
IN NODIMPARTS 
LABLMONFTLE = €13211)7#3 COMMENT LABLMONFILE DESIGNATES THE BIT 
POSITION IN THE FIRST WORD OF ADDITIONAL 
IWFO THAT CONTAINS THE MONITOR FILE 
ADDRESS FOR LABELS! 

COMMENT SWITMONFILE DESIGNATES THE BIT 
POSITION IN THE FIRST WORD OF ADDITIONAL 
INFO THAT CONTAINS THE MONITOR FILE 
ADDRESS FOR LABELSS 

COMMENT FUNCMONFILE DESIGNATES THE ait 
POSITION IN THE FIRST WORD OF ADDITIONAL 
INFO THAT CONTAINS THE MONITOR FILE 
ADDRESS FOR LABELS! 
COMMENT THE DUMPEE FIELD IN THE FIRST 
ADDITIONAL WORD OF INFO FOR LABELS CONTAINS 
THE ADDRESS OF THE COUNTER THAT. 1S INCREMENTED 
EACH TrME THE LABEL 1S PASSED IF THAT LABEL 
APPEARS IN A DUMP DECLARATIONS 

COMMENT THE DUMPOR FIELD IN THE FIRST 
ADDITIONAL WORD OF INFO FOR LABELS CONTAINS 
THE ADDRESS OF THE ROUTINE THAT IS GENERATED 


SVARMONFILE = (37414943 


NODIMPART = fo0t6)#3 


SWrTMONFYLE «© (13°44¢)83 


FUNCMONFILE = (27544) %3 


NUMPEF = [2341143 


014905140 T 


01491000 


01492000 
01493000 
01494000 
01495000 
01496000 
01497000 
01498000 
01499000 


01500000 
01501000 
01502000 


01503000 
01504000 
01505000 
01506000 
01522000 


01523000 
01524000 
01525000 


01526000 
01527000 
015286000 
01529000 
01530000 
01531000 
01532000 
01533000 
01534000 
01535000 
01536000 
01537000 
01538000 
01539000 
01540000 
01541000 
01542000 
01543000 
01544000 
01545000 
01546000 
01547000 
01548000 


01549000 


01550000 
01551000 
01552000 
01553000 
01554000 


i) ee ee i ee 
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00032003684 
000330039%2 


000338004413 
000320041#3 
00038004113 
00038004123 
00038004183 
0003800a4%3 
00038004413 
00038004183 


0003004133 
00038004183 
00038004113 


00031004323 
00038004183 
00031004183 
000328004183 
00031004193 


00038004183 


00033004133 
00032004183 


00031004183 
00038004113 
00031004113 
00032004183 
0003%004183 
00031004413 
000310041483 
0003'0044%3 
000340040133 
00038004113 
00038004423 
000380041383 
000310041%3 
00038004133 
00038004193 
00033004433 
00031004183 
00038004193 
0003t00a113 
00033004183 
00031004413 
00034004183 
0003200413 
00031004113 
00038004483 
00038004123 
00038004113 
0003t004193 
00038004133 


PRTC204) 
PRT¢205) 
PRT(206) 
PRT(207) 
PRT(210) 
PRTC211) 
PRT(212) 
PRT¢213) 
PRT¢214) 


PRT(245) 
PRT(216) 


PRT(217) 
PRT(220) 
PRT(221) 
PRT(¢222) 


PRT(223) 
PRT¢224) 
PRT¢225) 
PRT(226) 


PRY(227) 


PRT™¢(230) 


PRY¢231) 


FROM THE DUMP DECLARATION THAT IN TURN CALLS 
THE PRINTI ROUTINES 

DEFINE SUROP=4883 

FILE OUT CODE nISkK SERTALLC1#4)¢121023)3 


cODE 

FILE TN CARN¢CRR1+10,RR2)3 
CARD 

FILE OUT LINE DISK SERIALC 2082400) CRR3,15eRR4eSAVE 1093 
LINE 


FILE ATTRBUTS 

ARRAY LINCO%2075 COMMENT PRINT OUTPUT BUILT IN LINS 
LIN 

INTEGER DAS 
nA 

SAVE FILE OUT NEWTAPE DISK SERIALC20'2400)(RRS,RRO,RR7 SAVE 193 
NEWTAPE 

FILE IN TAPE "OCRDIMGAYC2eRRBeRRD)S 


APE 
SAVE ARRAY CBUFFsTBUFF(O'993 x¥ YNPUT BUFFERS, 
CBUFF 
TBUFF 
: FILE DSK1 DISK SERIAL £20%816]¢2>10+30)3 2108 
NSK4 
FILE DSK2 OISK SERIAL £204450)¢2230,30)3 %108 
NSK2 


FILE OUT CODISK DISK SERIAL £201600} (2+30,300)3 
cOD1sK 
FILE OUT nrSK NrSK (14824007 "MCPYY NH SK"C3,302300+SAVE 99)3 


D1SK 
NEF INE MCPTYPE zs 638s 
DCINTYPE = 62k» 
TSSINTYPE s 6183 
COMMENT FSPOL CODE FILES ARE UNIQUELY TYPED IN THEIR FILE 
HEADERS, HEADER®41,£3696) 1S THE FIELD USED TO CONTAIN 
THE TYPES 
FILE OUT DECK O (2,10)3 
NECK 
FILE STUFF DISK SERTAL£2984503¢2e10,30,SAVE 15)3 
STUFF 
ARRAY TWXAr0t4673 
TWXA 
REAL C3 
C 
COMMENT C CONTAINS ACTUAL VALUF OF LAST CONSTANT SCANNEDS 
REAL T3 
T 
COMMENT T 1S A TEMPORARY CELL 
INTEGER TCOUNTS 
TCOUNT 
REAL STACKCTS 
STACKCT 


COMMENT TCOUNT 1S A VARIABLE WHICH HOLDS A PREVIOUS VALUE oF COUNT 
FoR THE USE OF CONVERTS 
ODFFINE LASTSEQUENCE = 1498s £1150 
LASTSEQROW «= 283 


01555000 
015536000 
01556500 
01556900 
01557000 


01558000 


01559010 
01559020 
01560000 
01561000 
01561056 


01561085 
01561087 
01561300 
01561400 


01561410 
01561420 
01561430 
01561440 
01561450 
01561460 
01561500 


01561600 
01561700 
01562000 


01563000 
01564000 


01565000 
01566000 


01566010 


015367000 
01568000 
041569000 
01570000 
01571000 


a44- 
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00033004183 
000310041433 
00033004183 
00031004113 
000380045! 3 


00031005080 


000310057t2 
00034005913 
00033005943 
00031006684 
000380070t4 


00038007410 
00038007634 
00032008231 
00033008782 
00032009a:0 
0003%0094:10 
00032009480 
0003%0094:0 
0003!009480 
00038009410 
00031009410 
0003:009630 
0003801052 
00031040783 


000310107323 
00033010733 


000372010733 
00038040783 


00031010733 
00031010733 


00031010713 
000380,0783 


00038010733. 


000380107183 


PRY(232) 


PRT(233) 


PRT(234) 
PRT(235) 
PRT(236) 
PRT(237) 
PRT(240) 
PRT(241) 
PRT¥(242) 


PRT(243) 
PRT(¢ 244) 


PRT¢245) 


PRT(246) 
PRT(247) 
PRT(250) 


PRTC251) 


PRT(282) 
PRT(253) 


Real FOULFDS 


FOULED 
BOOLEAN 
FUNCTOG»s COMMENT TELLS WHETHER PROCEDURE BEING DECLARED 1S A 
FUNCTOG 
FUNCTIONS 
P25 COMMENT GENERALY TELLS WHETHER OWN WAS SEEN 
P2 
P3. COMMENT TELLS WHETHER SAVE WAS SEEN) 
P3 
VONF > COMMENT VALUF OR OWN FIELD OF ELBAT WORD) 
VONF 
FORMALF » COMMENT FORMAL FIELD OF EFLBAT WORDS 
FORMALF 
PTOGe. COMMENT TELLS THAT FORMAL PARAPART tS BEING PROCESSD3 
PT0G 
SPeECcTOG, 
SPECTOG 
STOPENTRY» COMMENT THYS MAKES THE ENTRY PROCEDURE ENTER ONLY 
STOPENTRY 
. ONE 10 AND THEN EIXTS 
AJUMP3 COMMENT TELLS WHETHER A JUMP IS HANGING? 
AJUMP 
BOOLEAN STOPDEFINE) 
STOPDEFINE 
INTEGER MAXSAVE? 
MAXSAVE 
COMMENT THrS CONTAINS THe SIZE OF THE MAXIMUM SAVE ARRAY 
DECLARED, tT 18 USED TO HELP DETERMINE STORAGE REQUIREMENTS 
FOR THE PROGRAM PARAMETER BLOCK FOR THE OBJECT PROGRAM} 
REAL 
KLASSE» COMMENT CLASS IN LOW ORDER 7 BITS3 
KLASSF 
ANDRSF >» COMMENT aDpRESS 1N LOW ORDER 11 BITS! 
ADDRSF 
LFEVELF » COMMENT LVL IN LOW ORDER 5 BITS3 
LEVELF 
, LyNKFs COMMENT LINK IN LOW ORDER £3 BITS3 
LINKF 
INCRE? COMMENT INCR CN LOW ORDER 8 BITS3 
INCRE 
, PROINFO> COMMENT CONTAINS ELBAT WORD FOR PROCEDURE BEING 
PROINFO 


DECLAREDS 


01572000 
01573000 
01574000 
01575000 
01576000 
01577000 
01578000 
01579000 
01580000 
01581000 
01582000 
01583000 
01583100 


01584000 
01585000 
01586000 


01587000 
01588000 


01589000 
01590000 
01591000 


01592000 


01593000 
01594000 


01595000 
01596000 


01597000 
01596000 
01599000 
01600000 
01601000 
01602000 
01603000 
01604000 
01605000 
01606000 
01607000 
01606000 


01609000 


tt st tat Ht 


4 4+ aA 


4a6424 4 4 


i 


0003:010733 
00038010783 
00038010713 
00031010733 
00038010783 
00038010783 
00031010713 
00033010783 
00038010783 
000330107383 
00031010733 
00038030733 
00032010733 


000310107133 
00032010733 
00033010733 


000380107383 
0003:010783 


00038040733 
00031010783 
00038010783 
0003!0107%3 
00038040743 
00038040733 


000310107183 
00038040713 


00031030713 
00031030783 
00031010783 
00032030733 
00031010783 
00033010783 
00038010783 
00039040783 
00031010713 
00039030783 
00031040733 
00033010733 


000310107183 


PRT(254) 


PRT¢255) 


PRT¢256) 


PRT¢257) 


PRT(260) 
PRT( 261) 
PRT(262) 
PRT¢263) 
PRT( 264) 


PRT¢265) 
PRT(266) 


PRT(267) 
PRT¢270) 


Gq 
TYPEV 

PR 
PROADO 


MARK 


PJ 

J 
LASTINFO 
NEXT INFO 
FIRSTX 
SAVEL 


INTEGE 
NCII 


Gs 


TYPEV, 


OADO, 


MARK » 


Pe 

Je 
LAaSTINEOs 
NEXTINFO, 


FIRSTX, 


SAVELS 


R Ncyts 


COMMENT GLOBAL TFMPORARY FOR BLOCKS 


COMMENT USF TO CARRY CLASS OF IDENTIFIER 


BEING DECLARED! 


COMMENT CONTAINS ADORESS OF PROCEDURE BEING 


DFCLARED?3 
COMMENT CONTAINS INDEX INTO INFO WHERE FIRST WORD 


OF ADDITIONAL INFO FOR A PROCEDURE ENTRY3 
COMMENT FORMAL PARAMETER COUNTERS 


COMMENT ARRAY COUNTERS 


COMMENT INDEX TO LaST ENTRY JN J[NFOS 


COMMENT INDEX FOR NEXT ENTRYIN INFOS 


COMMENT RELATIVE ADD OF FIRST EXECUTABLE CODE 


IN BLOCKsINITIALIZED TO 4095 EACH TIMES 
COMMENT SAVE LOCATION FOR FYXUPS IN BLOCK} 


COMMENT THyS CONTAINS THE COUNT OF CONSTANTS 


ENTERED 


PROCEDURE UNHOOK# FORWARD? 


UNHOOK 


PROCEDURE MAKEUPACCUMS FORWARDS 


~MAKEUPACCUM 


DEFINE PURPT=(428)#,SECRETa2#3 
COMMENT THFSE DEFINES GIVE THE NAMES OF THE WORD MODE OPERATORS, THE 
NUMBERS REFER TO THE APPROPRIATE SECTION OF THE PRODUCT SPECS, THE 
FULL NAME TS ALSO GIVEN 


DEF IN 
ADDN 
BBC 
ABW 
BFC 
BFW 
coc 
CHS 
coc 
cOM 
DEL 
DUP 
Fal 
LBC 
LBU 
GFA 
LFC 

LF 
GTR 
tov 
INX 
18) 


ae 
16#, 
oot, 
5348, 
36%, 
550#, 
468#, 
134#, 
408, 
1308,» 
10#, 
2618» 
561#, 
27h#, 
7T90#> 
Pit, 
2948, 
U = 8068» 
=z 378. 
s 3644, 
ma 248, 
ws 5328> 


Ce ee ee ee ee | 


COMMENT (0101) 
COMMENT ¢€0131) 
COMMENT ¢4131) 


COMMENT ¢4231) 
COMMENT ¢1241) 
COMMENT (1031) 
COMMENT (0241) 
COMMENT (1041) 
COMMENT (0045) 
COMMENT (2025) 
COMMENT ¢4425) 


COMMENT(C 2134 
COMMENT(6134 
COMMENT ¢012 
COMMENT( 2231 
COMMENT (62313 
COMMENT (022 
COMMENT ¢300 
COMMENT ¢014 
COMMENT (412 


) 


WN We © ee HWA Be 
Wwe & 


1N JNFO AT ANY GIVEN TYMES 


ADDS 

BRANCH BACKWARD CONDITIONALS 
BRANCH BACKWARD} 

BRANCH FORWARD CONDITIONAL? 
BRANCH FORWARD) 

CONSTRUCT DESCRIPTOR CALL? 
CHANGE SIGNS 

CONSTRUCT OPERAND CALL} 
COMMUNICATION OPERATORS 
DELETES 

DUPLICATE! 

EQUALS 

GO BACKWARD CONDITIONAL!) 
GO BACKWARD CWORD)3 
GREATER THAN OR EQUAL TO3 
GO FORWARD CONDITIONAL? 

GO FORWARD (CWORD)3 

GREATER THANS 

INTEGER DIVIDE! 

INDEX! 

INTEGER STORE DESTRUCTIVE) 


01610000 
01611000 


01612000 
01613000 


01614000 
01615000 


01616000 
01617000 


01618000 


a 
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01619000 T 


01620000 
01621000 


016227000 
01623000 


01624000 


01625000 
01626000 


01627000 


01628000 
01629000 
01630000 
01631000 
01632000 
01633000 
01634000 
01635000 
01636000 
01637000 
01638000 
01639000 
01640000 
01641000 
01642000 
01643000 
01644000 
01645000 
01646000 
01647000 
01648000 
01649000 
01650000 
01681000 
01652000 
01653000 
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00031010713 
00038010733 


00038010733 
000318040783 


00038040783 
00038040713 


00038010733 
00038010733 


000313010733 
000380107383 
000380107383 
00038010733 


00031040783 
00038010723 


000320107383 


000319040783 
00038040733 


00031043210 


00031014210 
00038014230 
000320142!0 
00031011230 
000310114280 
00033011280 
00038011280 
000310342t0 
00032014280 
00033011210 
00038044280 
00038043280 
00038044280 
000380442!0 
00038014280 
00038044280 
00038044280 
00031014220 
00038011280 
0003:01132!0 
000380443230 
000310342!0 
00038011230 
0003230411230 
00031014220 
00038011210 


PRTC271) 
PRT(272) 


PRT(¢273) 


PRT(274) 
PRT(275) 
PRT(276) 
PRT(277) 
PRT(300) 
PRT(301) 


PRTC302) 


PRT¢303) 


PRT(304) 
PRT(305) 


1SN 
LEQ 
LND 
LNG 
LOD 
LOR 
LQ@vV 
LSS 
MKS 
MUL 
NEQ 
NOP 
PRL 
PRTE 
RDV 
RTN 
RTS 
SND 
SSP 
STp 
SUB 
XCH 
XIT 
ZP1 
SCI 
SAN 
$cs 
COMMEN 
DEFINE 
DIA 
DIB 
TRB 


= 5488, COMMENT (4221) 
«= 5338, COMMENT ¢4125) 
= 67#, COMMENT ¢0445) 
a 19#, COMMENT (0145) 
z 260%, COMMENT (2021) 
x 35#, COMMENT (0275) 
z 131%, COMMENT (1015) 
= SAF, COMMENT ¢4295) 
= 728» COMMENT (441) 
= 64#s COMMENT ¢0401) 
mn 69%» COMMENT (0425) 
m 61H. COMMENT (0055) 
we 168, COMMENT (0111) 
» {28> cOMMENT ¢0061) 
= 896#, COMMENT (7001) 
=z 398» COMMENT (0235) 
= 1678 COMMENT (1235) 
= 1328, COMMENT (1021) 
= 5828, COMMENT (4431) 
= 66#> COMMENT (0491) 
a ABR, COMMENT (0301) 
2 1334» COMMENT (1025) 
zn 71#> COMMENT (0435) 
2 372%, COMMENT ¢€24 41) 
B1003%> COMMENT (7655) 
si{004#, COMMENT (7661) 
a1019#}3 COMMENT (7755) 
T THESE DEFINES ARF USEN 
= 45%, COMMENT ¢XX55S) 
= 49%, COMMENT ¢XX61) 
e 534; COMMENT ¢XX65) 


REAL MAXSTACK»sSTACKCTRS 


MAXSTACK 
STACKCTR 


INTEGER MAXROWS 


MAXROW 


ra 


io) on 
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BY EMITD3 
7.4.7.1 
7.4.7.2 
Ti Ag? s3 


INTEGER STORE NON@DESTRUCTS 
LESS THAN OR FQUAL TO} 
LOGICAL AND3 

LOGICAL NEGATES 

LOAD OPERATOR? 

LOGICAL OR} 

LOGICAL EQIVALENCE3 
LESS THAN} 

MARK STACK} 

MULTIPLY3 

NOT EQUAL TO3 

NO OPERATIONS 

PROGRAM RELEASE} 
EXTEND PRT? 

REMAINDER DIVIDES 
RETURN NORMALS 

RETURN SPECyALS 

STORE NON@*DESTRUCTIVES 
SET SIGN PLUS3 

STORE DESTRUCTIVES 
SuBTRACT? 

EXCHANGES 

EX1T3 

CONDITIONAL HALT? 

SCAN OUT INITIALIZES 
SYSTEM ATTENTION NEEnEn? 
SCAN OUT STOP3 


DIAL Ab 
DIAL BS 
TRANSFER BYTSS 


COMMENT THIS CONTAINS THe MAXIMUM ROW SIZE OF ALL NON®SAVE 


ARRAYS MECLARED, 


ITS USE 1S LIKE THAT OF MAXSAVES 


INTEGER SEGSIZEMAX! COMMENT CONTAINS MAX SEGMENT SIZE} 


SEGS1ZEMAX 
INTEGER 
F 


NLO 
NHI 
TLO 
THI 


nPTOG 


Fs 


REAL NLO*NHI eTLOeTHIS 


BOOLEAN DPTOG) 


COMMENT 


BOOLEAN DOLLAR2TOG3 


NOLLAR2TOG 


DEFINE FZEROsB968}3 
REAL TipsT2eNe Ke AKKUMS 


T1 
T2 


THE ABOVE THINGS ARE TEMP STORAGE FOR DOUBLE NOS) 


01654000 
01655000 
01656000 
01657000 
01658000 
01659000 
01660000 
01661000 
01662000 
01663000 
01664000 
01665000 
01666000 
01667000 
01668000 
01669000 
01670000 
01671000 
01672000 
01673000 
01674000 
01675000 
01676000 
01677000 
01677050 
01677100 
01677150 
01678000 
01679000 
01680000 
01681000 
01682000 
01683000 


01684000 
01685000 
01686000 
01687000 
014688000 


01689000 


01690000 


01691000 
01691500 


01692000 
01693000 


i Le Le Lee ee 


44-4 


000330431230 
00038014280 
00033014210 
000380113280 
00034043280 
00033014280 
00038011230 
00038041230 
00038011280 
00033011230 
00038014210 
0003810112190 
00033011210 
00031011280 
00038041210 
00038011210 
00038013290 
00032011230 
00038011220 
00038011280 
00038011290 
00031011280 
00038011210 
00038011290 
00031011210 
00031011230 
000310314210 
0003201411240 
00033044280 
000380434210 
000318094210 
00038041280 
00038044210 


000380112!0 
00033014280 
000380143280 
000330142!0 
0003#0442%0 
00038044280 


00038034210 


00031044280 
00038044210 


00032043280 
00038014290 


PRT(306) 
PRT(307) 
PRT¢(310) 
PRT¢311) 
PRT(312) 


PRT¢313) 


PRT¢314) 
PRT¢345) 


PRT¢316) 
PRTC347) 


PRT(320) 
PRT( 321) 
PRT¥¢392) 
PRT(393) 
PRT(394) 
PRT(325) 
PRT(326) 
PRT(327) 
PRT¢330) 
PRT¢331) 
PRT¢(332) 
PRT¢333) 
PRT¢334) 


N 
K 
AKKUM 
BOOLEAN STOPGSPs 
STOPGSP 
INTEGER BUP3 
RUP 
RBOOLFAN INLINETOG3 
INLINE TOG 
COMMENT UNIQUE GLOBAL TEMP FOR RLOCK3 
ARRAY GTA1f0210)3 
aTAl 
BOOLEAN ARRAY SPRI(0#314)3 


COMMENT SPRT 1S TO BE CONSTDERFD TO BE AN ARRAY OF 32 32 BYT 
FIELDS. THE 32 BrTS ARE IN THE LOW ORDER PART OF FACH 
WORD, THE BrT «tS ON TF AND ONLY IF THE CORRESPONDING 
PRT CELL HAS A PERMANENT ASSIGNMENTS 
INTEGER PRTIsPRTIMAXS 
PRT] 
PRTIMAX 
COMMENT PRTIMAX GIVES NEXT PRT CELL AVAILABLE FOR PERMANENT ASSIGN® 
MENT, PRTI GIVES NEXT PRT CELL POSSIBLY AVAILABLE FOR 
TEMPORARY ASSIGNMENTS 
DEFINE ALPHASIZE = f(1286)]#3 COMMENT ALPHASIZE IS THE DEFINE FOR THE BIT 
PoS+TION IN THE SECOND WORD OF INFO WHICH 
CONTAINS THE LENGTH OF ALPHAS 
DEFINE FNOCTINDEX # ef 36%31eL.03997)3#3 COMMENT EDOCINDEX IS THE WORD 
PORTION OF L SPLIT INTO A ROW AND 
COLUMN INDEX FOR EDOC!} 
COMMENT SEE COMMENT AT CPLUS2 DEFINES 
COMMENT CPLUS1 AND CPLUS2 ARE EXPLICIT CONSTANTS 
USED IN THE GENERATION OF C#RELATIVE CODES 
PROCEDURE FLAGCERRNUM)$ VALUF ERRNUMS INTEGER ERRNUMS FORWARDS 


DEFINE cPLUS{ = 769#3 
DEFINE cPLUS2 = 770#3 


FLAG 
ALPHA PROCEDURE B2n(B)? VALUF 83 RFAL Bs FORWARD? 
R2D 
REAL PROCEDURE TAKECW)! VALUF W3 INTEGER WS FORWARDS 
TAKE 
BOOLEAN MACROID3 
MACROID 
REAL PROCEDURE FIXDEFINEINFOCT)3 VALUE T3 REAL T3 FORWARDS 
FIXDEFINEINFO 
PROCEDURE ERR CERRNUM): VALUF ERRNUM? INTEGER ERRNUMS FORWARD? 


FRR 
INTEGER PROCEDURE GITCL)S VALUP Ls REAL L$ FORWARD? 
Git 
ARRAY cALLALO#31202255)3 
cALLA 
DEFINE CALLECALLIJaCALLAC(CGT3¢CALL1),LINKR,GT3,LINKCJE) 
REAL CALLX»CALLINFOsNESTCTR»eNESTCURS 
CALLX 
CALLINFO 
NESTCTR 
NESTCUR 
ARRAY WESTPRICPRTIBASESPRTOP]3 
NESTPRT 


ARRAY SORTPRTrOSPRTOP=PRTBASE]3 


01694000 
01695000 


01695500 


01696000 
01697000 


01698000 


01699000 
01700000 
01704000 
01702000 
01703000 


01704000 
01705000 
01706000 
01707000 
01706000 
01709000 
01710000 
01711000 
01712000 
01713000 
01714000 
01715000 
01716000 


01717000 
01717700 
01717800 
01717900 
01718000 


a 


a ts st st st st 


ee ee ee | 


01719000 T 


01720000 


01721000 
01722000 


01724000 


01725000 


“<4 


00031014210 
00038043210 
00038043230 


000310494210 
000380414290 


000381012404 


000380417432 
000348044732 
00038043792 
00031014782 
00031014712 


000318011782 
000330144782 
00031011732 
00031011782 
00038044722 
00038044782 
00038044782 
000380947!2 
00038014782 
00038014712 
00032014782 
00038011782 
00038011782 


00033011782 
000380194782 
0003!:0447!2 
00031011782 
00038014712 
00031011742 
00038014712 


00031011983 
000398011983 


00033044923 


00038012210 


PRT¢ 335) 


PRT(¢336) 


PRT¢337) 


PRT¢340) 


PRT(341) 


SORTPRT 


COMMENT *BLANKET® RLANKS OUT Nai WORDS IN *THERE™3 
STREAM PROCEDURE BLANKETCN,THERE)S$ VALUE NI 
BLANKET 
BEGIN 
DI teTHERES OSteB LIT" "3 STssTHERES DStaN WOS3 
END BLANKET} 


STREAM PROCEDURE CHANGESEOCVAL®OLDSF9)3 VALUE OLDSEQ@}3 
CHANGESEQ 


BEGIN DYFeOLDSEQs SytaVAL3 DSt=8 DEC END CHANGESEOS 


STREAM PROCEDURE SFQUENCEERROR(L) 3 
SEQUENCEEFRROR 


BEGIN DItSL# DSte16 LIT"SEQUENCE ERROR "3 END SEQUENCEERROR? 


GETVOID 
BEGIN 
LABFL LeEXITS 
LOCAL NS . 
SptaNCR3 DiteVP3 OSt=8 LIT OMS 
2c3acyF SCe * THEN SyseSree ELSE YUMP OUT 2 TO L))3 
GO TO EXIT ® NO VOID RANGE GIVEN? 
Lé 


IF SC="" THEN GO TO EXITS 
IF SC=""" THEN 
BEGIN 


% STILL NO RANGE, 


STREAM PROCEDURE GETVOIDCVPeNCR»LCR»SEQ)3 VALUE NCRoLCRI 


RETURN ZERO, 


SpeeSteis OLteLCRs DStad LIT™""$ F STOPPER FOR SCAN 
NCRiwSts & TEMP, STORAGE*® SINCE NCR IS "LOCAL" TO GETVOID, 


BCIF Sc#e""" THEN JUMP OUT FLSE 
BEGIN TALLYteTaALLY413 SypteSre1 FND)3 
END 
ELSF BEGIN 


NCRisSys & TEMP, STORAGE*® SINCE NCR IS "LOCAL™ TO GETVOID, 


DitsLCRs OStat LIT" #8 x STOPPER FOR SCAN 
BCIF Sca™ * THEN JUMP OUT ELSE 
BEGIN TALLYsmTaALLY+13 Srt#Srei END)3 

END} 

StteNCR} DOL teVPs O1s=Dy4+68s & RESTORE POINTERS, 

NteTALLY3 DytenreN3s OSteN CHR 

FXYT? 
END OF GETVOTD? 


REAL VOrDCReVOIDPLACEPVOIDTCReVOIDTPLACES 


01726000 
01737300 
01737350 


01737400 
01737450 
01737500 


01741200 


01741300 


01742100 
01742110 


01756000 


01757000 
01758000 
01759000 
01761000 
01762000 
01763000 
01764000 
01764500 
01765000 
01766000 
01767000 
01768000 
01769000 
01770000 
01771000 
01772000 
01773000 
01774000 
01775000 
01776000 
01777000 
01780000 
01761000 
01782000 
01784000 


01785000 


AHA HHH HHH HA A Hes 


3a44 a4 


00038012630 
00033012680 
00031012630 


000380342630 
00033:01427:2 
00038049982 


00031012933 


00038042913 


00032013132 
000330;,34%2 


0003%01433!3 


0003401433!3 
00038013430 
00033013430 
000380434:0 
00038043533 
0003:0138814 
00033043814 
0003801381 
00031043913 


00038014080 


00038014080 
00033014133 
00038014230 
000320144383 
00031014512 
00038034512 
0003807 4a5!2 
00031044583 
00031014610 
0003150¢q783 
00038044982 
00031044912 
00031014983 
00038045182 
00038015482 


00038015132 


PRT¢(342) 
PRT(343) 
PRT( 344) 
PRT( 345) 


PR¥¢346) «= 


PRY¢347) « 


STACK ¢F42) 
STACK (CF 43) 
STACK¢CF44) 
STACK ¢F 45) 
STACK(F 46) 


PRT¢350) « 


PRT(351) & 


PRT(352) # 


PRT(353) # 


PRT(354) « 


PRT(355) = 


VOTOCR 
VOIDPLACE 
VOLTDTCR 
VOTOTPLACE 
FORMAT 
RUGCX24o4¢A4eX2))3 
RUG 
PROCEDURE DATIMES 
NATIME 
BEGIN 
INTEGER HoMINeQS ALPHA Ni,N23 
z= H 
= MIN 
a Q 
a Ni 
a N2 
‘ ALPHA STREAM PROCEDURE DATERCDATE)3 VALUE MATES 
NATER 


BEGIN 

DIteLOC DATERS SleaLoc DATES SI saS1+23 
9(O0Steo CHR: OSteLil[Te/")3s pSts2 CHR} 
END OF DATER3 


HteTIMEY DLV 2160003 MINtSCTIMEL DIV 3600) MOD 603 
NitsDISK.MFIDS NOUaDISK.F IDs 
WRITECLINE®s 
<X22e"BURROUGHS B°5700 ESPOL COMPILER MARK ", 
*FORMAT DESCRIPTOR 
"XV1.9,916" 
er MM pABe"DAY > Me0e%, MeL Ae*S™ AD eX1 DASe 
JIFLXUES ALO AGe Sp Ala Aba/X45el SC ta) // >, 


TIMEC6) sDATERCTIMECS) )212xREALCQtRH MOD 1280)+Q> 
*LIST» LABEL, OR SEGMENT DESCRIPTOR* 

Qt=MIN MOD 104¢MIN DTV 10)x64. 

IF M212 THEN "PM," ELSE "AM,"> 

NI COMGI oN oN2,f6tGI N23 
OUTPUT CW) 

1F MFRGETOG THEN % INDICATE NAMF OF SOURCE FILE. 
WRITE CLINE» <XG0e"SOURCE FILES “sAteAbe"/ At pAbe//>o 

*FORMAT DESCRIPTOR* 


CNITETABE MFID) C686] sNie(NOSMTAPE FID), [686] eN2)$ 
*LIST» LABEL, OR SEGMENT DESCRIPTOR* 
NOHFADING# SFALSES 
END OF DATIME3 


COMMENT 


F117 


Ri1is 


THIS SECTION CONTAINS ALL CODE PERTAYINENT TO READING CARDS 


01800000 T 00031015132 
01802000 T 000310151%2 

START OF SEGMENT *4¥e8eb eee 

4 3S 8 LONG» NEXT SEG 
01820000 T 000320151312 
01821000 T 0003!0451!%2 
01822000 TF 00031045;3t2 

START OF SEGMENT xe ekeeeene 
04823000 T 00058000030 
01824000 T 000530000!0 
01825000 T 0005:0000:!0 
01826000 F 0005000014 
01827000 T 0005:0002%0 
01828000 T 000510003!2 
01828500 T 0005!10007:2 
01829000 T 00058004383 
01830000 T 0005:0015%t2 
01831000 P 000610015!2 
01832000 T 0006!00;15!2 
01832500 T 000610045!2 

6 1S 40 LONGs NEXT SEG 
01833000 T 00051004610 
01834000 T 00051003210 
01835000 T 00051003634 
01835500 T 0005800432 
01835600 c 00058005332 
01835700 ¢ 000510054:0 

7 IS 14 LONGs NEXT SEG 
01835800 ¢ 0005!0057!2a 
01836000 T 0005!0077%t2 
01837000 T 00053007830 

5 1S 82 LONGs NEXT SEG 
02000000 T 00034015112 


4 


3 


5 


) 


3 


3 


AND SCANNING THEM} 


OM aa ee he he ae ie Rg OR OR Og RRR Rk HO kk AG ORK ok 


% 
% MISCELLANEOUS CROSS REFERENCE PROCEDURES 
% 


%110° 
41100 
2110" 


SE eth ge ne ep Ri aia RO ORO ORT OEO tO dO 


x 
PROCFOURE CROSSREFITCINDEX,SEQNOSREFTYPE)DS 
PRT¢356) = ¢ROSSREF YT 
VALUE INDEXsSEQNO,REFTYPE3 


REAL I {NNDEX,»SEQNO,REFTYPES 
BEGIN 
IF XREFINFOCINDEX),JONOF # O THEN & SAVE 
BEGIN 
IF XREFPT > 29 THEN ® NO SLOTS LEFT IN ARRAY, WRITE IT OUT, 
BEGIN 


WRITE CDSK2»300eXREFAY2(4%))3 
XREFPT te O3 
END: 
XREFAY2CXREFPT) te SEQNO g REFTYPe TYPEREF & XREFINFOCINDEX) 
REF IONOFS 
XREFPT se XREFPT + 1% *® EVEN THOUGH THE ARRAY MAY BE FULL NOW WE 
% CANT WRITE YT OUT BECAUSE SOME ROUTINES 
¥ WILL LOOK BACK AT THe ENTRY WE JUST PUT 
Z IN AND FIX IT UP, 
ENDS 
END OF CROSSREFIT3 


% 
PROCFOURE CROSSREFNUMPCINDEX)3 
PRT¢357) = cROSSREFDUMP 
VALUF JNDEX3 
REAL +NNOEX? 
BEGIN 
STREAM PROCEDURE MOVEXREFINFOCSs0,N)3 


PRT¢360) = MOVEXREFINFO 
VALUE N3 
BEGIN ; 
ST #8 DF DI te ps OS te B LIT * "3 DS te 7 WOSS & BLANK RECORD 
St se Ss St te SY + 33 DY t= DS DS te N CHRS & MOVE IDENTIFJER 
END Of MOVEXREFINE OS 


z 

IF XREFINFOCINDEX).TONOF # O THEN & DUMP IT 

BEGIN 

MOVEXREFINFOCINFOCTNDEXeLINKRe INDEX LINKCH1I,XREFAVIEC#)— 
TAKECINDEX41).61296)93 

XREFAY1(8] te XREFINFOLINDEX]3 

XREFAY1C9] &3 TAKECINDEX)3 & ELBAT WORD 

WRITE COSKie J OeXREFAYIC*I 3 


¥110- 
%110° 


%1100 
%110- 
%1108 
%110° 
4110 
110" 
%110° 
%110° 
%110# 
%110- 
#110" 
%110° 
%110° 
%110« 
£110= 
£110" 
%110= 
%110= 


%110° 
¥110° 


%110- 
%110- 
%110= 
£1109 


%110@ 
£110" 
£110" 
#110° 
¥110" 


%110+ 
%110° 
%1100 
£110° 
#110" 
£1100 
£1102 
%110= 


02001000 
02001605 
02001610 
02001615 
02001620 
02001630 
02001635 
02001640 


02001645 
02001650 
02001685 
02001660 
02001665 
02001670 
02001675 
02001680 
02001685 
02001690 
02001695 
02001700 
02001705 
02001710 
02001715 
02001720 
02001725 
02001730 


02001735 
02001740 


02001745 
02001750 
02001755 
02001760 


START OF SEGMENT 


02001765 
02001770 
02001775 
02001780 
02001785 


02001790 
02001795 
02001800 
02001805 
02001810 
02001815 
02001820 
02001621 


IAaaanonaa 


HOHOIAMAINOINMNAAIAYONANONONAAAN 


OoaaIannan 


000338045422 
0003%0151%2 
000320151%t2 
00033015182 
00033015182 
000318015132 
00033015132 
00031075182 


00033015132 
00038045442 
0003801451482 
00038035112 
00038015583 
00032015610 
00031015732 
00033015733 
000380161183 
00038016231 
000310162%4 
00031016634 
000320168!0 
00033036923 
00038076983 
00038046933 
00038046983 
00031016933 


00033016983 
000320169383 


00038016913 
00033016913 
000380169183 
000380469183 


eeERR EH KE 


0008!000010 
00088000010 
0008:000010 
00088000230 
00081000312 


00081000313 
0008!0003%3 
00082000783 
00061000680 
00083001143 
0008:004383 
00061001783 
000680019!%2 


XREFINFOFINDEX] te 03 *%110= 
END? %110° 
FNO OF CROSSREF QOUMPS 2110-8 


COMMENT OCTIZE REFORMATS ACCUM FOR OCTAL CONSTANTSS 
BOOLEAN STREAM PROCEDURE OCTIZECS#D,SKP»CNT)3 VALUE SKP»CNT3 
PRT(361) & OCTIZE 
BEGIN 
SpieSs SrtaS1+4s DItads SKP¢DSte3d RESET) &¥ RIGHT JUSTIFY, 
CNTe tr Sc2"e" THEN TALLY$=1 ELSE IF SC<"O" THEN TALLYtmys SIP 3 SB! 
 3CYF SB THEN DSt=SET ELSE DStaRESETS SKIP SB))3 
StteD3 IF SB THEN 
BEGIN TALLY#te1# DT%=Ds DSteRESET ENDS & PREVENT FLAG BIT, 

OCTYZEtmTALLYS & "1" @ NON OCTAL CHARACTER OR FLAG BIT, 
END OCTIZES 


COMMENT HEXIZE REFORMATS ACCUM FOR HEXADECIMAL CONSTANTS? 
BOOLEAN STREAM PROCEDURE HEXIZECS#DsSKPeCNT)3 VALUE SKPeCNT? 
PRT¢362) @ WEXIZE 
BEGrN LOCAL Tl,T2sTEMP2,TEMP1L3 LABEL AGINS 
COMMENT LOCAL VARIABLES ARE LOCATED IN REVERSE ORDER FROM THE 
_ WAY THEY ARE DECLARED 1N STREAM PROCEDURESS 
DirteLOC TEMP13 CNTCDStaLITy")2 ZF IN CASE A CHARmAsBeCoDeOR F, 
SpteSi Srt#Si+3s DIt=L0C TEMPis % WE MAY OVERFLOW INTO TEMPo, 
CNT¢CIF SCc"O" THEN IF SC2"Am THEN IF SCS*FY THEN & WORK HARD, 
BEGIN 
TqyteSTs TaseOis Opsetis StssTos % FLIPs MAN, 
NSix3 RESETS SItaTi1s DyseTos & FLIP BACK, 
DSte, ADDs DiteDieys SKIP 2 DBS DSteq SETS SKIP 3 DB3 
GO AGIN? 
END: 
IF SC<"O0" THEN TALLYs24% DSteCHRs & < 0 = NON@HEX CHARACTER, 
AGIN! 
> 
SrtsLOC TEMP1! DiteD) SKP¢DSted RESET) & RIGHT ADJUST CONSTANT, 
CNT¢SKyP 2 SBI 
4¢1F SB THEN DSItsSET ELSE DSteRESETS SKIP SB))3% FINAL CONVERT, 
SttseDs JTF SB THEN ; 
REGIN TALLY!"41? prteDs OStwsRESET ENDS & PREVENT FLAG BIT, 
HEX1ZE tm TALLY? & "9" TF PROGRAMMER GOOFED, 
END HEXIZE3 


COMMENT PUTSEQ@NO PUTS THE SEQUENCE NUMBER OF THE CARD@I MAGE 
CURRENTLY BEING SCANNED INTO THE INFO TABLE IN CASE 
1T 18 NEEDED FOR FUTURE REFERENCE? 
STREAM PROCEDURE PUTSEQNOCINFoeLCR)) VALUE LCR} 
PRT(¢363) = PUTSEQNO 


02001822 ¢ 
02001625 ¢ 
02001830 ¢ 

28 LONGs 


02001836 T 
02001838 


~ 


02001840 
02001842 
02001844 
02001846 
02001848 
02001850 
02001852 
020018654 


ee 


~4 


02001856 
02001858 


a" 


02001860 
02001862 
02001864 
02001 866 
02001868 
02001870 
02001872 
02001874 
02001876 
02001876 
02001860 
02001882 
02001884 
02001886 
02001888 
02001890 
02001892 
020018694 
02001895 
02001896 
02001897 
02001898 


HAHAHAHA HAH 


02002000 
02003000 
02004000 


02005000 


44+ 


00081009383 
0008:0027!2 
000880020732 
NEXT SEG 


00031016923 
00033046933 


00034016983 
00031017030 
00031047280 
0003:0475%2 
00038047783 
000330176:0 
00038017983 
00033047933 


000380180!3 
00031048081 


00033016081 


3 


00031038432 


000380481482 
00031048182 
00038048312 
0003801833 


O00380L87I2 


0003301487322 
0003!0188!1 
00038018983 
00033019084 
00033019182 
000380749412 
00033019210 
00038049210 
00031049210 
00038049410 
00038049513 
00031039733 
000380149881 
000330399983 
00038020030 


00038020182 
00038020332 
000380204382 
0003#0201!2 


i 


PRT¢364) 


PRT(365) 


PRT( 366) 


PRT(367) 


PRTC370) 


BEGIN ODTtesrNFOS STIFLCRS NStewWhHS; END PUTSEQNO3 


COMMENT TURNONSTOPLIGHT TURNS THE LIGHT *"RED"® ON THE *CORNER®, 
1.Fee THE PURPOSE OF THIS ROUTINE 1S TO INSERT A PER= 
CENT STGN 1N COLUMN 73 AS AN END OF CARD SENTINEL FOR 
THE SCANNER) 
STREAM PROCEDURE TURNONSTOPLIGHTCRED»s CORNER)’ VALUE REDsCORNERS 
TURNONSTOPLIGHT 
BEGIN DIYtsCORNERS SIteLOc CORNERS SitmwSI=qs DSteCHR END: 


COMMENT WRITNEW TRANSFERS THE CARD IMAGE TO THE NEWTAPE BUFFER 
AND REPORTS IF THE CARD MIGHT BE CONTROL CARD3 
BOOLEAN STREAM PROCEDURE WRITNEWCNEWSFCR)S VALUE FCR3 
wRITNEW 
REGIN SI «+ FCRS IF Sc #¢ "S$" THEN TALLY « 13 
DTeNEWIDSe40 WOSS 
WRITNEW « TALLY END WRITNEWS 


COMMENT MKABS CONVERTS A DESCRIPTOR TO AN ABSOLUTE ADORESS} 
REAL STREAM PROCEDURE MKABS(A)} 
MKABS 
REGIN DI « A$’ MKABS « DI END MKABS} 


REAL STREAM PROCEDURE CONVCACCUMsSKPeNISVALUE SKP,N3 
cONV 
BEGIN 


Ste ACCUMS SyeS1aSKP3SpeS pe RID +LOC CONVEDSeN OCT 


FND: 


STREAM PROCEDURE MOVECHARACTERSCN»SORCEsSSKIPeDESTsDSKIP)S 
MOVECHARACTERS : 
VALUE NeSSKIPsDSKIP! 

BEGIN 

SteSORCE 3% D1eDEST3 
St#Syr+SSKIPs Dy* Dy+OSKIP 3 
pS « N CHR } 

END 3 


COMMENT MOVECHARACTERS MOVES N CHARACTERS FROM THE SSKIP=TH CHAR IN 


02006000 


02007000 
02008000 
02009000 
02010000 
02011000 


02012000 


02014000 
02015000 
02016000 


02047000 
02046000 
02020000 


02021000 
02022000 


02023000 


02041000 


02042000 
02043000 
02044000 


02045000 


02046000 
02047000 
02048000 
02049000 
02050000 
02051000 


02052000 


444 


—~ 


4-4-4 


~4- 


—~ 


a4 4-4 


000310201!2 


00031020210 
000318020210 
00031020210 
00038020210 
000310202:0 


00038020230 


00038020382 
000310203182 
00038020382 


00038020382 
0003'0205%2 
00038020583 


00031020684 
00031020684 


00031020611 


0003:02063 3 


00033020881 
00031020982 
00031024084 


00038021133 


000380249383 
00031023133 
00038021210 
00031027214 
00038024393 
00033024410 


00038021410 


*"SORCE® TO THE OSKYP=@TH CHAR IN *®DEST*, i) 
STREAM PROCEDURE MOVECWI"WORDS FROM*™CAI*"TOWCB)S VALUE W3 
PRYC371) = MOVE 
REGIN S] «© AS Dt « BS DS © W WOS END3 


STREAM PROCEDURE RESIZECFIEL)D3 
PRT¢372) m RESIZE 
BEGIN LOCAL T3 
SteFIFLs DteLOC Tr DSeWDS3 
SpeTsDreFTELSOyeDy4is SKIP 2 DBS DSe10 SET 
ENDS 


COMMENT EQUAL COMPARES COUNT CHARACTERS LOCATED AT A AND B FOR 
FQUALITY, THIS ROUTINE IS USED IN THE LOOKUP OF ALPHA 
QUANTITIES IN THE DIRECTORYS3 
BOOLEAN STREAM PROCEDURE EQUALCCOUNT» A,B) VALUE COUNTS 
PRTC373) «& FQUAL 
BEGIN 
TALL Ytegs Sptwas DI esBs 
IF COUNT SC#DC THEN EQUALI®TALLY 
END EQUALS 


PROCEDURE READACARDS FORWARD? 
PRT(374) = READACARD 
PROCEDURE NOLLARCARD!? FORWARD: 
PRT¢375) s NOLLARCARD 
BOOLEAN PROCEDURE BOOLEXP3 FORWARD3 
PRT(376) & BOOLEXP 
PROCEDURE SCANNERS 
PRT(377) = SCANNER 
BEGIN 
COMMENT "SCAN" 1S THE STREAM PROCEDURE WHICH DOES THE ACTUAL SCANNING, 
TT 1S DRIVEN BY A SMALL WORD MODE PROCEDURE CALLED "SCANNER", 
WHICH CHECKS FOR & QUANTITY BEING BROKEN ACROSS A CARD, "SCAN" 
1S CONTROLLED BY A VARYVABLFE CALLED "RESULT™, "SCAN® ALSO 
INFORMS THE WORLD OF ITS ACTION BY MEANS OF THE SAME VARIABLE. 
HENCE THE VARIABLE *"RESULT® 1S PASSED BY BOTH NAME AND VALUE, 
THE MEANING OF "RESULT AS INPUT 1S3 
VALUE MEANING 


EREEE Trt ti tttittiiT tT Titi ittT tt ti ttt ttt tt ttt 
0 INITIAL CODE = DEBLANK AND START To FETCH THE 
NEXT QUANTYTY, 
| CONTINUE BUILDING AN IDENTIFIER CINTERRUPTED BY 
END*OF*CARD BREAK)» 
2 LAST QUANTITY BUILT WAS SPECIAL CHARACTER, HENCE» 


EXIT CINTERRUPTION BY END*OF*CARD BREAK IS NOT 
IMPORTANT), 
3 CONTINUE BUILDING A NUMBER CINTERRUPTED BY END@OF= 


02053000 
02054000 


02055000 


02056000 


02057000 
02056000 
02059000 
02060000 


02061000 
02061500 
02062000 
02062500 


02063000 
02063500 
02064000 
02064500 


02065000 
02065500 
02065600 
02066000 


02066500 
02067000 
02067500 
02068000 
02068500 
02069000 
02069500 
02070000 
02070500 
02071000 
02071500 
02072000 
02072500 
02073000 
02073500 
02074000 
02074500 
02075000 


4a4-4 4 ~— 


4qa4--4 swt 


—_ 


Asa HHH Ht tt 


000348021460 
00031021430 


000330214890 


00031024610 


00038024630 
000380217382 
00038024713 
000310219%2 


000330249382 
00033021912 
000310219!2 
00033024912 


00032021982 
00033022010 
00033002024 
00038020133 


0003022231 
00031022234 
00038020084 
00033022284 


00038022284 
00031022211 
00038022283 
00038022281 
000380220201 
00038027284 
00033022204 
000318090084 
00031092284 
00038020284 
00033022281 
00038022231 
00038022281 
00038022281 
0003!0222!1 
000318022284 
00038022281 
000310292231 


PRTC400) = SCAN 


5 

6 

7 

THE MEANING 

VALUE 
sSss2e2 

{ 

2 


3 
"SCAN" PUTS 


CARD BREAK), 

LAST THING WAS AN ERROR (COUNT EXCEEDED 63), HENCEs 
EXIT (INTERRUPTION BY END=OF*CARD BREAK NOT 
IMPORTANT), 

GET NEXT CHARACTER AND EXIT, 

SCAN A COMMENT, 

DEBLANK ONLY, 

OF "RESULT" AS OUTPUT 183 

MEANING . 

SSESERS SES EBSKSeFSEBERercreeesssetesatrzezkcs 

AN IDENTTFYER WAS BUILT, 

A SPECIAL CHARACTER WAS OBTAINED, 

A NUMBER cCYyNTEGER) WAS BUILT, 

ALL STUFF SCANNED CEXCEPT FOR COMMENTS AND 


DISCARDED BLANKS) INTO "ACCUM" (CALLED "ACCUMULATOR" 


FOR THe REST 
wCOUNT® IS T 
#SCAN® HAS P 
THE VALUE §0 
ULATOR® AND 


*"COUNT® 1S PASSED BY BOTH NAME AND VALUE, 


CONVENTENT T 
WNCR® (NEXT 


NAME AND VAL 


OF THIS DySCUSSION), 
HE VARIABLE THAT GIVES THE NUMBER OF CHARACTERS 
UT INTO THE "ACCUMULATOR™, SINCE "SCAN" NEEDS 
THAT IT CAN PUT MORE CHARACTERS {NTO THE *"ACCUM@ 
NEEDS TO UPDATE "COUNT" FOR THE OUTSIDE WORLD» 
1T 1S ALSO 
0 HAVE ¢63=COUNT?), THIS 18 CALLED "COMCOUNT™, 
CHARACTER TQ BE SCANNED) IS ALSO PASSED BY 
VE SO THAT IT MAY BE UPDATED, 


*"STy" AND "ST?" ARE TEMPORARY STORAGES WHICH ARE EXPLICITLY 
PASSED TO "SCAN" IN ORDER TO OBTAIN THE MOST USEFULL STACK 


ARRANGEMENT. 


i 
STREAM PROCFDURE SCANCNCRsCOUNTVsACCUM+COMCOUNT® RESULT eRESULTV, 


COMMENT 


Ki 
DEBLANK: 


Ls 
COMMENT 


BFGIN 


COUNT,ST2,NCRVeST4)3 
VALUE COUNTVe COMCOUNT,RESULTVeST2eNCRVeST43 


LABFL DEBLANK «NUMBERS» | DBLOR»GNCoK DEXITOFINIS»LeERROR, 
COMMENTS» COMMANTS3 


DIS=RESULT; 


Di teDy+73 SPtencCRv3 


SETUP #DI* FOR A CHANGE IN "RESULT® AND "SI" FOR A LOOK AT 


THE BUFFERS 


CISSCI+RESULTVG % SWITCH ON VALVE OF RESULTS 


GO DEBLANK; 
GO IDBLDR3 
GO FINTS}) 

GO NUMBERS$ 
GO FINYS3 

GO GNC3 

G0 COMMANTS3 


IS INITIAL CODE, 
18 10. CODE, 

1S SPECIAL CHARACTER CODE. 
1S NUMBER CODE, 

FRROR cOnE, 
1S GET NEXT CHARACTER CODE, 
1S COMMENT CODE, . 

1S DEBLANK ONLY CODE, 


BR BR JQ BE DO Fe BC ae 
Nourwn-o 
— 
an 


1F SCem © THEN 


BFGIN 
GO FINYTS3 


StseSr+q3 1F Sca* “ THEN GO K END3 


IF SCs” " THEN 


REGIN 


SreeSret1; JF See" " THEN GO L ENDS 


1F WE ARRtVE HERE WE HAVE A NON®@BLANK CHARACTER 


NCRViaS]73 
rFSe 2 "0" 


THEN GO NUMBERS} 


02075500 
02076000 
02076500 
02077000 
02077500 
02076000 
02078500 
02079000 
02079500 
02080000 
02080500 
02081000 
02081500 
02082000 
02082500 
02083000 
02083500 
02084000 
02084500 
02085000 
02085500 
02086000 
02086500 
02087000 
02087500 
02088000 
02088500 
02089000 
02089500 


START OF SEGMENT 


02090000 
02090500 
02091000 
02091500 
02092000 
02092500 
02093000 
02093500 
02094000 
02094500 
02095000 
92095500 
02096000 
02096500 
02097000 
02097500 
02098000 
02098500 
02099000 
02099500 
02100000 
02100500 
02101000 
02101500 
02102000 
02102500 


ee ee ee ee ee Le ELL Le eee 


AA HA HHH ttt tt tt st 


00038092234 
00038090284 
000310920214 
00031022231 
00038020211 
000380229231 
00033022281 
000380222N4 
000310222141 
00038022284 
000380229211 
000330299234 
000310202!) 
00038020281 
00038022231 
00032029231 
000380290284 
00038022211 
000380202314 
00031099231 
00033022284 
00031020011 
000318092281 
00038020281 
0003t090084 
0003!0222t4 
00031029281 
0003:0222%1 
00038022214 


Pee rer ttt 


00094000010 
00091000010 
00091000010 
00091000010 
00091000080 
00098000010 
00091000081 
00091000081 
00091000014 
00091000182 
00098000113 
000980001183 
00091000210 
00091000210 
00091000214 
00091000211 
00091000382 
00091000312 
00091000393 
000910005!2 
00091000532 
00091000512 
00091000611 
00098000810 
00091000810 
00091000810 


COMMENT 
GNC! 


COMMANTS3 


COMMENTS! 


COMMENT 


TDBLOR’ 


FRROR! 


COMMENT 


NUMBERS$ 


PRT¢401) = «LIST, LABEL, 


EXT! 


COMMENT 


COMMENT 


COMMENT 
FINS! 


PRTC402) © #LISTe LABEL, 


1F SCBALPHA THEN 60 pouon 


5 
TF WE ARRIVE HERE WE HAVE A SPECIAL CHARACTER ¢OR GNC)}3 


OStsLIT*2"3 TALLY&ai13 SliaeSl443 GO EXIT 


1F SC#"3" THEN 
BEGIN 


SytsSyei3 

IF Sc > "%" THEN GO COMMENTS) 

Ip SC < "3" THEN GO COMMENTSS 
CHARACTERS BETWEEN 2 AND SEMICOLON ARF HANDLED BY WORDe 
MODE PART OF COMMENT ROUTINES 

END$ 
GO FINYS$ 


TALLY #8633 DSteb TT 4%) 
COMCOUNTCTALLY? *TALLY+12 


IF SC=ALPHA THEN ST ta#SI4+1 ELSE JUMP OUT TO EXIT)) 


TALLYteTALLY413 
IF SC@ALPHA THEN 
BEGIN 


Dysepr"t) DStalyT "4"; GO EXITS 
END 

ELSE GO EXITS 

1F WE ARRIVE AT ERROR WE HAVE MORE THAN 63 CHARACTERS 

IN AN JDENTIFIER OR NUMBER} 


TALLY%a633 DStaLIT 3%} 
OR SEGMENT DESCRIPTOR* 
COMCOUNTCTALLY!=TALLY 4123 ; 
tF SC <"O* THEN JUMP OUT TO EXITS SyteS{o1)3 
GO ERRORS 


STV tesTALLYS & "STi" CONTAINS NUMBER OF CHARACTERS WE ARE 
¥ GOING TO MOVE INTO THE *ACCUMULATOR*, 

TALLYte TALLY*COUNTV$ ST2%aTALLY3 

DTteCOUNTS SttexbLOc ST2s OSt=wDSs 

THIS CODE UPDATED “COUNT"# 

DYteACCUMs SyeeSt=3s DSte3 CHR3 

THIS CODE PLACES "COUNT" IN *ACCUM®™ AS WELLS? 

DIMSOT+COUNTVS & POSyTyON #OF" PAST CHARACTERS ALREADY 

¥ yN THE "ACCUMULATOR", IF ANY, 
SytaNCRV$ OSteST41 CHR} 
MOVE CHARACTERS INTO "ACCUM"}3 


DEtanCRe STi{seST$ Stsw_OC STs DStwwpSs 
OR SEGMENT DESCRIPTOR* 


COMMENT RESET *NCRY TO LOCATTON OF NEXT CHARACTER TO BE SCANNEDS3 
END OF SCAN? 
LABFL L3% 


Li 


02103000 
02103500 
024304000 
02104500 
02105000 
02105500 
02406000 
02106500 
02107000 
02107500 
02108000 
02108500 
02109000 
02109500 
02110000 
02110500 
02111000 
02111500 
02112000 
02112500 
02113000 
02113500 
02114000 
02114500 
02115000 
02115500 
02416000 
024116500 
02117000 
02117500 


02118000 
02118500 
02119000 
02119500 
02120000 
02120500 
02121000 
02121500 
02122000 
02122500 
02123000 
02123500 
02124000 
02124500 
02125000 
02125500 
02126000 


02126500 
02127000 


02127500 
02128000 


AHHH HAHAH HHH HAHA st to ot tt 


a ss st st Ht st 


a4 


as 


000910009%2 
000910009t3 
00092000913 
00093000913 
00098004182 
000910041412 
0009800;284 
00093003211 
00093004312 
00093004392 
00098004410 
00098004414 
00091004434 
00091004414 
00091003414 
00094004582 
00098003582 
00091001593 
00091004712 
00091001894 
00091001912 
00093004983 
00091004983 
00094002000 
0009t0021!2 
00098002112 
0009#002133 
00094002113 
00093002183 
00091002113 


00098002284 
00093002480 
000930025383 
0009800253 
00093002583 
00092002610 
00091002610 
0009:002732 
000920027383 
00098002783 
00091002831 
0009100281; 
000910020912 
00098002982 
00091002913 
000980020913 
000980020983 


00091003132. 


000910031t2 


000980031182 
000980031!2 


DEFINE WRYITELINE = TF SINGLTOG THEN WRITECLINGo1S5SeLINE*)) 
ELSE WRITECLINECDBLI »15eLIN(#])#, 


STREAM PROCEDURE EDITLINECLINE eNCReReLe SYMBOL sOMIT)3 
PRT¢403) ® FOITLINE 


COMMENT 


REAL STREAM PROCEDURE COMPARE¢TAPE»CARD)2 VALUE TAPEsCARD} 


PRT¢404) = COMPARE 


SCANCNCRs COUNT, ACCUME1)-,63°COUNTsRFESULT, 


RESULT sCOUNT»O,NCR» 033 
TF NCRsLCR THEN 

BEGIN 

READACARD} 


GO TO L# & GO DIRECTLY TO L, DO NOT PASS GO, 


% DO NOT COLLECT 8200, 
ENDS 
END SCANNER} 


PRINTCARD = BEGIN 


EDITLINECLIN®FCRseL DIV Gelb, f 4682) eMEDIUMPOMITTING)3 


IF NOHEADING THEN DATIMES WRITELINES 


END #3 


VALUE NCReRelLeSYMBOLSOMITS 


BEGIN 

DI t# LINE?! DS t# 16 LIT * #3 

Sj s= NCR} 9S tex 9 WDS3 

ps t= 8 LyT _ "3 

DS se WOS? & SEQUENCE NUMBER, 
DSteLyT" "sb SytmLOC SYMBOLS SJtmS1463 
DSte2? CHRS DSteLIT™ "3 

SteLOC RF OSe4 DEC3 DOSeLIT “*ee3 
SteLOc L$ pSey DEC3 

DSe6 LIT " "3 
OMITCDEteD1912) OSteB LIT" 
END ENTTLINES 


OMIT")3 


cOMPa~Re COMPARES SEQUENCE NUMBERS OF TAPE AND CARD, 


IF 


TAPE TS SMALLER THEN RESULT = O ELSE YF CARD 1S SMALLER 


RESULT = ¢ ELSE RESULT = 23 


BEGIN 
St ¢s TAPES DI t= CARD? 
1F & $C 2 DC THEN 

BEGIN 


Sy t= Srr6; Dr fe Hyw8s TALLY t= 13 


1F 8 S¢ w OC THEN TALLY ta 2 
END3 

COMPARE te TALLY 

END COMPARE3 


PROCEDURE OUTPUTSOURCE3 


02128500 
02129000 
02129500 
02130000 
02130500 
02435500 
02136000 
02136500 
02137000 


39 LONG 


02181000 
02181250 
02182500 
02182750 
02183000 
02183250 
02183500 


02183750 
02184000 
02184250 
02184500 
02184750 
02185000 
02185250 
02185500 
02185750 
02186000 
02186250 
02186750 
02187000 


02187250 
02187500 
02187750 


.02188000 


02188250 
021886500 
02188750 
02189000 
02189250 
02389500 
02189750 
02190000 
02190250 


02190500 


T 
T 
T 
T 
T 
T 
T 
T 
T 
e 


4~aos4 oo 


Se oe ee ee ee ee ee 


4~4-4 4 


AAAs 


00091003210 
00091003484 
00091003680 


00098003732 


00091003733 
00098003810 
00091003614 
0009300388] 
00091003814 

NEXT SEG 


00038002234 
00038020211 
0003809008; 
000380209204 
00031022284 
000380202314 
0003:029213 


0003:02228,4 
0003022234 
00031029382 
00031029583 
0003302296180 
00031022782 
00038099713 
00038022884 
00031022912 
00038023010 
00031023084 
00034023133 
000380234184 


00038023481 
00031003884 
000318023414 
000310934014 


00038023004 
00038023512 
00038093583 
000310236180 
00031023610 
000310237!t2 
00031093783 
000380238!0 
00031023610 


00038023982 


3 


PRT¢407) & STUFF 


PRTC405) = QUTPUTSOURCE 


BEGYN 
LABFL LCARDsLTAPEsAWAYS 


SWITCH SWESLCARD>LCARDsLTAPE + AWAY eLCARDoLTAPE 3 
JF SFOTOG THEN & RESEQUENCINGs 


BEGIN 

1F TOTALNO = 10 OR NEWBASE THEN 
BEGIN 
NEWBASE t= FALSE GT1yte TOTALNOt=BASENUM 
END 


ELSE GTIliie TOTALNOts TOTALNO + ADDVALUE} 
CHANGESFOQCKTYI1eLCR)? 
FND3 
IF NEWT0G THEN 
Te WRYTNEWCLINe FORD THEN WRITE CNEWTAPE OS 1OOLINE *))3 
IF OMITTING THEN JF NOT LESTATOG THEN GO AWAY} 
GO SWrLASTUSED))} 


IF |.ISTER OR LISTPTOG THEN PRINTCARDS 
GO AWAY} 


IF LISTER THEN PRINTCARD3 
GO AWAY! 


AWAY! 


ENN OUTPUTSOURCES 


PROCEDURE BEGINPRINT3S 


PRT(406) = REGINPRINT 


BEGIN 
STRFAM PROCEDURE STUFFCNeL)s VALUE NJ 


BEGIN 
Opiebs pSt=6 LIT * "3 Sytshs HStni3 WOSs 
SttaLOc Ns DSt2B HEC 

END3 


STUFFCBEGINSTACKEBSPOINT]eLIND} 
IF NOHFADING THEN DATIMES WRITELINES 
END REGINPRINTS 


PROCEDURE READACARDS$ 
COMMENT RFADACARD READS CARDS FROM EITHER THE CARD READER OR THE 


TAPE MERGING AS REQUFSTED aND CREATING A NEW TAPE AND 
LISTING IF REQUESTED, READACARD A,So INSERTS A PERCENT 


¥106= 


%1066 
4106 


¥1088 
¥108- 
21088 
%108- 


4108 
£1088 
%106= 


02190750 T 00038023982 
02191000 T 00030239382 
START OF SEGMENT *#eeee kb ee 10 
02191250 TF 00101000010 
02491500 T 00301000680 
024917850 T 004018000753 
02192000 T 00101000830 
02192250 T 00108000983 
02192500 T 00408004080 
02192750 T 00308004182 
02193000 TF 001030042:0 
02193250 T 001030034484 
02193500 T 00108001583 
02193750 fT 00108001583 
02194000 T 00108004630 
021942580 T 001010023182 
02194500 T 00108002583 
02194750 T 004080090783 
02195000 T 001010028!0 
02195230 T 0010180045!2 
02195500 T 00104004583 
02195750 T 00108004630 
02196000 T 001080062150 
02196250 T 00401006230 
02196500 fr 001041006210 
10 I$ 63 LONGe NEXT SEG 3 
02196510 C 00031023932 
02196520 C 00038023982 
02196530 C 00034023982 
START OF SEGMENT #eee eked 11 
02196540 ¢ 00114000030 
02196550 c 00148000010 
02196560 c 00414#0002!10 
02196570 c 001148000284 
02196580 C 001148000234 
02496590 C 00391#000484 
02196610 C 001141001680 
11 18 17 LONGs NEXT SEG 3 
02196750 TF 00038023982 
02197000 T 00031023932 
021997250 T 000310939t2 
02497800 T 0003202392 


S1GN AS AN FND OF CARD SENTINEL IN COLUMN 73 AND SETS 
FCR»NCRsLCReTLCRe AND CLCR3 

BEGIN 

PROCEDURE READTAPES 


PRT(410) = READTAPE 
BEGIN 
LABEL ENDREADTAPF.s FOFT; 


READ (TAPEs 10+ TBUFFE*I) CEOFTI3 
} =a FOFT 
> = GO TO SOLVER 


PRT¢441 
PRT¢(442 
LCRt=MKABS¢(TBUFF(9))3 
GO TO ENDREADTAPE3 
EOFT: 
DEF INEARRAY( 25] ta"NDIEND,"& “P41 $4395)3 
DEF TNEARRAYS34]82"9999" & "99997 4895123)3 
TLCOR#= MKABSCDEFINEFARRAY(L34))3 
PUTSEQNO CNEFINEARRAY( 33] eTLCR™B) 3 
TURNONSTOPLIGHTC"™S", TLCR#8)3 
ENDREADTAPE 3 
END READTAPES 


PROCEDURE SFQCOMPARECTLCR,CLCRe LIB) VALUE LIB? BOOLEAN LIB} 
PRT¢(413) = SEQCOMPARE 
REAL TLCR»s CLCR 3 
BEGIN 
MEDTUMt="C "3 & CARD READER, 


%105= 
%105e 


x105= 
%105= 
4105 
£105@ 
¥105- 
%105@ 
%105= 
y105@ 
%105= 


TF GTAteCOMPARECTLCR,CLCR) £0 THEN & TAPE HAS LOW SEQUENCE NUMB 


BEGIN 
LORteTLCR$ LASTUSED S233 
MEDIUMS="T "3 & TAPE  NPUT, 
END 
ELSE BEGIN 
te GTi # | THEN % TAPE AND CARD HAVE SAME SEQ 
BEGIN 
MEDIUMte"P 3 & CARD PATCHES TAPE, 
READTAPES3 
ENDS 
LeRtecLcR; 
LASTUSED!#23 
END3 
END OF SEQCOMPARES 


LABFL CARDONLYs CARDWAST+ TAPELAST+# EXIT» FIRSTTIME? 
FOFs USETHESWITCHe 
COMPARs TESTVOIDe XyT3 

SWITCH USESWITCHI@CARDONLYsCARDLASTs TAPELASToFIRSTTIMES 


IF FRRORCOUNT2ERRMAX THEN ERR(641)3 % FRR LIMIT EXCEEDED = STOP: 


USETHESWITCH? 


02197750 
02198000 
02196250 
02198500 


START OF SEGMENT 


02201500 
02201510 


START OF SEGMENT 


02201750 


02202000 
02202010 
02202020 
02202030 
02202040 
02202050 
02202060 
02202070 
02202080 
02202250 


24 LONG 


02202500 


02202750 
02203000 
02203250 
02203500 
02203750 
02204000 
02205250 
02204500 
02204780 
02205000 
02205250 
02205500 
02208500 
02208750 
02209000 
02209250 
02209500 
02209750 


02210000 
02210250 
02210500 
02210750 
022115800 
02211750 


T 0003802392 
T 000380239!2 
T 00031023912 
T 00031023912 
KREEHEKEKSE 

T 00128000010 
¢ 00121000080 
SKEESKSE HEE 

P 00138000080 
P 00431000512 
¢ 00138000782 
c 00131000783 
C 0043300080 
C 00131004080 
C 001398001284 
¢C 00138003484 
¢ 00131004610 
c 00138001783 
T 00131004810 
» NEXT SEG 12 


— 


i ee eee eee 


AAs 


001280000180 


00128000010 
00121000010 
00128000080 
00428000084 
00428000312 
00124000383 
00428000512 
00121000610 
00128000610 
00121000982 
00428000983 
00128001080 
00128004182 
00129003193 
00128001133 
00124004210 
00121001382 
00124004382 


001210015382 
001421001582 
00421004582 
00121004512 
004280020380 
004280023!2 


12 


13 


PRTC414) = FOF 


DOLLAR? TOG! wFALSES 
GO TO USESWyYTCHrLASTUSED]3 
MOVE CLs INFOCLASTUSED.LINKRe LASTUSEDSLINKC]>» 
DEF INEARRAYCDEFINEINDEX22))3 
LASTUSED t= LASTUSED + 413 
NCR te LCRo43 
GO TO XIT3 
FIRSTTIMES 
REANCCARD sil OsCBUFFEI*])3 
FCReaNCRis(LCRtsMKABSCCBUFF(9I)9°93 
MeDrUMtix"c "3 
IF FXAMINCFCR) 4"8" AND LISTER THEN PRINTCARD) 
PUTSEQNOCTNEFOCLASTSEOROWsLASTSFQUENCE JeLCR)3 
CARDNUMBER Sa CONVOINFOCLASTSFQROWSLASTSFQUENCE@4155,8)5 %108= 
TURNONSTOPLIGHTC™#™,LCR)3 
GO xIT3 
COMMENT WE HAVE JUST INITTALYZED CARD INPUT? 
CARDONLY! 
REAN (CARD + 10eCBUFF(#])3 
LCR t# MKABS(CBUFF(9))3 GO FXIT?3 
CARDLAST3 
REANCCARDs10eCBUFFC#]) FEOF): 


CLCR $= MKABS(CBUFFL9I)3 
GO cCOMPAR3 
FOF: 
DEF TNEARRAYP 25) S"NDS END, MAME 7 8438573 
DEF YNEARRAY £34) 32" 9999MRYO9G9N Ty £9589373 
CLCORtaMKABS(DEFINEARRAY( 34))3 
PUTSEQNOCDEFINEARRAYL 33] eCLCR8)3 
TURNONSTOPLIGHTC"S"sCLCR"8)3 
% 
GO cOMPARS 
COMMENT THIS RELEASES THE PReV1OUS CaRD FROM CARD READER AND 
SFTS UP CLCR} 
TAPELASTS 
REANTAPE3 
COMMENT THtS RELEASES THE PRFVyOUS CARD FROM TAPE AND SETS UP TLCR} 
COMPAR? 
SEQCOMPARE(TLCReCLCR#FALSE)S 
EX T!} 
NCR t= FCRtw LCR @ 93 
COMMENT SFTS UP NCR AND FCR3 
IF FXAMINCFCRI#"S" THEN & $=CARDS DON®T COUNT, 
IF COMPARE CMKABSCINFOCLASTSEQROWPLASTSEQUENCE])eLCR)8} THEN 


BEGIN 
FLAGC61023 ¥ SEQUENCE ERROR, 
SEQUENCEERROR(LIN) 3 
ENDS 
IF LASTUSED#3 THEN 
BEGIN 


1F VOIOTAPE THEN GO USETHESWITCH?3 
IF VOTDTCR#O THEN 
IF COMPARECLCReVOIDTCRI#®0 THEN GO USETHESWITCHI 
ENDS . 
IF FXAMINCFCR)@®8" THEN 
BEGIN 


02211800 
02712000 
02212250 
02212500 
02212750 
02213000 
02213280 
02213500 
02213750 
02214000 
02214100 
02214200 
02214280 
02744260 
02714500 


02244750. 


02215000 
02215250 
02218500 
02215750 
02216000 
02216250 


02216500 
022916750 
02217000 
02217250 
02217500 
02217750 
02218000 
02218250 
02216400 
02218500 
02218750 
02219000 
02219250 
02219500 
02219750 
02224250 
02224500 
02225000 
02225250 
02225500 
02225750 
02226000 
02226250 
02226500 
02226750 
02227000 
02228050 
02228075 
022284100 
02228125 
02228150 
02228475 
02228250 
02228500 


AA HHH HAH MH HHH HHH HA tt tt tH HA HO st te ot ta ti 


00121009382 
00124009383 
00422002583 
00428002884 
00428002983 
00128003182 
00127003280 
00128003281 
004210033182 
00123009782 
00121004084 
001428004193 
00123006182 
00428006382 
00121006712 
00421006830 
00428006884 
00328006634 
00423006982 
0042!80073%2 
001421007583 
001424007630 


00121008182 
00428008312 
00121008313 
00128008410 
00123008610 
00128008881 
00121009031 
001421009210 
00128009383 
00128009383 
00128009782 
001428009732 
00128009782 
00y28009TI2 
00428009723 
0042190097!3 
004248009830 
00121009982 
00121040030 
00121040183 
00128010183 
00429010333 
00421010630 
001280308814 
00;21070912 
001280494080 
00128041030 
001280n43%2 
00122043183 
00321011382 
004290494393 
00428044694 
00121013681 
00425044804 


STACK(F 43 


STACK¢(F 44 


) 
) 


2 T 
a N 


COMMENT 


IF LESTPTOG OR PRYNTHOLLARTOG THEN PRINTCARDS 
NCRISNCR4+327683 DOLLARCARD) 

DONT FORGET THAT NCR 1S NOT WORD MODE, BUT CHAR, MODE POINTERS 
GO USETHESWITCH? 

END3 


IF fXAMINCFCRI=" " THEN 
IF DOLLAR2ZTOGI=EXAMINCFCR432768)a"S" THEN 


BEGIN 
OUTPUTSOURCES 

NCR#twsNCR+655363 & SCAN PAST ™ $8" (CHARACTER MODE), 
DOLLARCARD3 

ENDS 


IF VOIDING THEN GO USETHESWrTCH3 
IF vVOYOCR#O THEN 


IF COMPARECLCReVOTDCRI>0 THEN VOIDCRESVOLDPLACE $20 
ELSE GO USETHESWITCH3 


IF VOIOTAPE THEN GO TESTVoID3 
IF VOTDTCR#0 THEN 


TESTVOIDS 


IF COMPARECLCR»VOIDTCR)20 THEN VOIDTCRESVOIDTPLACE2=0 FLSE 
IF LASTUSED’3 THEN GO USETHESWITCHS 


CARNCOUNTSeCARDCOUNT +13 
IF NOLLAR2TOG THEN GO USETHESWITCH: 
PUTSEQNOCINFOELASTSE@ROWsLASTSFQUENCE) »LCR)3 


CARDNUMBERt=IF SEQTOG THEN TOTALNOSADDVALUE ELSE 
CONVCINFOLLASTSEQROWsLASTSEQUENCE@4 )5558)3 


x1 08« 
%108= 


OUTPUTSOURCES 
IF oMITTING THEN GO USETHESWITCHS 


% 


TURNONSTOPLIGHTC"™3"sLCR) 3 


X{Ts 


END READACARD3 


REAL PROCENURE CONVERTS 


PRT¢495) 3 CONVERT 


BEGIN REAL Ts {UNTEGER NS 


TLO*O3 THIe 
Te CONVCACCUMEL I ,TCOUNTsNeCCOUNT*TCOUNTIMOD 8)3 
FOR Ne TCOUNT4N STEP 8 UNTIL COUNT#= 14 pO 
IF DOPTOG THEN 
BEGIN 
NOUBLECTHI s TLO» :O00000000, Os Oe xe CONVCACCUMI 1) oN B) On deen 
THreTLO)3 
Te THI 
END ELSE 
Te Tx1000000004 CONVCACCUMrijdeNe8)3 
CONVERT+T3 
END3 


12 18 


START OF SEGMENT 


14 18 


3 


4 


02228750 T 00128011982. 
02229000 rt 001280136814 
02229250 T 00121013810 
02229500 T 00321013810 
022999780 T 003428044010 
02230000 T 00121044030 
02230100 T 00128014183 
02230250 T 00128014582 
02230500 T 001210445323 
02230750 T 00128014610 
02231000 T 001280147282 
02231250 FT 00428044783 
02231500 T 00728034733 
02231750 T 00129034982 
02232000 T 0012%0135030 
02232750 TY 00424035382 
02232800 T 00124038410 
02233000 T 00128045533 
02233500 fT 00128015681 
02234000 T 00128016084 
02234500 T 00128016582 
02234600 tr 00423016684 
02234750 T 004230367393 
02234800 ¢ 00428046983 
02234900 C 003241017230 
02235000 T 0042%01751t3 
02235250 T 001428047610 
02235500 T 00129017783 
02235750 T 00324047783 
02237750 T 00128017884 
02238000 T 0012191017932 
183 LONGs NEXT SEG 

02248000 T 000380239382 
02249000 T 00031023932 

ee | 
02250000 T 00141000010 
02251000 T 00443000081 
02252000 Y 00148000512 
02253000 T 00341003010 
02254000 T 00344004030 
02285000 T 004490014081 
02256000 T 00481001582 
02257000 T 00348004680 
02258000 T 001410036814 
02259000 T O044!004,614 
02260000 T 00148002430 
02261000 T 004690020484 

28 LONGs NEXT SEG 


3 


REAL STREAM PROCEDURE FETCHCF)3 VALUE F3 
PRY¥¢496) = FETCH 
BEGIN Steers SpetsS1783 DerteLOC FETCHS DStaWDS END FETCH3 


PROCEDURE DUMPINFOS 
PRTC4497) = NUMPINFO 
BEGIN 
ARRAY ALOt14]3 INTEGER JEDEN®DWA3 


STacKeFs2) = A 
STACK¢(F 43) = JEDFN 
STACKeFs4) = DWA 
STREAM PROCEDURE OCTALWORDS¢SeD.NJE VALUE N} 
PRT¢490) = OCTALWORDS 
BEGIN 
SyteSt} OyeaD3 
N¢2c8¢(DSte3 RESETS 3¢1F SB THEN DStaq SET ELSE 
OSt#, RESETS SKIP 1 SB))#3 DStat LIT * ")3NSteo LIT 93 
END OF OCTALWORDS; 


STREAM PROCEDURE ALPHAWORDS(S.D,N)3 VALUE N3 
PRT(421) = ALPHAWORDS 
REGIN 
SyteS} Dp teD3 
NC2CACDSte¢ LIT” 3 DSted CHRIF DStwy LIT*™ "23 DStar LIT” #9) 
END OF ALPHAWORDS; 


IF NOHFADING THEN DATIMESWRITECLINECDBLJs<//"ELBAT™>)3 
PRT(492) = *FORMAT DESCRIPTOR* 


FOR JENENtsO STEP 6 UNTIL 71 DO 
BEGIN 
BLANKETC14,A93 OCTALWORDSCELBATLJEDENTsAs6)3 
WRITECILINECNBLJo15sAr#))3 
ENDS 
BLANKETC14eA)3 OCTALWORDSCELBATS72)0As4)3 
WRITECLINELDBLI215»AL#))3 
FOR JEDEN? =O STEP 1 UNTIL NEXTINFO DIV 256 DO 
BEGIN 
WRITECLINEC DBL IJ e<//"INFOL™, 129" eI" >, JEDENDS 
PRT(4293) = «FORMAT DESCRIPTOR* 


PRT¢424) & #LIST» LABEL, OR SFGMENT DESCRIPTOR*# 
FOR DWAtsO STEP 6 UNTIL 254 DO 
BEGIN 
BLANKETC14¢A)# ALPHAWORDSCINFOCUEDEN2DWAJsAs6)3 
WRITECLINE ®150Ar%))3 
BLANKET¢142A)3 OCTALWORDSCINFOCUEDENSOWA Je AL G)3 


START OF SEGMENT 


16 1S 


17 18 


02262000 T 00038023982 
02263000 T 00038023982 
02264000 T 00031024210 
‘02264050 T 00038024210 
02264100 T 00031024210 
eee ke ee 
02264400 TY 00158000133 
02264450 FT 00151000183 
02964500 T 001540003182 
02264550 T 00151000313 
02264600 T 00151000634 
02264650 T 00351000982 
02264700 T 00158000982 
02264750 T 00151000982 
02264800 T 00458001010 
02268850 T 00451004084 
02264900 T 001510044814 
02264950 T 00158001484 
6 LONGe NEXT SEG i5 
02265000 T 00153004982 
02265050 T 00155002080 
02265100 T 0015100200 
02265150 T 004580023! 
02245200 T 001520097%2 
02265250 T 00158002933 
02265300 Y 0041548003284 
02265350 T 00358003634 
02265400 T 00154004152 
02265450 T 00158004182 
8 LONGe NEXT SEG 15 
02265500 TF 00151004890 
02265550 T 004580049182 
02265600 T 00451004912 
02265680 T 00358005214 
02265700 T 00451008712 


i5 


DEFINE SKAN = BEGIN 
COUNTISRESULTS@aCCUM( {$203 
SCANNER} 

QrmACCUME1I3 

END #3 


COMMENT MOLLARCARD HANDLES TWE COMPILER CONTROL CARDS. 


3 


BOOLEAN PROCEDURE FINDOPTIONCBIT)# VALUE BIT3 


WRITE CLINECDBLI,15- AC #])3 
END3 


BLANKETC145A)3 ALPHAWORDSCINFOCJEDEN»s 252) 5A0G)3 


WRITECLINEs 15eAC#))3 


BLANKETC14,A)3 OCTALWORDSCINFOLJEDEN+ 252] ,A04)3 


WRITECLINECMBL IJ» 15sArey)3 


END) 


END OF DUMPYNFOS 


ALL COMPILER AND USFReDEFINED OPTIONS ARE KEPT 


IN THE ARRAY "OPTYONS* 
EACH OPTION HAS A TWoO#WORD ENTRY? 


WORD 


1 


IN "FINDOPTION'»s aLL COMPILER@DEFINED OPTIONS ARE USUALLY 
LOCATED BASED UPON A UNIQUF NUMBER ASSIGNED TO EACH, 

FOR ALL USER@DEFINED OPTIONSe A SEQUENTIAL TABLE SEARCH IS 
INITIATED USING "USEROPINX# AS THE INITIAL INDEX INTO THE 
IF THE NUMBER OF COMPILER@DEFINED OPTIONS 
1S CHANGED» THEN "USEROPINX® MUST BE ACCORDINGLY CHANGED, 
THE NUMBER OF USER DEFINED OPTIONS ALLOWED CAN BE 


WOPTIONS® ARRAY. 


ENTRY FROM ACCUME 1) 
X 18 THE SIZE OF THE 
ZZZZZ IS THE FIRST FIVE CHARS OF THE 10D, 
47*BIT STACK CONTAINING THE 

HISTORY OF THE SETTINGS OF THIS OPTION, 


OOXZZZZ» WHERE 


10 AND 


CHANGED BY CHANGING THE DEFINE “OPARSIZE", 
THE VARIABLE “OPTTONWORD”™ CONTAINS THE CURRENT TRUE OR FALSE 


SETTING OF ALL OF THF COMPYTLER™DEFINED OPTIONS» 


OPTION, 


PRY¢495) «= FINDOPTION 


STACKE¢F43) = 10 


BEGIN 
LABEL FOUNDS 


REAL 1D3 


OPINX&e2xBIT7 4) 
WHILE tHtsOPTIONSLOPINX?S0PsNX42]#0 D0 
1F QsIp THEN GO FOUND! 


INTEGER BIT3 


OPTVONSLOPINX]#eQ3 & NEW USER@DEFINED OPTION, 
FOUNDE 
IF OPINX +#+41>0PARSIZE THEN FLAG(602) ELSE &% TOO MANY USER OPTIONS 


FINNOPTIONt sBOOLEANCOPTIONSr(OPINX41))3 


ONE BIT PER 


%103" 


i5 1S 


02265750 
02265600 
02265850 
02265900 
02265950 
02266000 
02266050 
02266100 


88 LONG 


02277000 
02278000 
02279000 
02280000 
02281000 
02282000 
02283000 
02284000 
02285000 
02286000 
02287000 
02288000 
02289000 
02290000 
02291000 
02292000 
02293000 
02294000 
02295000 
02296000 
02297000 
02298000 
02299000 
02300000 
02301000 
02302000 
02303000 
02304000 
02305000 
02306000 
02307000 


02308000 
02309000 


START OF SEGMENT 


02310000 


02311000 
02312000 
02313000 
02314000 
02315000 
02316000 
02317000 


T 
T 
T 
T 
T 
7 
T 
T 
s 


ANAM HS tt A tt 


T 
T 


Ke EeEKERERS 


T 


41 UU tt 


00151006034 
0015400652 
00458006782 
00151007112 
0015:007522 
004518007982 
0015180083%2 
001518008333 
NEXT SEG 


000318024210 
00031024230 
00033024210 
00031024210 
00033024230 
00031024210 
000380242380 
00038024210 
00038024210 
00038094280 
00031024210 
00033024210 
00031024210 


3 


00038024210. 


00031024230 
00038024210 
0003:0242!0 
00038024230 
00038024230 
000381024210 
00033024230 
0003102420 
00038024210 
00031024230 
00038024210 
00031024210 
00033024210 
00038024280 
00031024230 
00031094210 
00033024210 


00031024210 
0003!8102a210 


001488000010 


00183000010 
00383000133 
00188000582 
001868000634 
00183000680 
00188000810 
00181001084 


16 


END FINDOPTYON} 


PROCEDURE POLLARCARD?} 
BEGIN 


STREAM PROCEDURE RESTORESFONUMCLCReINFO)S VALUE LCR3 


PRT¢ 496) s RESTORESEQNUM 


BEGIN 
DrtseLCRs STteInNFOsS NStewDS; 
ENDS 


PROCEDURE SWITCHITCXBIT)3 VALUE XBITS INTEGER XBIT3 


PRTC497) = SWITCHIT 


STACK(F42) = B 
STACK¢F 43) = T 


BFGIN 
ROOLEAN B,TS 


INTEGER SAVEJNX3 


STACKeF44) = SAVEINX 


LABEL XMODEO»XMODE1»+XMODE 2s XMODE 3» XMONE 4s ALONG3 
SWITCH SWt#XMODEOsXMODE1*#XMODEZeXMODE3sXMODEGS 
SETTINGt=FINDOPTIONCXBIT)S SKANS 

GO SWCXMODE4133 


XMODEOt & FIRST OPTION ON CARD, BUT NOT SETe RESET» OR POP, 
OPTLONWORDte&BOOLEAN(O)3 
FOR SAVEINXt=1 STEP 9 UNTIL OPARSIZE DO OPTIONS(SAVEINX) 1203 
XMODEtaLASTUSEDta13 zg CARD INPUT ONLY, 

XMODE1! & NOT FIRST OPTION AND NOT BEING SET, RESET» OR POPPED, 


OPTLONSLOPINX41 ) #eREALC TRUE D3 
IF XBIT<USEROPINX THEN OPTSONWORDS sOPTIONWORD & TRUECXBIT?473 


PRTC430) = NYNAMIC DIALS 


GO ALONG3 

% RESET, 

OPTIONSLOPINX4+1]¢eREALCFALSE & SETTINGL1#2246))3 

IF XBIT<USEROPINX THEN OPTYONWORDtROPTIONWORD & FALSECXBITS1)3 
GO ALONG3 

% SET, 

SAVEINXtsOPYNX3 % REMEMBER OPTION WE ARE SETTING, 

BtalF O2%120000" THEN BOOLFXP ELSE TRUE 
OPTIONS(SAVEINX+1)¢#REALCB & SETTING? 1#46))3 

IF XBIT<USEROPINX THEN OPTIONWORD!?eOPTIONWORD & B CXBIT!1)3 
GO ALONG! 

% POP, 

OPTIONSCOPINX+{ J SeREALCBPeSETTING. £1946) 93 

IF XBIT<USEROPINX THEN OPTIONWORDtszOPTIONWORD & B CXBIT#1}3 


XMONE23 


XMODE3# 


XMODE 4% 


ALONG! 
END SWyTCHITs 


18 1S 


20 18 


START OF SEGMENT 


START OF SEGMENT 


02318000 T 00483003284 
15 LONGs NEXT SEG 3 
02319000 T 00038024210 
02320000 T 00038024210 
02320200 T 00038024210 
ie he a 19 
02320400 T 00498000030 
02320600 T 00198000080 
02320800 T 00198000013 
02321000 T 001980001!2 
02322000 T 0014980001%2 
02323000 T 001950001!2 
wee ee ee 20 
02324000 T 0020480000!0 
02325000 T 00208000010 
02326000 T 00201000030 
02327000 T 00201000533 
02328000 T 002030041!%2 
02329000 Y 00208004313 
02330000 T 002080044:0 
02331000 T 002080043434 
02332000 T 00201004923 
02333000 T 0020130020%4 
02334000 T 0020800014!2 
02335000 T 00208002031 
02336000 T 00201002634 
02337000 T 002080027182 
02338000 T 002010026:0 
02339000 T 002080030%1 
02340000 T 00201003431 
02341000 T 00201003532 
02342000 T 00208003610 
02343000 T 0020800363) 
02352000 T 00201003933 
02353000 T 002010080181 
02354000 Y 00201004614 
02355000 T 00201004830 
02356000 TY 00201004630 
02357000 T 002030051182 
02358000 T 00201008512 
02359000 T 002010056!0 
59 LONGs NEXT SEG 19 


LABEL FXTT»AGATNe SKANAGAINeO LENGTH! pLENGTH2 o LENGTHS + LENGTHS » 
LENGTHSsLENGTHOeLENGTH7*eLENGTHBsLENGTHO? 
WHATISIT>» 
CARDOPTIONe MERGEOPTION? 
SWITCH OPTIONLENGTH3 *LENGTHI eS WNHATISIT®eLENGTH3*LENGTHSe LENGTHS» 
LENGTHG*LENGTH7 oWHATISITeLENGTHI®WHATISITS 
. INTEGER SRESULT»SCOUNTS 
STACK¢F 42) = SRESULT 
STACK¢F43) = SCOUNT 
ALPHA VOIDRANGE3 
STACK¢F44) = VOIDRANGE 
DOLLARTOGtsTRUES 
MOVE C1OsACCUMCO}eDEFINEARRAYLOJ)3 & SAVE INFORMATION FOR 
SCOUNTESCOUNT; SRESULTs RESULTS % “TABLE” TO RESUME SCAN, 
XMONE& a0} 
PUTSEQNOCINFOLLASTSEQROWesLASTSEQUENCE J oLCR)3 
TURNONSTOPLIGHTC™E"sLCR)3 
SKANAGAYN} 
SKAN3 
AGAIN 
GO OPTIONLENGTHEMINCCOUNT,10))3 
LENGTHE? 
IF @ = "420000" THEN GO EXIT? 
IF go = "180000 THEN 
BEGIN SWITCHITCPRINTDOLLARBIT23 GO AGAIN ENDS 
IF Q@ » "1,0000" THEN GO SKANAGAINS 
GO WHATIS!T3 
LENGTH2t & NO OPTIONS OF THIS LENGTH ARE CURRENTLY IMPLEMENTED, 
LENGTH3t 
IF @ = "3SETOO" THEN 
BEGIN XMOnpE%233 GO SKANAGATIN END} 
IF @ = "3POP00" THEN 
RFGIN XMODEt@4$ GO SKANAGAYN END3 
IF Q@ = "3NEWOO" THEN 
BEGIN 
SWITCHITCNEWBIT)3 
1F @ = "4TAPEO" THEN GO SKANAGAINS 
GO AGAIN 
ENDS 
IF 9 = *3SEQ00" THEN 
BEGIN SWITCHITCSEQBIT)$3 GO AGAIN END3 
IF QO = "3PRT00" THEN 
BEGIN SWITCHITCPRTBIT)$ GO AGAIN ENDS 
IF Q@ = "3MCP00" THEN 
BEGIN SWITCHITCMCPBIT)3 GO AGAIN END3 
GO WHATISyT) | 
LENGTH4? | 
IF @ = "4LTSTO" THEN 
BEGIN 
SWITCHITCLISTBIT)3 
GO AGAINS 
END} 
IF Q = "4V07D0" THEN 
BEGIN 
tF XMOpE*0 THEN 
BEGIN 
GETVOTDEVOTDRANGE sNCReLCRe INFOCLASTSEQROWsLASTSEQUENCEI)DS 


02360000 
02361000 
02362000 
02363000 
02364000 
02365000 
02365100 


02365200 


02366000 
02366100 
02366200 
02367000 
02368000 
02369000 
02370000 
02371000 
02372000 
02373000 
02374000 
02375000 
02376000 
02377000 
02378000 
02379000 
02380000 
02381000 
02382000 
02383000 
02384000 
02385000 
02386000 
02387000 
02388000 
02389000 
02390000 
02391000 
02392000 
02393000 
02394000 
02395000 
02396000 
02397000 
02398000 
02399000 
02400000 
02401000 
02402000 
02404000 
02405000 
02406000 
02407000 
02408000 
02409000 
02410000 


ee 


= 


AHHH HAM HHH ARH HHH TAA A HA A A At tt 


00498000382 
004980004!2 
001930001!2 
00191000182 
00198000182 
00199000383 
00198000982 


001980009t2 


00498000912 
00191004,08y 
00498004284 
0019%00,480 
0014949004434 
00198004684 
00498001783 
00498004830 
00198002183 
001938002230 
00198002610 
00191800272 
00198002810 
00191002912 
00191003382 
004910034180 
004391003610 
001491003630 
00198003610 
00199003683 
00198004080 
001498004084 
00149004420 
00198004at4 
00198004532 
00398004610 
001910047182 
001499005010 
00198008030 
004948005014 
0019#0054180 
00198005484 
00193005830 
00749t0058I4 
001950062:0 
004980062114 
00194006382 
00191006383 
0019%0064!0 
001:980065!2 
00191006712 
0019100671t2 
00192006783 
004928006610 
00198006982 
00198006983 


® 
@®eeeeeese#eeee?er#eet+eee0e8088066068h68thmhmUCOlU® 


IF VOTDCRwO THEN VOIDCRIEsMKABS(VO 
IF COMPARE ¢MKABS(VO[DRANGE),VOT 
MOVEcC1eVOIDRANGFeVOIDPLACE}3 


1DPLACE) ELSE 
DCR)#4) THEN GO To EX:TS 


Go EXIT) 
ENDS 
SWITCHITCVOIDBIT)3 
GO AGAIN 
ENDS 
IF @ = "AXREFO" THEN BEGIN SWITCHITCXREFBIT)S ITF BOOLEANCXMODE) THEN 
DEFINING tx BOOLEANCREALCDFFINING)&161%4711))3 4108" 
GO AGAIN ENDS %108= 


IF @ = "SBENDO" THEN BEGIN SWITCHITCBENDBIT)$ GO AGAIN END? %1068 
IF Q w "GOMITOW THEN 
BEGIN IF NOT DOLLAR2TOG THEN BEGIN PRINTCARDS FLAG(605)3 ENDS 


SWITCHITCOMITBIT)3 GO AGAIN ENDS 


IF 9 = "4CARDO" THEN 


BEGIN 


Qte"4TAPEO™$S & FAKE OUT SWITCHIT, 
SWITCHITCMERGEBIT)3 
1F XMODE#2 THEN MERGETOGIBNOT MERGETOGS 


OPTLONSC2xXMERGEBIT#@1 3% ; 
REALCSETTING & (MERGETOG)L(47319)3 & INVERSE OF MERGE, 


% CARD 15S 


IF MERGETOG THEN GO MERGEOPTIONS 


CARDOPTTONS 


LASTUSFDt#13 
GO AGAIN3 


ENDS 


IF Q@ @ "GTAPEO" THEN 


BEGIN 


SWITCHTTCMERGEBIT)3 
1F NOT MERGETOG THEN GO CARDOPTIONS 


MERGEOPTTION? 


LASTUSED%223 % NEXT CARD IS READ FROM READER, 
1F MAXTLCRsO THEN 


BEGIN 
INTEGER STREAM PROCEDURE FEYCFeT)3 VALUE T3 


PRT(431) 2 *SEGMENT DESCRIPTOR#® 


PRTC432) = FEJ 


PRT¢433) = FYX 


BEGIN 

SIteFs DPtabLOc Ts DStawos3 

StteTs} SttaSret6s DLisLOc FEJS OStewoS3s 
END FEJ3 


STREAM PROCEDURE FIX¢reT)# VALUE T3 


BEGIN 

SItsFs SyteSy-24s DISeLOC Ts DSteWDS3 
DItaTs DI ted +475 SKIP 4 DBS DSse2 RESET} 
2CD19*D144B)3 OSt=8 LIT"OO#OL+08"3 

END FIX3 


024140500 
02411000 
024742000 
02443000 
02414000 
02415000 
02418000 
02419000 
024491400 
02419410 
02449420 
02419200 
02420000 
02421000 
02421100 
02422000 
02423000 
02424000 
02425000 
02425500 
02426000 
02427000 
02428000 
02429000 
02430000 
02431000 
02432000 
02433000 
02434000 
02435000 
02436000 
02437000 
02438000 
02439000 
02440000 
02441000 


START OF SEGMENT 


02442000 
02443000 
02444000 
02445000 


02446000 


02447000 
02448000 
02449000 
02450000 
02451000 


ttt tt HO OD DDD Aa tte ts 


ferrt TT ttt 


44 


~ 


++ 


00491007210 
00498007532 
00198008084 
00499008483 
007910082:0 
00198008210 
00198008382 
00192008393 
001492008313 
00198008533 
00198008810 
00198009010 
00198009410 
00198009484 
00194011430 
00193011532 
00193011680 
00198014684 
00199014782 
00191014810 
001910432333 
001918019382 
003193042533 
001980327382 
001998012782 
001918012783 
00198043182 
001910313142 
001918043143 
00198013210 
004980143382 
00198013430 
0019804335382 
00198043513 
00198043684 
001980437322 


00248000030 
00218000010 
00211000081 
00218000183 


00218000281 


00218000284 
00218000382 
00213000430 
00214000542 
00218000782 
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IF GTitsrPEJCTAPF 20210 THEN 

BEGIN 

REWINDCTAPE)$ FIXCTAPEs0O)3 

END3 
MAXTLCROeGTisTLCRes9+MKABSCTBUFFLOI)3 
READ(CTAPEs1O,TBUFFE*])3 & INITIALIZE TAPE INPUT, 
LASTUSED!$=23 
ENDS 


PRT¢(434) & *SEGMFNT DESCRIPTOR*® 


IF 


IF 
IF 
IF 
IF 
GO 


GO AGAINS 

END3 
Q = "4PAGEO" THEN 

BEGIN 

IF LISTER THEN WRITECLINECPAGE) 3 

GO SKANAGAIN} 

ENDS 
O = "4INFOO" THEN 

BEGIN DUMPINFO3 GO SKANAGAYN END) 
Oo = *"4SEGS50" THEN 

BEGIN SWITCHITCSEGSB!1T) GO AGAIN ENDS 
Q = "GNESTO" THEN 

RFGIN SWITCHITCNESTBIT)$ GO AGAIN END3 
Q@ = "4DECKO" THEN 

BFGIN SWITCHITCDECKB:IT)3 GO AGAIN ENDS 
WHATITSITS 


LENGTHS: 


IF 
IF 


IF 


IF 


IF 


IF 


IF 


@ = "SRESET* THEN 
BEGIN XMODE!8s23 GO SKANAGAIN END3 
@ = "SLISTP" THEN 
BEGIN SWITCHITCLISTPBIT)% GO AGAINS END3 
Q = "SVOIDT" THEN 
REGIN 
IF XMOpEs0 THEN 
BEGIN 
GETVOLIDCVOTDRANGEsNCRSLCRe INFOCLASTSEQROWSLASTSEQUENCE) D3 
IF VOrOTCR#O0 THEN VOIDTCRE sMKABS(VOIDTPLACE) ELSE 
IF COMPARE ¢MKABS(VOIDRANGE),VOIDTCR) #4, THEN GO TO EXITS 
MOVE¢ 1 ®VOTDRANGE®VOIDTPLACE)3 
GO EXITS 
ENDS 
_ SWITCHITCVOIDTBIT)3 
GO AGAINE 
ENDS 
Q = "SCHECK* THEN 
REGIN SWITCHITCCHECKBIT)&8 GO AGAIN END3 
Q = "SLIMIT® THEN 
REGIN 
SKANS 
1F RESULT#3 THEN % SHOULD BE NUMBER, 
BEGIN FLAG(600)3 GO AGAIN END3 
ERRMAXtaCONVCACCUME1)202ACCUMC1),(£1236])3 
GO SKANAGAINS 
ENDS 
Q = "SPUNCH" THEN 
RBFGIN SWITCHITCPUNCHBIT)# GO AGAIN? ENDS 
Q = "SPURGE*® THEN 
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1s 


02452000 
02453000 
02454000 
02455000 
02456000 
02457000 
02458000 
02459000 


ee 


24 LONGe 


02460000 
02461000 
02462000 
02463000 
02464000 
02465000 
02466000 
02467000 
02468000 
02469000 
02470000 
02471000 
02472000 
02473000 
02474000 
02475000 
02476000 
02477000 
02478000 
02479000 
02480000 
02481000 
02482000 
02483000 
02484000 
02485000 
02485500 
02486000 
02487000 
02488000 
02489000 
02490000 
02493000 
02494000 
02495000 
02496000 
02497000 
02498000 
02499000 
02500000 
02501000 
02502000 
02503000 
02504000 
02505000 
02506000 
02507000 


AAAH HH HHH NH HHA A ot A HH A HO A HH tA a to Ss 


0024t0007%2 
00211004084 
00231004182 
0021#0044!0 
00211004480 
002118003733 
00214002210 
00211009284 


NEXT SEG 19 


00198043982 
00198013983 
00498043983 
00199074010 
00198040084 
00498094583 
007980qaT7I2 
0049044712 
00194044733 
00191045132 
00191015183 
00492045522 
003980155383 
00491045912 
00199045923 
001918016382 
001940463!93 
001940364380 
00191016441 
001493036830 
00191016811 
001918017230 
00198017234 
001980173!2 
001498047430 
00198017484 
00191047712 
004920;8080 
00198018533 
003920; 86!4 
0049101,87%2 
00498048712 
00198018810 
0049%0;8831 
001492038884 
00198078982 
00498049210 
004948019284 
00498079382 
00198019782 
0019%049783 
00191020182 
00199020440 
001918020491 
001980270081 
00192020583 


001990209%2 


IF 0 


IF Q 


GO WH 
LENGTH6? 


BFGIN SWITCHITCPURGEBIT)$ GO AGAINS END3 
= "SLYSTA" THEN 


BFGIN 


SWITCHITCLISTABIT)3 


GO AGAINi 
ENDS 


2 "SSTUFFY THEN 
BEGIN SWITCHITCSTUFFRIT)$ GO AGAINS END? 


ATISITS 


IF 9 = "6SEQER" THEN 
BEGIN SWITCHITCSEQERRBy}T)3 GO AGAIN ENDS 
= "6SINGL® THEN 
BEGIN SWITCHITCSINGLBIT)3 GO AGAIN END3 
= "6SEQXE*" THEN 


IF Q 
IF @ 


IF Q 


lie "NOP 
21s "GFQ 
39» “RIN 
69» "NF 
1325 “SND 
261» "DUP 
5335 "LEO 
582» “SSP 
1003*"Scl 


oO." 


O,"F Xe 
12."SDA 
229"TEG 
34 e"BIT 
362" INS 
45>" URC 


BEGIN 


SEQXEQTOGIt=XMODE#2 AND XMODE# 4 OR SEQXEQTOGSENEVER RESET, 
IF BUILDLINE, £4581) THEN BUILDLINE t= TRUE3 


GO SKANAGAIN3 


END? 


= "6DEBUG" THEN 


RFGIN 


SWITCHITCDFBUGBIT)5 
IF DEBUGTOG THEN 

If WOPfOJ]20 THEN 

BEGIN 

FILL WOPE*) WITH 


MLITC%s" 


Mar) 


WOPDC™»"*DESC™. 


, 125 "PRT 
, 225 “BBC 
*, 40, "c0Cc 
», Tis "XIT 
"21330 "XCH 
"e2278e "LBC 
",534. “BRW 
"2790+ "LBU 
™s1004*"SAN 


FILL COPL[*#]) WITH 


00200 


", 2e"BSD “y 


Wet de"SSA. %214e"SFD 
2 23e"TGR *e2Ge"SRS 
,32e"—NC 33, "STC 
2 39e" IEW Me G4Oe RCA 
*s46e"TSA "e47o"JRV 


*, 13% 
", 2a 
, GBe 
", 72s 
"21345 


"DEL “» 16% 
WINX *, 352 
"SUB "» 64» 
HMKS ",1288 
"CHS "21679 


“ADD "se 188 
"LOR "se 372 
"MUL "es 67> 
"DIV 5130» 
"RTS "0168. 


e 19, "LNG * 
» 385 “BFC ”* 


» 68. "STD " 


"e,131-5 "Lav " 
"22602 "LOD >» 


*s29Ho"@LEC Te 3Z220"ZP4 %e384e “IDV "95320 "ISD 


*,548> 
", 8069 


WISN "55490 
WLFU ".8969 


210199"ScS “, 
102321023 91023 5102301023 01023 9102321023910230102391023 21023 0109391023» 
1N23010230102321023210239102321023010230102301023910235 10233 


"LSS 9550» 
TROV Me 


"BFW "55815 "FOL ", 


® CHARACTFR MODE MNEMONICS 


3,"BSS "s 4e"™RDA “eo So™TRW "p6e"SED %s 7e*TOA 


“ei 5e"SRD %218,"SES 
We25e"SFS "2 28,"TEL 
34 e"SEC 535 ,"CRF 
Weaie"ENS "saae"BNS 
"e4be"CEQ “e49e"CNE 


",20e"TEQ 
*,29e"TLS 
2365" INC 
*.,a3e"RSA 
*,50e"CEG 


“s24- “TNE ", 


Wr, Z0,"TAN Mo 
e37,"JFC Me 
eHOe"SCA Ms 
"251e"CGR "e 


S2e"BIT eS53e"BIR MeSHe"O0CV *,55e"I1 CV e5Ge XCEL "sS7e*CLS "p58 ep "FSU Me 
5SOe"FAD “e6Oe"TRP "eb ie"TRN 2 62e"TRZ "2863e"TRS “ebbe Oe bhe0e bbs Oo baeOe 


64r0e6an 


026400964003 


ENDS 


GO AGAIN) 
ENDS 


02508000 T 00191020983 
02509000 T 004930243!2 
025430000 T 00492024383 
02511000 T 0019t024480 
02513000 T 0019302;5:2 
02514000 T 00198024712 
02515000 T 00498021782 
02516000 T 004938024783 
02517000 T 00191022132 
02518000 T 001980220433 
02519000 T 00498022200 
, 02520000 T 00198022283 
02521000 T 00193009610 
02522000 T 004980920684 
02523000 T 001980230380 
02524000 T 00191023094 
02525000 T 001940234382 
02526000 FT 00198023430 
02527000 T 00199023630 
02528000 T 00193023810 
02529000 T 0019180238380 
02530000 T 001980203631 
02531000 7 001980239182 
02533000 T 00198024080 
02534000 T 0013980204084 
02535000 fT 00191024230 
02536000 T 001910204281 
02537000 T 00198024382 
START OF SEGMENT. *euceeebue 22 
02538000 T 00198024434 
02539000 T 00191024484 
02540000 T 00198024431 
02541000 T 004910244834 
02542000 T 00198024481 
02543000 T 00193024431 
02544000 T 00492024481 
02545000 T 001498024481 
92546000 T 00193024454 
02547000 T 00198024431 
02548000 T 00198024414 
02849000 T OO19802G481 
22 18 128 LONGe NEXT SEG 19 
02550000 rT 00198024484 
02551000 TF 001949024522 
START OF SEGMENT eeumenneee 23 
02552000 rt 00191024610 
02553000 TY 00398024680 
02554000 T 00198024610 
02555000 T 00492024630 
02556000 T 00198024610 
02557000 T 001980246380 
02558000 T 00191024610 
025859000 T 004930246!0 
02560000 T 001498024610 
23 1S 128 LONGse NEXT SEG 19 
02563000 T 00198024680 
02564000 T 00191024610 
02565000 T 00198024810 


IF Q = “6FORMA" THEN 
BEGIN SWITCHITCFORMATRIT)3 GO AGAINS END 
GO WHATISITS 
LENGTH7: 
z% IF @ = "7INCLU" THEN 
z BEGIN DOLLARCARDtsSTARTINCLUDING? GO EXITS ENDS 
% IF @ « "7INCLN® THEN 
% BFGIN SWITCHITCNEWINCLBIT)$ GO AGAINS END3 
LENGTH8: & NO OPTIONS OF THYS LENGTH ARE CURRENTLY IMPLEMENTED, 
LENGTH? 
IF @ = "9INTRI® THEN 
BEGIN 
INTOG#sXMODE#2 AND XMODE# 4 OR INTOGS % NEVER RESET, 
GO SKANAGAINS 
END3 
WHATISIT! 
IF RESULTs3 THEN 
BEGIN 
BASENUMS@CONVCACCUM(C1)°O0eACCUME1]),£12196))3 
TOTALNOt#9403 
NEWBASE ESTRUES 
GO SKANAGAIN? 
END} 
IF RESULT#? THEN 
BEGIN 
IF Q@ = 140000" THEN 
BEGIN 
SKAN} 
tf RESULT#3 THEN 
- ADDVALUEt*CONVCACCUMrF1]-OsaccUMr1),(1286)) 
FLSE FLAG¢600)8 &% NUMBER EXPECTED, 
FND3 
GO SKANAGAIN?S 
ENOs 
COMMENT 010 NOT RECOGNIZE OPTIONS 
IF RESULT#1 THEN & NOT AN IDENTIFIER, 
BEGIN FLAG¢601)% GO SKANAGAIN END! 
SWITCHITCUSEROPINX)$ % USEROPINX MEANS A USER#DEFINED OPTION, 
GO AGAINS 
EX1T? 
LISTERtaDEBUGTOG OR LISTOG OR LrSTATOG3 
MOVE CLOsSDEFINEARRAYCO),ACCUMEO))% & RESTORE INFORMATION FOR 
COUNT#eSCOUNTS RESULTteSRESULTS % "TABLE® TO RESUME SCAN, 
RESTORESFQNUM(LCR»e INFOFLASTSEQROWSLASTSFQUENCEJ)S & FOR VOrp TeSsTS 
DOLLARTOGtaFALSES 
END DOLLARCARDS 
COMMENT TABLE 1S THE ROUTINE THAT MOST CODE IN THE COMPILER 


USES WHEN IT 1S DESIRED T@ SCAN ANOTHER LOGICAL QUANTITY, 
THE RESULT RETURNED 1S THE CLASS OF THE ITEM DESIRED, 
TABLE MAINTAINS THE VARIABLES 1 AND NXTELBT AND THE ARRAY 
FLBAT, ELBAT AND I ARF PRINCIPAL VARIABLES USED FOR 
COMUNICATION BETWEEN TABLE AND THE OUTSIDE WORLD. NXTELBT 


19 18 


02566000 
02567000 
02568000 
02569000 
02570000 
02571000 
02572000 
02573000 
02574000 
02575000 
02576000 
02576500 
02577000 
02577250 
02577500 
02578000 
02579000 
02580000 
02581000 
02582000 
02583000 
02584000 
02585000 
02586000 
02587000 
02588000 
02589000 
02590000 
02591000 
02592000 
02593000 
02594000 
02595000 
02596000 
02597000 
025986000 
02599000 
02600000 
02601000 
02602000 
02602500 
02602600 
02602700 
02602800 
02603000 
02604000 


296 LONG 


02605000 
02606000 
02607000 
02608000 
02609000 
02610000 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
tT 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
® 


Ata 


00191024830 
00498024884 
00191025280 
001930252314 
001991025382 
00191025382 
00191025312 
00198025312 
00191025382 
004910253182 
00198025382 
00398098383 
00192025480 
00491095684 
00198026080 
00493026080 
001910260180 
00192026081 
00498026182 
00193026404 
0049026513 
00391026630 
00491026634 
001491096684 
00491006733 
00198026810 
0049102688, 
0014918026912 
001938027332 
00198027333 
00192027610 
00198027933 
00193027983 
00198028030 
00491028080 
00191028080 
00191028182 
0019'0082%4 
00191028313 
00198028430 
001491028410 
00198028732 
001928028932 
00498009084 
00498099214 
00198029312 
NEXT SEG 


0003:0249210 
0003810242180 
00038029210 
00031024210 
0003130242010 
0003 '0242!0 


3 


PRT¢435) = TABLE 


1S ALMOST EXCLUSIVELY USED BY TABLE» ALTHOUGH AN OCCASION] 
AL OTHER USE IS MADE IN ORDER To FORGET THAT SOMETHING WAS 
SCANNED, (CSEE»s FOR EXAMPLE» COMPOUNDTAIL)« FOR FURTHER 
GENERAL DISCUSSION SEF THE DECLARATION OF THESE VARIABLES, 
THE PARAMETER P IS THE ACTUAL INDEX OF THE QUANTITY 
NESYRED CUSUALLY ["1el, OR L41)5 
THE GENERAL PLAN OF TABLE 1S THIS! 
1) IF P « NXTELBAT GO ON TO II1). 
11) PROCESS ONE QUANTYTY, 
A) SCAN, . 
B) TEST FOR IDENTIF YER» NUMBER» OR SPECIAL CHARACTER, 
1) IDENTIFTER = LOOKUP IN DIRECTORY AND PROCESS 
1N SPECIAL MANNER [F COMMENT OR DEFINED ID, 
2) NUMBER # PROCESS INTEGER PART,» FRACTIONAL PART, 
AND EXPONENT PART, 
3) TEST IF SPECIAL CHARACTER REQUI[RES SPECIAL 
PROCESSING » OTHERWISE GET ELBAT WORD FROM 
SPECIAL, 
C) LOAD ELBAT AND INCREMENT NXTELBT, : 
0) 1F ELBAT IS FULL ADJUST ELBATs NXTELBT»s fT» AND P, 
F) GO BACK TO 7), 
111) RETURN WITH CLASS OF FLBATCP), 
FURTHER DETAILS ARE GIVEN IN BODY OF TABLE, 


} 
INTEGER PROCEDURE TABLECP)$ VALUE PS INTEGER P3 


REGIN 
LABEL PERCENTeSPECIALCHARs COMPLETE sCOLON@DOT&#ATSIGNe QUOTES 


STRNGXTsMOVETT*ARGHs FINISHNUMBER>» 
SCANAGAINe FPARTSEPARTs TPARTs IDENT» ROSE s COMPOST sDOLLARe RTPARENe 
CROSSHATCHsNUMBERENDS 
SWITCH SPECTALSWITCHE=PERCENT s DOLLAR» DOTsATSIGNe COLON, QUOTE, 
RTPAREN,CROSSHATCHS 
SWITCH RESULTSWITCHI=IDENTsSPECTALCHARsS I PARTS 
WHILE P 2 NXTELBT 
DO BEGIN 
SCANAGAIN? 
COUNTS mRESULT&=ACCUMr 178803 SCANNERS 
GO RESULTSWITCHERESULT)3 
ARGH! 
— QRBACCUME1)3 FLAGC144)3 GO SCANAGAIN3 
SPECTALCHAR! 
GTITSACCUMECI2,£1696] = 23 
FENDTOG?=GT!1 = 57 AND ENDTOG 
COMMENT OBTAIN ACTUAL CHARACTER FROM ACCUM) 
TEmSPECIALEGTIGTIP4otait3yy3 
COMMENT NOTICE COMPRESSION TRCHNIQUE USED TO SHORTEN TABLE OF 
FLBAT WORDS FOR SPECYAL CHARACTERS? 
IF GTiteT,INCR = 0 THEN GO COMPLETE} 
GO SPECTALSWITCHIGTi72 
COMMENT INCR FYELD OF SPECIAL CHARACTER IS NON®WZERO FOR SPECIAL 
CHARACTERS REQUIRING SPECIAL HANDLING, {NCR 1S SWITCHED 
ON TO OBTAIN DISCRIMINATIONS 
COLONS RESULTi2#73 SCANNERS COMMENT ELIMINATE BLANKS = CHECKING 
FOR t= yN PLACE OF « 3 
IF EXAMIN (NCR) » “a” THEN 


02611000 
02612000 
02613000 
02614000 
02615000 
02616000 
02617000 
02648000 
02619000 
02620000 
02621000 
02622000 
02623000 
02624000 
02625000 
02626000 
02627000 
02628000 
02629000 
02630000 
02631000 
02632000 
02633000 
02634000 
02635000 


02636000 
02637000 


START OF SEGMENT 


02638000 
02639000 
02640000 
02641000 
02642000 
02643000 
02644000 
02645000 
02646000 
02647000 
02648000 
02649000 
02650000 
02651000 
02652000 
02653000 
02654000 
02655000 
02656000 
02657000 
02658000 
02659000 
02660000 
02661000 
02662000 
02663000 
02664000 
02665000 


a at st st st st st Hs Ht 


At HAHAH HHH Ht st wt 


PTET rrery. 


000380294280 
00038024210 
00031024210 
000340242!0 
00038028210 
00034024290 
00038024230 
0003t024a210 
00031024210 
00038024230 
000380294210 
00038024210 
000318024210 
000310249210 
00031024210 
0003t0242!80 
000340242!0 
00038024210 
0003%024230 
00032024230 
00038024210 
00033024280 
0003%0242t0 
00032094230 
00032024230 


00033024210 
00031024280 


00242000080 
0020:000010 
00243000080 
00241000080 
00248000214 
00246:0007!2 
00294:00;42%4 
0024100143!2 
00248001410 
00241003582 
00248004713 
00241001983 
002410020t0 
00243002280 
0024300232 
00241002582 
00248002684 
00281000681 
00243002614 
00243002831 
00941009834 
0024!0034!2 
0024400332 
00248'0033%2 
002410033%2 
00248003382 
00241003430 
00241003430 
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DOT: 


ATSIGN! 


COMMENT 
QUOTES 


ELSE 


STRNGXT3 


MOVEIT! 


COMMENT 


BEGIN RESULT&#03; SCANNERS TtaSPECTALC13) ENDS 
RESULT&#23 GO COMPLETES 


IF EXAMINCNCR)>9 OR ENDTOG THEN GO COMPLETE: 
NHIS#NLOts03 
Ctse03 GO FPRART; 


RESULT&2#0}3 SCANNERS % SCAN PAST "@", 
1F COUNT?17 THEN GO ARGHsd % 16 CHARS, + "0", 
IF OCTYZECACCUME1)0Ce17™COUNT»COUNT#@=1) THEN 
BEGIN QtwACCUMrF173 FLAGC521)3 GO SCANAGAIN ENDS 
GO NUMBERENDS 
DOT AND ATSIGN ENTER NUMBER CONVERSION AT CORRECT SPOTS 


COUNT? 20} 
TtwIF STREAMTOG THEN 63 
IF REALCSTREAMTOG)>1 THEN 8 ELSE 73 
nO REGIN 

RESULT#@53 SCANNERS 

IF COUNT>T THEN 

BEGIN Qt=aCCUMCY]$ FLAG¢520)% GO SCANAGAIN ENDS 
_ END UNTIL EXAMINCNCR) & @On; 

QtwACCUMCE19$ RESULT#25s SCANNERS COUNTt COUNT #43 
1F COUNT«O THEN COUNT#@COUNT+643 
ACCUME1] x Q3 RESULTIsd3 
TicCied} 
1F COUNT «< 8 THEN 


MOVECHARACTERSCCOUNTsACCUME 1 J 5320 oe 8*COUNT)3 

T CLASS #@STRNGCONS 

G0 COMPLETES 

CROSSHATCH HANDLES TwO SITUATIONS! 

THE CROSSHATCH AT END OF DFFINE DECLARATIONS AND 

THE CROSSHATCH AT END OF ALPHA REPRESENTING DEFINED IDS, 
THE TWO CASES ARE PROCESSED DIFFERENTLY. THE FIRST CASE 
MERELY PLACES THE CROSSHATCH IN ELBAT, THE SECOND CASE 
CAUSES AN EXIT FRom SCANNING THE ALPHA FOR THE DEFINED ID, 
FOR A FULL DISCUSSION SEE DEFINEGENS 


CROSSHATCH? 


NOLLAR! 


PERCENT! 


IF DEFINECTR#0 THEN GO COMPLETES 
PUTSEQNOCGT1eLCR)3 
TURNONSTOPLIGHTCOeLCR)3 
IF DEFINEINDEX = 0 THEN GO ARGH} 
LORtw(GTLteDEFINEARRAYEDEFITNEINDEX"4)) DIV 2621443 
NcRteaTi MON 2624443 
GT2'eORC Tt RDEFINEARRAYE( DEF INEINDEX! eDEFINEINDEX"™3) 203384824593 
LASTUSEDIaT,633415)53 
FOR GT4atay STEP 1 UNTIL GT2 DO 
BEGIN 
STACKHEADCCT&mTAKE CLASTINFO41)),612936) MOD 125) te 
TAKECLASTINFO) LINKS 
LASTINFOSmONEXTPNFOSMLASTING OT, PURPT? 
END3 
GO SCANAGAINS 
COMMENT THIS CODE HANDLES CONTROL CARDS} 
NOLLARCARD3 
re NCR # ecR THEN READACARD$ 


02666000 
02667000 
02668000 
02680000 
02681000 
02682000 
02683000 
02684000 
02685000 
02686000 
02686500 
02687000 
02689000 
02690000 
02691000 
02692000 
02692500 
02693000 
02694000 
02695000 
02696000 
02697000 
02698000 
02699000 
02700000 
02701000 
02703000 
02704000 
02705000 
02705100 
02705200 
02707000 
02708000 
02709000 
02710000 
02711000 
02712000 
02713000 
02714000 
02715000 
02716000 
02717000 
02738000 
02749000 
02720000 
02721000 
02722000 
02723000 
02723500 
02724000 
02725000 
02726000 
02727000 
02728000 
02729000 
02730000 
02731000 


A tt Ht tt Ht tt tt Ht tt tt tt a ts Ht st 


00241003630 
00248003884 
00248004010 
002410040!10 
00248004332 
00248004410 
0024130045t3 
002410046!10 
00243004732 
00241004884 
00248005183 
00242005484 
00241008512 
0024800552 
0024:0055%2 
00241005513 
00241005610 
00241006010 
002480060!0 
00248006112 
00248006230 
00241006414 
00248006732 
OO24IOO7OI, 
00241007312 
00248007582 
00248007630 
00248007722 
00248007810 
00248008034 
00242008210 
00248008231 
00243008284 
0024:0082%4 
002440082 %1 
002480082!; 
002410082!1 
00248008231 
0024#00862!4 
002410083!2 
002418008410 
002418008512 
00248008610 
00244008783 
0024#0090!0 
00248009;1!2 
0024!0094t0 
00241009513 
00248009880 
002430098!30 
00248010182 
00243010281 


002440405!2 


00241010782 
00243010783 
00241030810 
00241030884 


COMMENT 


COMMENT 
RTPARENS 


PARTS 


BR DR VR DR DE FE BO DE FR DE DA DE FR PL FE FE FS VE BE DR DE FR BA FQ BQ ~o 


FPARTS 


GO SCANAGAINS 
MOST PERCENT S}GNS ACTING AS END OF CARD SENTINELS GET TO 
PFRCENT, PERCENT READS THE NEXT CARD AND STARTS OVER, A 
SIDE EFFECT 1S THAT ALL CHARACTERS ON A CARD ARE IGNORED 
AFTER A FREE PERCENT SYGN ¢ONE NOT [MBEDDED IN A STRING OR 
COMMENT) 3 
MIGHT BE FUNNY COMMA = HANDLE HERE? 
RESULTI#73 SCANNER} 
TF EXAMINCNCR) & # TUEN 
BEGIN 
RESULT#£203 SCANNERS 
DO BEGIN 
RESULTta53 SCANNER 
END UNTIL FXAMINCNCR) = wey 
RESULT®s03 SCANNERS 
RESULTIS73 SCANNER 
IF EXAMINCNCR) #4 "C€" THEN GO ARGH 
RESULT!#e03 SCANNERS Q1eACCUME1)} 
TrsSPECTALI24) 
END3 
RESULT8=s23 GO COMPLETES 
TCOUNTIe03 C3mCONVERTS 
RESULTt!e73 SCANNERS & DEBLANK, 
IF NEFJNECTR#O THEN 
TF ¢Cm3 OR Cmd) AND EXAMINCNCR)#""" THEN ZOCTAL OR HEX STRING, 
BEGIN INTEGER SIZ3 
RESULT#=53 SCANNERS % SKIP QUOTE, 
COUNTH=O}3 
D0 BEGIN 
RESULT!#53 SCANNER} 
IF COUNT > S1Zim48 DIV C THEN & > 1 WORD LONG, 
BEGIN ERR(520)3 GO SCANAGAIN ENDS 
END UNTIL FXAMINCNCR) ate; 
Q@tsAcCUMr1]3 RESULT%&5%3 SCANNERS COUNTIsCOUNT#43 
TF Cw3 THEN & OCTAL STRING, 
IF OCTIZECACCUMP1 Je ACCUM[ 4G] 516=COUNT»COUNT) THEN 
FLAG(521) % NON OCTAL CHARACTER IN STRING, 
FI.SE ELSE IF HEXIZECACCUMC 4] »ACCUML41592°COUNTPCOUNT) THEN 
FLAG(521)3 % NON CHARACTER IN HEX STRING, 
IF COUNT «< S1Z THEN 
BEGIN 
CimACCUME 4) GO FINISHNUMBERS 
ENDS 
TLINCRSZCOUNTS=B3 TeCLASS#@STRINGS 
MOVECHARACTERS( 8» ACCUML4) +0, ACCUM(1)»3)3 
GO COMPLETES 
END OCTAL OR HEX STRINGS 
1F DPTOG THEN 
BEGIN NHI @elHIs NLOtmTLOS ENDS 
1F EXAMINC(NCR)#*," THEN 
REGIN 
RESULT#s03 SCANNER? 
C%21,0x C3 
TCOUNTIERCOUNT? 
IF EXAMINCNCRIS9 THEN 
BEGIN 
RFSULT#s03 SCANNERS 


02737000 
02736000 
02739000 
02740000 
02741000 
02742000 
02743000 
02744000 
02745000 
02746000 
02747000 
02748000 
02749000 
02750000 
02751000 
02752000 
02753000 
02754000 
02755000 
02756000 
02757000 
02758000 
02759000 
02760000 
02761000 
02762000 
02763000 
02764000 
02765000 
02766000 
02767000 
02768000 
02769000 
02770000 
02771000 
02772000 
02773000 
02774000 
02775000 
02776000 
02777000 
02778000 
02779000 
02780000 
02781000 
02782000 
02783000 
027848000 
02785000 
02786000 
02787000 
02788000 
02789000 
02790000 
02791000 
02792000 
02793000 


a ttt A to oe a Ht 


002448044084 
00248044122 
0024:0141!2 
00248014122 
0024101441182 
002401014112 
00248011182 
00249014182 
00241011332 
00249044582 
00268011583 
00248014604 
00268044782 
00248044783 
00248012084 
002480499383 
00248012312 
00248012532 
0024804273 
002430129733 
0024:012624 
002480129183 
002480343183 
00242043183 
002410433283 
00248033183 
00241013113 
002410131!3 
00248013183 
00243013193 
0024t0131:3 
00242013133 
00241013193 
00243013153 
00248013183 
00248013193 
00248013183 
0024910143183 
00248013183 
00243043153 
00268013153 
00241013183 
00261013113 
002410131193 
00241033183 
00243043183 
00243013133 
002410431423 
002410133210 
00241043410 
00248013583 
00243043680 
00248043793 
00241013893 
0024:0139%3 
002410144183 
00242014230 


IF DPTOg THEN 
BEGIN 
DOUBLE C CONVERT» TLOs TENE CCOUNT*TCOUNT MOD 123» 
Os/stesTHI se TL0)3 
FOR Te#i2 STEP 12 UNTIL COUNT = TCOUNT pO 
DOURLECTHT > TLO*TENE 12] eOe/o two THI oe TLODS 
DOUBLE C THI s TLOsNH] sNLOste SeeNH] eNLOD3 


CimNHy 
END 
FLSE CeSETENETCOUNT@COUNTIXCONVERT#C2 
END 
END; 
RESULTim73 SCANNER} 
TF EXAMINCNCR)e"O" THEN 
BEGIN 
RESULT!#03. SCANNERS 
EPARTS TCOUNTS=COUNT3 
Ciscuy,03 
RESULTt=73 SCANNERS 
IF TiwEXAMINCNCR)>9 THEN 
BEGIN 
RESULT#203 SCANNER? 
TCOUNTIsCOUNTS 
END3 
RESULT!=03 SCANNERS 
QtzaccUME41)3 


TF GTiteTsecre Tae="THEN “CONVERT ELSE CONVERT) <=46 OR 


T>69 THEN FLAGC 269) 
ELSE BEGIN 
TIsTENCT)3 


TF ABSCORCC4O¢36Jaclisasi)sOaTr4osas6yarcis2ery 


+ 12) >63 THEN FLAG(269) 
FLSE IF DPTOG THEN 
IF GT1<0 THEN 
BEGIN 
GT1ta=GTL3 


DOUBLFCNHI*NLOsTENCGTL MOD 12]500/eteeNwteNLODS 


FOR GT2tai2 STEP 12 UNTIL GT1 DO 


DOURLE CNHI eNLOSTENL 12) 000/+8e@eNHIoNLO)$ 


END 
ELSE BEGIN 


DOUBLE CNHI »eNLOSTENEGT1 MOD 12)50ex53meNHI oe NLODS 


FOR GY2:s12 STEP 12 UNTIL @T1 nO 


DOUBLEC NHToNLO,TENLI12],05x%5 8 SeNHT pNLODS 


END 
ELSE ctscxT3 
END} 
ENDS 
NUMBERENDS 
QtsACCUME193 RESULTI233 
FINISHNUMBERS 
T3203 
TF C.f1%37380 THEN 
REGIN T CLASS#=@eLITNO 3 T.ADDRESSte«¢ END 
ELSE T.CLASS#sNONLITNO 3 
GO COMPLETE!) 


COMMENT THE CONE BFTWEEN JDENT AND COMPOST pOFS A LOOKUP IN INFO, 


02794000 
02795000 
02796000 
02797000 
02798000 
02799000 
02800000 
02801000 
02802000 
02803000 
02804000 
02805000 
02806000 
02807000 
02808000 
02809000 
02810000 
02611000 
02812000 
02813000 
02815000 
02646000 
02817000 
02646000 
02620000 
02822000 
02823000 
02824000 
02825000 
02826000 
02827000 
02826000 
02829000 
02830000 
02831000 
028632000 
02833000 
02834000 
02835000 
02836000 
02837000 
02838000 
02839000 
02840000 
02641000 
02842000 
02843000 
02844000 
02845000 
02846000 
02847000 
02848000 
02849000 
02850000 
02851000 
02852000 
02853000 


AAA AMMAN A A tt tt a a a te 


002410143382 
00241044313 
00242014480 
00243014722 
00241014884 
002448015382 
00242015630 
002420460!t0 
00241016010 
00248016182 
0024630164384 
00243046484 
00248016431 
00243016610 
002413046713 
00241046830 
0024:016933 
00241017084 
00241037280 
00241077382 
00248047533 
002430376!0 
00249047782 
0024:0476:0 
00248047610 
00241047982 
002410180!0 
00201018532 
00243018634 
00248018982 
00241019081 
00243019512 
002480197182 
00244049884 
00241039983 
00248020030 
00241020112 
002410205t2 
00243020610 
0024:024113 
00243023193 
00241021280 
00241021533 
0024802;7t2 
002480220914 
0028102221 
00243022410 
00241029410 
00201022810 
00241022532 
002461022684 
00241022712 
00248022733 
00242022913 
00241023313 
0024102353 


00241023610 


IDENT! 
ROSE! 


TF QUANTITY FS NOT FOUND THE ELBAT WORD EXPECTS TO BE 
ZERO. THE SCRAMBLE FOR APPROPRIATE STACK IS FIRST THING 
TO BE DONE, THEN THE LOOP BETWEEN COMPOST AND 
ROSE IS ENTERED. THe LAST THING DONE FOR ANY 
IDENTIFIER WHICH 1S FOUND 1S TO STUFF THE LOCATION 
OF THE ELBATWORD IN tNFO INTO THE LINK FIELD, THIS 
ALLOWS REFERENCE BACK TO INFO FOR ADDITIONAL DATAs 
SHOULD THIS BE REQUIRED. ; 
TemSTACKHEANDCSCRAMS=¢Q22ACCUME1))M0D 425)3 
GTi tel, LINKRS 
IFCGTAtaT,LINKC)+GTis 0 THEN 

BEGIN T#e03 GO COMPLETE END3 


1F T = INFOrGT1s GT2) THEN REGIN 


COMPOST? 


COMMENT 


COMMENT 


COMPLETF! 


Tt= 0% GO TO COMPLETE END3 
TteINFOLGT1»GTal3 
IF INFOCGT1eGT241)&80ri3:1814) # @ THEN GO ROSE? 
IF COUNT ¢ 5 THEN GO COMPOST 3 


71018 
Z101° 


IF NOT FQUALCCOUNT=5eACCUME2)oINFOLGTIeGT242)) THEN GO ROSES 


TIeTRGTIC3R5243:5]agtorcaoraoials 
TF GT1 #1 aND NOT MacROID THEN % NOT RESERVED WORD 


%110- 


XREFITCT.LINK»sCARDNUMBER,NORMALREF)3 & BUILD XREF ENTRY #110« 


CHECK HERE FOR COMMENTS AND DEFINED IDS3 
IF NOT ENDTOG THEN 
BEGIN 
IF GTyteT, CLASS = COMMENTV THEN 
BEGIN 
WHILE EXAMYNCNCR) # "3% 90 
BEGIN RESULT&8m6%i COUNT!203 SCANNER END) 
RESULTS O3SCANNERSGO SCANAGAIN 
END 
FND} 
IF STOPDEFINE THEN GO COMPLETES 
tF GT1 # DEFINEDID THEN GO COMPLETES 
SETUP FOR DEFINED IDS » SEE DEF INEGEN FOR MORE DETAILS3 
IF T,ADDRESS#0 THEN TleFIXDEFINEINFOCT)S 
1F OEFINEINDEX = 94 THEN 
BEGIN FLAGC139)3G0 ARGH END} 
NEF INEARRAYIDEFINEINDEX ]?*@LASTUSEDRT, ADDRESS (18133815)3 
LASTUSEDIeGITC(T)3 
DEF INEARRAYCDEFINEINDEX4¢2]482621G4xLCRENCRSI 
LCOR&tmONCRIeMKABS( DEF INEARRAYCOEF INEINDEX411)20413 
PUTSEQNO(GT4eLCR)s 
TURNONSTOPLIGHTC"’S"sLCR)2 NEF INEINDEXtmDEF INE LNDEX433 
GO PERCENT) 


ELBATENXTELBTJiaT3 


IF NOT DEFINING THEN 


IF 1. 


IF 1, 
BEGIN 


ENDS 


CLASS ws BEGINV THEN 
BFGINSTACK(BSPOINT#zgSPOINT+1)9@2CARDNUMBER ELSE 
CLASS # ENDV THEN 


IF LISTER THEN IF BEND THEN BEGINPRINTS 


£108- 
%108=8 
%108= 
¥108= 
%108- 
£1060 


RBSPOENT!aBSPOINT © RFALCBSPOINT > 023 & PREVENT INVALID INDEX 


STOPDEFINES "FALSE COMMENT ALLOW DEFINES AGAIN 
IF NXTELBT&taNXTELBT+4y > 74 THEN 
IF NOT MACRO D THEN 


¥108= 


02854000 
02855000 
02859000 
02860000 
02861000 
028662000 
02863000 
02864000 
02665000 
02875000 
02876000 
02877000 
028770140 
02877020 
02878000 
02879000 
02880000 
02881000 
02882000 
02882100 
02682200 
02883000 
02884000 
02885000 
02886000 
02887000 
02888000 
02889000 
02890000 
02891000 
02892000 
02893000 
02894000 
02895000 
02896000 
02898000 
02899000 
02900000 
02901000 
02902000 
02903000 
02904000 
02905000 
02906000 
02909000 
029140000 
029104100 
02910200 
02910300 
02910400 
02910500 
029140600 
02910700 
02910800 
029341000 
02912000 
02943000 


AA AND ANDO NAADANAD AMA M AH HAA HHH HHA HOO Ht a 


0024+0236!0 
00241023680 
002420293610 
00241023630 
002488023630 
00243023610 
00243023680 
002410236t0 
002410293610 
00248003913 
00201024142 
0024:024383 
00241026582 
00241024783 
00242024884 
0024302885084 
00248025420 
002410255183 
00248026010 
00243026231 
00241026410 
002483026733 
002403096713 
002410268:0 
00241006884 
00243007084 
00241027182 
002413027382 
002410275183 
00248027783 
002410297783 
0024:0277383 
00241097884 
009430079%3 
002418027983 
0024:028281 
0028302833 
00248028582 
00243028713 
00243026834 
00241029483 
00248029532 
00241029630 
00241029630 
00243030030 
00243030030 
0024610304:2 
00242030193 
00241030333 
00248030630 
00243030830 
00243030834 


—-00248034182 


0024803; 284 
00ak8t031 204 
00246:034313 
00243034512 


COMMENT 


BEGIN 

ELBAT 18 FULLS ADUUST IT? 
MOVE C10+ELBAT(65),ELBAT)3 
Tte1e653 Piepe653 NXTELBT #54103. 
END 

ENDS 


IF TABLESSELBATECPJ.CLASS = COMMFENTV THEN 


BFGIN 
COMMENT SPECIAL HANDLING OF CONSTANTS FOR SAKE OF FOR STATEMENTS} 
Cle INFOCO,ELBATEIP], ANDRESS ]3 
FLBATCP),CLASS#sTABLEtsNONLITNO 
ENDS 
STOPDEFINE!sFALSES COMMENT ALLOW DEFINE? 
END TABLE 3 


BOOLFAN PROCEDURE BOOLPRYM3 


PRT¢436) = ROOLPRIM 


24 


FORWARDS 


PROCEDURE BOOLCOMP(B)3 BOOLFAN 8% FORWARDS 


PRT¢437) # ROOLCOMP 


PRT¢440) = NEXT 


STACK(Fs3) 2 T 


INTEGER PROCEDURE NEXTS 


COMMENT 


REGIN 
LABEL EXITS 


1s 


02914000 
02915000 
02916000 
02917000 
02918000 
02919000 
02920000 
02921000 
02922000 
02923000 
02924000 
02925000 
02926000 
02927000 


337 LONG 


02955000 
02955500 
02956000 


02956500 
02957000 


START OF SEGMENT 


INTEGER T3 


DEFINE ERROR = BEGIN 
SKAN$ 
IF RESULT#3 THEN ERROR$ & NUMBERS NOT ALLOWED, 
1F Beate THEN & SPECIAL CHARACTER, 
EGIN 
TeelF Qahy,,0000" OR Qn%1Z0000" THEN 20 & FAKE OUT BOOLEXP, 
ELSE ceTtaQ,r1886)=2) & Traatayt3)3 
IF Tw11 OR Tw19 OR Ta90 THEN BATMANSSSPECIALCT] & (93,0R 3 
ELSE FLAG(603)3 
GO EXIT 
END SPECIAL CHARACTERS3 
LOOK FOR BOOLEAN OPERATORS, THEN OPTIONS? 
Tis LF O="3NOTOO" THEN NOTOP 
ELSE IF Qm"™3AND00" THEN ANDOP 
ELSE IF 9="20R000" THEN OROP 
ELSE IF Os" 3FQVO0" THEN FAVOP 
ELSE O03 
1F T¥0 THEN BATMAN, CLASS#taT 


FLAGC60323 GO EXIT END#S 


ELSe BATMANS=1 & BOOTOr297) & REALCFINDOPTYJONCHIICVILIE & OPTION, 


EXT! 


NEXTIeMYCLASSteBATMAN,.CLASS3 


END NEXT3 


25 


BOOLEAN PROCEDURE BOOLEXPs 


1s 


02957500 


02958000 
02958500 
02959000 
02959500 
02960000 
02960500 
02961000 
02961500 
02962000 
02962500 
02963000 
02963500 
02964000 
02964500 
02965000 
02965500 
02966000 
02966500 
02967000 
02967500 
02968000 
02968500 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
e 


er EET ad Ft | 


t 


oe ie ee ee ee i en eee ae 


00242031630 
002420314634 
00241034684 
00248034834 
002413032133 
00243032433 
00241032280 
00241032582 
00242032583 
00241032583 
0024:0328:0 
002410399!92 
00241033182 
00241033183 
NEXT SEG 


00038024280 
00031024210 
000310294210 


00031024230 
00032024280 


0025:000080 


00251000010 
00251000080 
00251000383 
002510006130 
002510007!2 
00251000783 
00251003010 
0025001333 
00258004782 
002510020413 
00251002220 
00253002210 
002528002210 
00258002383 
00251002533 
00251009783 
002530020913 
002353003142 
00258003244 
0025004280 
00251004312 
00258004431 


48 LONGs NEXT SEG 


02969000 


T 


00032024210 


3 


25 


3 


STACK¢Fe3) = B 


BFGIN 
BOOLEAN B3 


BteBOOLPRIM! 


WHILE MYCLASS2EQVOP AND MYCLASSSANDOP DO BOOLCOMPC(B)3 


ROOLEXP$ 2B 
END BOOLEXPS 


BOOLEAN PROCEDURE BOOLPRIM3 


STACK¢F43) = B 
STACK¢CF44) = KNOT 


ELS 
ELSE 


BEGIN 
BOOLEAN Be KNOTS 


OFFINE SKYPIT = MYCLASSt=NEXT #3 
1F KNOTS#¢(NEXT@eNOTOP) THEN SKIPITS 
IF MYCLASSeLEFTPAREN THEN 
BEGIN 
BtsBOOLEXP3 
IF MYCLASS#RTPAREN THEN FLAGC604)3 
END 
TF MYCLASS#B001D THEN FLAG¢601) 
BteBATMAN<O} 
IF KNOT THEN Bt=NOT BS SKIPITS 
BOOLPRIMtaB 
FND BOOLPRIMS$ 


PROCEDURE ROOLCOMP(B)% BOOLFAN B3 


STACK¢Fs2) = OPCLASS 
STACK¢F43) | T 


COMMENT HP REFHHEEE ESHER R ER ERE E TARAS AEE R ERS AREA EEA EE RR EAR EARL AREER EE 


BEGIN 
REAL OPCLASSS 


BOOLEAN T3 


OPCLASSIsMYCLASS3 

TtzRBOOLPRYIM3 

WHILE OPCLASS<MYCLASS 00 BOOLCOMPC(T)3 

Biz IF OPCLASS#®ANDOP TwEN (B AND T) 
ELSE IF OPCLASSsOROP THEN (B OR T) 


FLSE (B FQV T)3 


FND BOOLCOMPS 


FORWARD DECLARATIONS 


02969500 7 00038024210 
02970000 Y 0003:024280 
START OF SEGMENT *4ueeeuede 26 
02970500 T 00261000010 
02971000 7 00261000412 
02971500 T 00268000484 
02972000 T 0026:000434 
26 IS 8 LONGe NEXT SEG 3 


02972500 T 
02973000 T 
02973500 T 


00031024230 
00031024210 
0003802a2!0 


START OF SEGMENT *eeee0nem8 27 


02974000 
02974500 
02975000 
02975500 
02976000 
02976500 
02977000 
02977500 
02978000 
02978500 
02979000 
02979500 


tte tt mt ast 


00274000080 
0027#000010 
002710003!2 
00273000383 
00271000410 
00271000582 
00278000712 
00271000712 
00271000982 
00271001183 
00271004410 
00271001410 


27 18 186 LONG. NEXT SEG 3 


02980000 fT 
02980500 T 
02981000 T 


00038024210 
0003!0242t0 
00038024210 


START OF SEGMENT *xaeee eee 28 


02981500 


~ 


02982000 
02982500 
02983000 
02983500 
02984000 
02984500 
02985000 


+ ats 4 


002830000380 


00281000080 
00281000034 
0028:000113 
00288000484 
00281000610 
00288000881 
0028800414!2 


28 18 14 LONGs NEXT SEG 3 


02985500 T 
02986008 T 
02986500 T 


0003024210 
00034024210 
00031024210 


PRTC441) 
PRTC442) 
PRT¢( 443) 
PRT(444) 
PRT (445) 


PRT( 446) 
PRT (447) 
PRT¢480) 
PRT( 451) 
PRT( 452) 


PRT¢453) | 


PRT¢454) 
PRT( 485) 
PRT¢456) 
PRT¢(457) 
PRT¢ 460) 
PRT(461) 
PRT (462) 


PRT¢463) 


PRTC 464) 
PRT¢465) 
PRT¢466) 
PRTC 467) 


 PRT(A70) 


PRTC471) 
PRYC472) 


BRERA RAAT EEE T EAHA RELATES TAR ATER KAA EEA AAA ERE EASA ART ER LEAR RARE AEE AES 
% 


PROCEDURE AEXP3 FORWARD3 
AFXP 

PROCEDURE ARITHSEC? FORWARD 
ARITHSEC 

PROCEDURF SIMPARITHS FORWARD? 
SIMPARITH 

PROCEDURE ARYTHCOMPS FORWARD? 
ARITHCOMP 

PROCEDURE PRIMARY) FORWARDS 


PRyYMARY 


DEFINE BEXP & AEXP#} 
INTEGER PROCEDURE FXPRSS3 FORWARD3 


FXPRSS 


PROCEDURE POLISHERCEXPECT)S VALUE EXPECTS REAL EXPECTS FORWARD? 


POLISHER 


PROCEDURE INLINE’ FORWARDS 
INLINE 
PROCEDURE SUBHAND(FROM)$ VALUE FROmMS BOOLEAN FROM3 FORWARD} 


SUBHAND 

PROCEDURE JOSTMT3 FORWARD? 
1OSTMT 

INTEGER PROCEOURE IFEXP3 FORWARDS 
1FEXP 


PROCEDURE PARSES FORWARDS 


PARSE 


PROCEDURE DOTS FORWARD? 


not 


PROCEDURE IFCLAUSES FORWARDS 


TFCLAUSE 
INTFGER PROCFOURE GETCSYLLABLE)SVALUE SYLLABLES REAL SYLLABLES FORWARDS 


GET 
; INTEGER PROCEDURE GNATC(L)3 VALUE LS REAL LE FORWARD? 
GNAT 
PROCEDURE PANA$ FORWARD} 
PANA 


PROCEDURE JFSTMT3 FORWARDS 
YF STMT 
PROCEDURE GOGENCLABELBATsBRANCHTYPE D3 


GOGEN 


VALUE LABELBATsBRANCHTYPE3 
REAL LABELBATs»BRANGHTYPES FORWARD} 
BOOLEAN PROCEDURE SIMPGOS FORWARDS? 
SIMPGO 
PROCEDURE STMT# FORWARD? 


STMT 

PROCEDURE EMITCSYLLABLE)3 VALUE SYLLABLES’ REAL SYLLABLES FORWARD? 
FMT 

PROCEDURE PROCSTMT¢cFROM)$ VALUE FROM? BOOLEAN FROM! FORWARD? 
PROCSTMT 
PROCEDURE STRMPROCSTMT3’ FORWARD? 
STRMPROCSTMT 

PROCEDURE CONSTANTCLEAN? FORWARD? 
CONSTANTCLEAN 

PROCEDURE SCATTERFLBAT3 FORWARD? 


SCATTERELBAT 


02987000 
02987500 
03001000 
03002000 
03003000 
03004000 
03005000 


03006000 
03007000 


03009000 
03010000 
03011000 
03012000 


444 


_" 


03013000 T 


03044000 
03015000 
03018000 
03019000 
03020000 
03021000 
03022000 
03023000 
03024000 
03025000 
03026000 
03027000 
03028000 
03029000 
03030000 
03034000 
03035000 


4 4 


444 


—~ 


00031024210 
00031024210 
00031024210 
00031024210 
0003:0242:0 
00033024210 
0003802KR2t0 


00031024210 
00032024280 


00031024210 
00031024210 
00033024210 
00031024210 
000380242!0 
00038024210 
00038024210 
000318024280 
00031024230 
00031024210 
000310242!0 
00038024210 
00033024210 


00033024210 


00031094280 
00038029230 


00031024210 
00031024210 
00038024210 
0003!024280 
00038024210 
00033024210 


PRT¢473) 


PRT¢474) 
PRT¢475) 
PRTC476) 
PRTCA?PT) 
PRT¢500) 
PRT¢501) 


PRT(502) 
PRT(503) 


PRT(504) 
PRT¢505) 
PRT¢506) 
PRT(507) 


PRT¢510) 


PRT¢541) 
PRT(5492) 
PRT(543) 
PRT(544) 
PRT(515) 
PRT(516) 
PRT¢517) 
PRT¢590) 
PRT¢591) 


PROCEDURE EMITACBRANCHsFROMs TOWARDS )3 VALUE BRANCH» FROM» TOWARDS $ 
FMITB 
INTEGER BRANCH» FROM*e TOWARDS) FORWARD? 
PROCEDURE VARIABLECFROM)3 INTEGER FROM? FORWARD? 


VARIABLE 
PROCEDURE IMPFUNS FORWARD? 
TMPFUN 
PROCEDURE RIGHT¢CL)3 VALUE L# INTEGER L3 FORWARDS 
RIGHT 
PROCEDURE STREAMSTMTS FORWARDS 
STREAMSTMT 
PROCFDURE SEGMENTSTART(BISVALUE BSBOOLEAN BSFORWARDS 
SEGMENTSTART 


PROCFDURE SEGMENTCSIHZErF RIS VALUE S1ZEoFRS INTEGER SIZFeFRS FORWARD? 
SEGMENT 


INTEGER PROCEDURE BAE3 FORWARD? 
BAE 
PROCENURE PROGDESCBLOR(C As BeCoD)3VALUE AeBoCeD3 
PROGDESCBLOR 
INTEGER A,C,D0$ BOOLEAN BS FORWARDS 
PROCEDURF BANA FORWARD3 
BANA 
PROCFOURE FMITNUMCA)$ VALUE A’ REAL A’ FORWARDS 
FMLTNUM 
PROCEDURE EMITOCA,B,T)$ VALUE AsBoT# INTEGER AsBoT3 FORWARDS 
EMITD 
INTEGER PROCEDURE GFTSPACE¢S»L.23 VALUE Sots 
GETSPACE 
INTEGER L$ BOOLEAN S3 FORWARD? 
PROCEDURE FORSTMTS FORWARD} 
FORSTMT 
REAL PROCEDURE TAKFCINDEX)$ VALUE INDEX# INTEGER INDEXS FORWARDS 
PROCEDURE ES FORWARD? 
E 
PROCEDURE ENTRY(TYPE)$ VALUE TYPESREAL TYPES FORWARDS 
ENTRY 
PROCEDURE PUTNBUMP(Py)? VALUE P13 REAL P43) FORWARDS 
PUTNBUMP 
PROCEDURE JUMPCHKNXS FORWARDS 


JUMP CHKNX 

PROCEDURE JUMPCHKX3 FORWARD} 
JUMPCHKX 

PROCEDURE DBLSTMT$ FORWARD3 

NBLSTMT 

PROCEDURE BLOCK(S)3 VALUE §3 BOOLEAN S# FORWARD} 
BLOCK 

PROCEOURE PURGE CSTOPPER)IVALUF STOPPERSREAL STOPPERS FORWARDS 
PURGE 

PROCEDURE FNTER¢TYPEV)S 
ENTER 


VALUE TYPEVS 
REAL TYPEVSFORWARD) 


03036000 


03037000 
03038000 


03039000 
03039500 
03040000 
03041000 
03042000 
03043000 
03044000 
03045000 
03046000 
03047000 


03047100 
03048000 


03049000 
03050000 
03051000 


03051001 
03052000 


03053000 
03054000 


03055000 
03057000 


03058000 


+4 


03059000 T 


03060000 T 


03067000 
03068000 
03069000 
03070000 
03071000 


03072000 
03073000 


Oe ee en ee ee | 


00038024280 


00038024280 
00038024230 


00038024210 
00038024220 
0003#0242!0 
0003t0242t0 
000321024210 
00038024210 
00038024210 
00038024210 
00038024210 
000341024280 


00038024210 
00033024210 


00032024210 
00033024230 
000310242!0 


00038024230 
000320242!0 


00031024210 
00038024210 


00038024210 
00031024280 
00038024210 
00031024210 
0003!0242!0 
00038024280 
0003180242!0 
00038024280 
00031024210 
0003!0242!0 


00031024230 
00031024280 


COMMENT THIS SECTION CONTAINS THE EMITTERS. THEY ARE THE AGENTS WHICH 
ACTUALLY PRODUCE CODE AND DEBUGING OUTPUT? 
COMMENT EMITL EMITS A LIT CALLS 
PROCEDURE EMITLOCLITERAL)S VALUE LITERALS INTEGER LITERAL 
PRT(522) = EMITL 
EMITCO&LITERALL 362 38240))3 


COMMENT EMITO EMIT AN OPERATORS 
PROCEDURF EMITOCOPERATOR) VALUE OPERATORS INTEGER OPERATOR? 
PRT¢523) = eMITO 
EMITCL&ROPERATOR: 369388:10))3 


COMMENT EMITC 7S PRIMARILY FOR USE BY STRMSTMT TO EMIT CHARACTOR MODE 
OPERATORS, HOWEVER IT ALSO HANDLES DIAe DIBs AND TRB? 
PROCEDURE FMITC¢CREPEATPOPERATORD? VALUE REPEAT,OPERATOR? 
PRT¢594) # rMITC 

INTEGER REPEATs OPERATOR? 

BEGIN 
IF REPEAT264 THEN FLAG(268)}3 
EMrTCOPERATOR&REPEAT(C36#4296)) END EMITC? 


COMMENT EMITV EMITS AN OPERAND CALL. IF THE ADDRESS 1S FOR THE SECOND 
HALF OF THE PRTs THEN IT ALSO EMITS A PRTES 
PROCEDURE EMITVCADDRESS)$ VALUE ADDRESS# INTEGER ADDRESS3 
PRT¢525) = FMITV 
BEGIN IF ADDRESS > 1023 THEN EMITOCPRTE)3 
EMITC2 & ADDRESS £36238140]) END EMYITV3 


COMMENT FMITN EMITS A DESCRIPTOR CALL. IF THE ADDRESS IS FOR THe 
SECOND HALF OF THE PRT» THEN IT ALSO EMITS A PRTE3 
PROCEDURE EMITNCADDRESS)3 VALUE ADDRESS? INTEGER ADDRESSS 
PRT¢596) = EMITN 
BEGIN IF ADDRESS > 1093 THEN EMITOCPRIEDS 
EMITC3 & ADDRESS (36838810)]) END EMITNE 


COMMENT EMITPATR EMITS A LITC ADDRESS FOLLOWED BY OPERATOR, IF THE 
ADDRESS IS FOR THe SECOND HALF OF THE PRT+ THEN IT ALSO 
EMITS PRTES 
PROCEDURE EMI TPAIRCADDRESS,OPERATORD} 
PRT¢597) = FMITPAIR 


03074000 
03075000 
04000000 
04001000 


04002000 


04003000 
04004000 


04005000 
04006000 


04007000 


04008000 
04009000 
04010000 


040141000 
04012000 
04043000 
04014000 


04045000 
04016000 
04017000 


04018000 
04019000 


04020000 
04021000 
04022000 


04023000 
04024000 


04025000 
04026000 
04027000 
04028000 


a0 Ht 


a4 


+--+ 4 


“4 


a4 a4 


44 -4-4 


00033024280 
000380242!0 
00038024210 
000380242130 
00031024280 
000380242340 


00031024280 


00038024a4t0 
000310244380 


00038024480 


00032024610 
00031024610 
00033024680 


000310246380 
00031024610 
00038024610 
0003!024810 


00033025030 
00031025080 
00032025040 


0003!025010 
00031025230 


000373025430 
00038025410 
00031025410 


00031025410 
00031025610 


000348025810 
00034025830 
0003:025610 
00031025880 


PRT¢530) = ADJUST 


Ww 


VALUF ADDRESS»OPERATOR} 

INTEGER ADDRESS,OPERATOR? 

BEGIN 
EMITLCADDRESS)3 
IF ADDRESS > 1023 THEN EMITOCPRTE)3 
EMI TOCOPERATOR) END EMITPAIRS 


COMMENT ADJUST ADJUST L 10 THE BEGINING OF A WORD AND FILLS IN THE 


INERVENING SPACF WITH NOPS, IT CHECKS STREAMTOG TO DECIDE 
WHICH SORT OF NOP TO USE} 


PROCEDURE ADJUST? 


BEGIN 


HILE L.f46t2)#0 00 EMITC45)3 
END ADJUSTS 


PROCEDURE EMITLNG} 


PRY(531) & FMITLNG 


STACK¢F+2) o TL 


BEGIN LABEL F3 


04099000 
04030000 
04031000 
04032000 
04033000 
04034000 


04080000 
04081000 
04082000 
04083000 


04084000 
04085000 


04086000 
04087000 


04098000 


04099000 


START OF SEGMENT 


IF NOT LINKTOG THEN GO TO £3 


COMMENT GO TO —€ IF LAST THING 1S A LINKS 
IF GETCL) # O THEN GO TO ES 
COMMENT EITHER LAST EXPRESSION WAS CONDITIONAL OR THERE IS NO 


LNG OR RELATIONAL OPERATOR? 
IF GTi ¢ GETCL*"1) = 77 THEN L « Led 
COMMENT LAST THING WAS AN LNG = SO CANCEL ITS 
ELSE IF GT41.042'6)#21 AND GT1.03782]=0 THEN & AHA 

COMMENT LAST THING WAS A RELATIONAL# 

BEGIN LeLegs EMITOCREALCBOOLEFAN(GT1.£36810)) FQV 

BOOLFANCIF GT1,64042) = O THEN 511 ELSE 463))) 
COMMENT NEGATE THE RELATIONAL? FND ELSE 
ES EMITOCLNG) END FMYTTLNGS 
29 1§ 


COMMENT EMITB EMITS A&A BRANCH OPERATOR AND ITS ASSOCIATED NUMBERS 
PROCEDURE EMITBCBRANCHsFROMs TOWARDS)? 
VALUE BRANCH» FROM, TOWARDS3 
INTEGER BRANCHeFROMeTOWARDS$ 
BEGIN 
INTEGER TL 


04100000 
04401000 
04102000 
04103000 
04104000 
04105000 
04106000 
04107000 
04108000 
04109000 
04130000 
04131000 
04412000 


18 LONG 


04413000 
04114000 
04415000 
04416000 
041147000 
04448000 


START OF SEGMENT 


TL « LB 
IF TOWARDS > FOULED THEN FOULED « TOWARDSS 
L « FROM@23 
GTi «© TOWARDS@#FROM? 
IF TOWARDS,[(46!9] = 0 


04149000 
04119500 
04120000 
04420100 
04120200 


~ 44 


T 


KEKE E 


T 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
" 


See KRREEE 


0003:0258:0 
000310258!0 
00032025830 
0003025810 
000330288631 
00038026084 


00038026133 
00038026183 
000330264383 
00038076483 


0003026133 
00033026483 
00031026183 
00038026512 


00033026512 
000310265!2 


00291000010 
00293000084 
0029t000014 
00298000291 
00298000281 
0029:000281 
0029200053 
00298000533 
00293000983 
00298000913 
002980042h1 
00294001513 
002930015383 
NEXT SEG 


0003102652 
00038026512 
00031026582 
000330265!2 
000380265132 
0003!0265t2 


003080000380 
00301000084 
003018000234 
00308000410 
00308000582 


29 


3 


30 


THEN BEGIN 

BRANCH « BRANCH&1(3984714]} 

611 * TOWARDS Div 4 = CFROM@1) DIV 4 END? 
EMP TNUMCABSC(GT1)9)3 
EMSTOCBRANCH&¢CREALCGT12 0944964284632) )3 


Lo «+ TL 
FND EMITBS 


COMMENT DFRBUGWORD FORMATS TWO FIELDS FOR DEBUGGING OUTPUT IN 
OcTAL» NAMELY 3 
1, 4 CHARACTERS FOR THE L REGISTER, 
2,16 CHARACTERS FOR THE WORD BEING EMITTED, } 
STREAM PROCEDURE DEBUGNORD( SFQsCODE»FEIL)S VALUE SEQsCODE 3 
PRT(532) = DEBUGWORD 
BEGIN 
DIeFEILS Sle LoC SEQs Sle SI#as3 DS «+ 4 CHR} 
DS « a2 LyT" *; 
SI + LOC CODE 3 
16¢ DS « 3 RESETS 3¢ IF SB THEN DS#SEY ELSE 
DS « RESET : SKIP 1 SB))3 
29(D0S © 2 LIT* * D3 
END 3 


EMITWORD PLACES THE PARAMETER, *WORD",INTO EDOC, IF 
DEBUGGING IS REQUIRED, "L" AND *WORD* ARE OUTPUT ON 
THE PRINTER FILE IN OCTAL FORMAT, i 

PROCEDURE EMITWORD CWORD)$ VALUE WORDS REAL WORDS 
PRT¢533) = FMI TWORD 


COMMENT 


BEGIN 

ADJUSTS 

If L2 4088 THEN BEGIN ERRC200)3 LeO3 END 
ELSE BEGIN 


MOVE CY »WORDs CODECL DIV 444))3 
IF DEBUGTOR THEN 
BEGIN DEBUGWORDC(B2D(L).WORDs LIND} 
WRITELINE END3 
FOULED « L «© L+#4s END 
END EMITWORD3 


COMMENT CONSTANTCLEAN !S CALLED AFTER AN UNCONDITIONAL BRANCH HAS 
BEEN EMITTED. IF ANY CONSTANTS HAVE BEEN ACCUMULATED BY 
EMITNUM IN INFOrO,*)» CONSTANTCLEAN WILL FIX THE CHAIN 
OF CeRELATIVE OPDC § LEFT BY EMITNUM, TF CmRELATIVE 


ADDRESSING IS IMPOSSIBLE (1,E, THE ADDRESS 


IF GREATER THAN 127 WORDS) THEN THE CONSTANT ALONG WITH 


THE 49ST LINK OF THE OPDC CHAIN IS ENTERED IN INFO, 


30 1S 


04120300 
04120400 
04120500 
04121000 
04122000 
04123000 
04424000 
04125000 


19 LONG 


04126000 
04127000 
04428000 
04429000 
04430000 


04431000 
04432000 
04133000 
04134000 
04435000 
04136000 
04137000 
04438000 


04139000 
04440000 
04441000 
04442000 


04443000 
04144000 
04145000 
04146000 
04447000 
04448000 
04449000 
04450000 
04151000 
04152000 


04153000 
04154000 
04155000 
04486000 
04157000 
04488000 
04159000 


Se ee 


tat tt st 


44-4 


AAAs 


Se ee Bee ee ee ee 


00304000610 
00301000782 
00308000884 
00308004113 
00308001291 
00301004582 
00301004512 
00308003582 
NEXT SEG 


000310265!2 
000310265!2 
00031026532 
0003102652 
00033026532 


0003!0265!t2 
00033026610 
00031026712 
00031026713 
00031026733 
0003#026913 
000380270184 
00031027183 


00038027183 
000380271383 
00031027183 
00031027183 


00031027183 
00033027133 
00038027213 
00031027512 
00038027712 
00037028210 
00033028234 
000380265I92 
00031099513 
00032029782 


00031029783 
00038020783 
00038029783 
000318099783 
00038029733 
0003!02097%3 


00038029733 


3 


AT PURGE TIME THE REMAINING OPDC S ARE EMITTED WITH 
F @RELATIVE ADDRESSING AND CODE EMITTED To STORE THE 


CONSTANTS INTO THE PROPER FeRELATIVE CELLS, 


PROCEDURE CONSTANTCLEAN 3 


IF MRCLEAN THEN 
BEGIN 
INTEGER Jo TEMPL ene LINKS 


PRTC534) = «SEGMFNT NESCRIPTOR*® 


STACK eF42) 
STACK¢F 43) 
STACK¢F 44) 
STACK EF 45) 


STACKCF +6) 


a LINK 


= CREL 


BOOLEAN CREL3 


LABEL ALLTHU 3 
FOR J © 4 STEP 2 UNTIL LASTENTRY 00 
BEGIN 
ADJUSTS TEMPLeL3 LeINFOLO,255"Jei J) 
CREL « FALSE 
DO BEGIN 
IF DecTEMPL#L43)01V 42128 THEN 
1F MODE ¥ O THEN 


BEGIN FULAG(50)3 GO TO ALLTHU END3 
LINKeGETCL)3 
cRel ¢« TRUES 
1F MODE # O THEN EMITVCD4768) ELSE 
FMITVCREALCTEMPL22048)x1024¢TEMPL Orv a)3 
END UNTIL Le LINK = 4095 }3 
ALLTHUS Lo «© TEMPLS. 
IF CREL THEN EMITWORDC INFOLOs255"y J)3 
END3 
LASTENTRY © 03 


END 3 


PRT(535) = «SEGMENT DEScREPTOR™ 


COMMENT 


EMITNUM HANDLES THE EMISSION OF CODE FOR CONSTANTS» B0TH 


EXPLICIT AND IMPLICIT: IN EVERY CASE*+EMITNUM WILL 
PRODUCE CONDE TO GET THE DESIRED CONSTANT ON TOP OF 
THE STACK, If THe NUMBER IS A LITERAL A SIMPLE LITC 
SYLLABLE IS PRODUCFDe HOWEVERsNON@LITERALS ARE KEPT 
IN THE ZERO#™TH ROW OF INFO WITH THE SYLLABLE 
POSITION,L, THE FIRST EM] TNUM ON A PARTICULAR 
CONSTANT CAUSES THE VALUES OF L AND THE CONSTANT 

TO BE STORED IN {NFOLOs*)} CNOTESITEMS ARE STORED 

IN REVERSE STARTING WITH INFOCOe25530ETC.), THEN. 
ITS THE JOR OF CONSTANTCLEAN TO EMIT THE ACTUAL 


START OF SEGMENT 


31 18 


04160000 
04161000 
04162000 
04163000 
044164000 
04165000 
04166000 


oe ee oe ee 


04167000 


04168000 
04169000 
04170000 
04171000 
04172000 
04173000 
04174000 
04175000 
04175500 
04476000 
04177000 
04178000 
04179000 
04180000 
04181000 
04182000 
04183000 
04184000 
04184500 
04185000 
04186000 
04187000 
04188000 
04189000 
04190000 


AA HANA HAHAH HH 


33 LONG. 


044191000 
04192000 
04193000 
04194000 
04195000 
04496000 
04197000 
04198000 
04499000 
04200000 
04201000 


ee 


00038029733 
00033029783 
0003!029733 
000320299733 
00031029783 
00033029830 
000380298114 


ee eee 3 


0031%000010 


003439000030 
0031#000030 
00311000030 
0031%0001:32 
00319000182 
003141000582 
00314000833 
00312000610 
003119000634 
0031#001080 
00319001183 
00342004183 
0031330039183 
00318001183 
00348004193 
003480011183 
003148004 3%2 
00318004313 
00311004680 
0031#001933 
0034:000182 
003110029231 
003141009583 
00333002810 
00343002634 


NEXT SEG 


00033030312 
000330303%2 
0003:!030332 
00032030382 
0003:0303!2 
00038030342 
00038030382 
000318030382 
00033030382 
00031030382 
00038030382 


1 


3 


STACK(F42) = N 


PRT¢536) = SEARCH 


STACK(F 43) a2 N 
STACK¢Fe4) » | 


OPDC CSEE CONSTANTCLEAN PROCEDURE FOR DETAILS) 3 


PROCEDURE EMITNUM¢ C 33 VALUE C3 REAL C3 


FOUND! 


FINISHED SEND 


COMMENT 


ALPHA PROCEDURE 


COMMENT 


REGIN LABEL FINISHEDsFOUND 3 REAL N3 


IF C,£1%37]720 THEN EMFTL¢(C) 


FLSE 


BEGIN 
FOULED « Ls 
FOR N « 1 STEP 2 UNTIL LASTENTRY DO 
IF tNFOC0,255"N}) &© ¢C THEN GO TO FOUND 3 
INFOf0,255 @LASTENTRYJ] « L3 
INFOCO2255 @LASTENTRY@ tle C 3 
EMITNC1023)3 
1F MODEsO THEN EMITOCNOP)3 
LINKTOGeFALSE3 
IF LASTENTRY «© LASTENTRY42 2 128 
BEGIN 
C « BUMPL3 
CONSTANTCLEANS 
EMITBCBrWeC,L)3 
ENp}3 
GO TO FINtSHeDs 
FMITCINFOLO2 255 #Nag))3 
LINKTOGeFALSES 
INFOCOs,255"Net]e Legs 
IF MODEsO THEN EMITOCNOP)S 
ENDS 
FMITNUM $3 


THEN 


SFARCH PFRFORMS A BINARY SEARCH ON THE COP AND WOP 
ARRAYS. GIVEN THE OPERATOR BITS SEARCH YIELOS Tur Ben 
MNEUMONIC FOR THAT OPERATOR, IF THE OPERATOR CANNOT 

RE FOUND SEARCH YIELDS BLANKS, 

NOTE! DIA»DIBsTRB ARE RETURNED AS BLANKS, 

SEARCH ¢(QsexEY)3 VALUE KEY?# ARRAY Of0)3 REAL me 5 
BEGIN LABEL L3 
GT1 AND GT2 ARE INITIALIZED ASSUMMING THAT @ {IS ORDERED 
BY ParRS CARGUMENT» FUNCTIONs ARGUMENTsFUNCTIONSETC.) 

AND THAT THE FIRST ARGUMENT 1S IN QOf4), FURTHERMORE 
THE LENGTH OF © IS 128, ; 
INTEGER Nol 3 


N ¢ 64 3 

FOR 1 ¢ 66 STEP IF QCLJ<KEY THEN N ELSE © N 
WHILE NeN DIV 2 2 4 DO 

IF Q@¢ 1! Je KEY THEN GO TO L 3 


1 +03 COMMENT ARGUMENT NOT FOUNDsSEARCHRQL1) 3 
SFARCHeQL J 41) 3 
END SEARCH 3 


04202000 
04203000 
04204000 


START OF SEGMENT 


32 1S 


04205000 
04206000 
04207000 
04207500 
04208000 
04209000 
04210000 
04211000 
04212000 
042712100 
04213000 
042914000 
04215000 
04246000 
04947000 
04238000 
042719000 
04220000 
04994000 
04222000 
04223000 
042923100 
0422a000 
04225000 


38 LONG 


04226000 
04227000 
04228000 
04929000 
04930000 
04231000 


04232000 


START OF SEGMENT 


04233000 
04234000 
04235000 
04236000 
04937000 


04238000 
04239000 
04240000 
04241000 
04242000 
04243000 
04244000 


" 


T 
T 


00031030382 
00038030382 
0003!0303!2 


PEs ESET ES YE 3 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
1 
T 
T 
T 
T 
T 
e 


ee i ee ee 


ee ee | 


00328000080 
003210002t1 
00328000382 
00321000313 
00321000410 
003210005%2 
00324001010 
00321004254 
00329004513 
00321001610 
00321004810 
00321003912 
00321002081 
00321002112 
00321002312 
00323002333 
00321002614 
00321002414 
003210025%2 
003218002614 
00321002913 
00321003312 
00321003512 
00321003582 
NEXT SEG 


00031030312 
000310303:2 
000318030332 
00030303892 
00038030332 
000348030312 


00031030382 


PEt 2 oS 3 


00331000030 
0033#0000:0 
00332000010 
00331000030 
00331000080 


00331000080 
00333000081 
00331000512 
0033t0009!2 
00338001182 
00331001183 
00335003383 


2 


3 


3 


COMMENT B20 CONVERTS THe FOUR LOW ORDER OCTAL DIGITS TO acd 


CODE 3 
ALPHA PROCEDURE B20(B)#* VALUE B3 REAL B} 
BeNneORRC 4524583) WRL 39849831R Bl 3383983I8BF 2783683) 3 
COMMENT PacK +S A STREAM PROCEDURE WHICH INSERTS THE SYLLABLE 


INTO THE FDOC ARRAY, THE SPECIFIC ELEMENT OF ENOC 
1S PRECISILY = EpoCrekL DIV 4) DIV 428ece DIV 4)M0D 128) 
SYLLABLE POSITION=(L MOD 4 )» WHERE L IS THE SYLLABLE 
NUMBER RELATIVE To THE BEGINNING OF THE SEGMENT? 
STREAM PROCEDURE PACKCWORDsPOSITION®SYLLABLE)3 
PRT(537) = PACK 
VALUE POSITION*+SYLLABLES 
BEGIN 
DreWORD 3 DI « DT#POSTTION 3 DI « DI*POSITION3 
SyeLOc SYLLABLE 4 SIe#S1463 
DSe«2 CHR $ 
FND PACK 3 


COMMENT DFRUG PRINTS OUT OBJECT CODF IF "DEBUGN® [S SETS 
PROCEDURE NEBUGCS)$ VALUE $8 REAL S3 
PRT¢5a0) = NFBUG 
REGIN REAL T13 
STACK¢Fse2) = TI 
IF SINGLTOG THEN 
WRITE CLINE sBUGsB2D(L)>» 
PRT¢541) = *LIST, LABEL, OR SEGMENT DESCRIPTOR* 
IF STREAMTOG THEN 
SEARCHCCOP®S,(42t6)) 
FLSF IF T1#2#5,64682]"1 THEN SEARCHCWOP.S,£36810)) 
FILSE WOPET?) » IF STREAMTOG THEN 
B20(S.£3696)) ELSE IF Ty"1 THEN WoPra) 
ELSE B20¢8,036!101)2B2D¢S)) 
ELSE WRITECLINE ®BUGeB2D(L)» 
PRTC(542) = *LISTs LABELs OR SEGMENT DESCRIPTOR# 
IF STREAMTOG THEN 
SEARCH(COP®S,(4236)) 
FLSF IF TiteS.¢4682)a1 THEN SEARCHCWOP)S,(36810)) 
ELSE WOPET1) » IF STREAMTOG THEN 
B2ncS,(3686)) ELSE IF Ty*#1 THEN WOPr4) 
FLSE B2N¢5,£36%101),B20¢58))3 
END DFEBUGS 


33 1S 16 LONG» NEXT SEG 3 
04245000 T 00033030332 
04746000 T 00031030382 
04247000 T 00038030332 
04948000 T 00031030382 
04968000 7 000338031132 
04266000 T 000380344%2 
04967000 T 000380341%2 
04268000 T 000340341!2 
04969000 T 00032033182 
04970000 T 0003!03;1!%2 
04971000 T 00038034132 
04272000 T 00032034132 
04273000 T 00038034270 
04274000 T 000380343!2 
04275000 T 00038033383 
04276000 T 000380344380 
04277000 Y 00032031410 
042977500 T 00032034410 
04978000 T 00031034480 

START OF SFGMENT «eueeuaeanu 34 
04278500 T 00348000030 
04279000 T 0034:0000t4 
04979500 T 00348000810 
04280000 T 003410008!2 
04280500 T 00341004014 
04281000 T 0034200452 
042681500 T 00348003982 
04782000 T 0034'0023%2 
04282500 T 0034!00e7!t2 
04283000 T 003410038690 
04283500 T 003480039!2 
04284000 T 00341000013 
04284500 T 00341004512 
042985000 T 00388004982 
042985500 T 00343005312 
042986000 YT 003410061!2 

34 1S 64 LONGse NEXT SEG 3 


COMMENT EMIT PLACES SYLLABLES INTO EDOC, CALLS DEBUG FOR 
DFBUGGING OUTPUT ON THE PRINTFRe AND CHECKS FOR SEGMENTS 
GREATER THAN 4093 SYLLABLES, 3 
PROCEDURE EMyT ¢ S ) & VALUE S$ REAL S } 
BEGIN 
IF L < 4088 THEN 
BEGIN 


LINKTOG « TRUES 


PACK(CODECL DIV 444)eL,64612)9S)3 

IF DEBUGTOG THEN DEBUGCS)3 
lelLeqs 
END ELSE 
BEGIN ERRC200)3 Lelt ENDS 

COMMENT 200 EMIT = SEGMFNT GREATER THAN 4093 SYLLABLES *} 
END EMIT 3 

COMMENT EMITN EMITS THE DrAeDIBeTRB SEQUENCE OF CODE. THE 
PREVIOUS SETTING OF THE G"H AND K#=V REGISTERS 1S COMPARED 
THE CURRENT , IF THE G*HsK=V OR BOTH ARE ALREADY SET THEN 
THE APPROLATE SYLLABLECS) ARE OMITTED 
IF 0 BITS ARE To BE TRANSFERED THEN NO SYLLABLES ARE 
EMITTED 3 

PROCEDURE EMI TDC AeBsT)3 VALUE A,BoT # INTEGER ArBeT3 


BEGIN LABEL EX]TeNORMAL3 


04288000 
042989000 
04290000 
04291000 
04292000 
04293000 
04994000 
04295000 
04996000 
04297000 
04298000 
04299000 
04300000 
04301000 
04302000 


04305000 
04306000 
04307000 
04308000 
04309000 
04310000 
043141000 
04311010 


START OF SEGMENT 


REAL Q) 
STACK¢Fs2) = Q 
IF J # 15 THEN 
BEGIN 
TF A = 33 THEN Q « 519 
ELSE IF A # 48 THEN GO TO NORMALS 
lf B = 18 THEN @ « 04256 
FLSE IF B # 33 THEN GO TO NORMALS 
EMITOCQ+197)3 COMMENT == THIS GETS OUT FIXED FIELDS 
GO TO EXITS 
END} 
NORMALS 
If T# O THEN 
BEGIN 


EMITCCCDTAL AeA) DIV 6)x512 + ¢ Ae A MOD 6)x 64 + DTA)3 


EMITCCCDIALB+B) DIV 6)x512 + (€ Be B MOD 6)x 64 + DIB)! 
EMITCTRB+6axT)3 


END EMITD 3 
EXIT! END: 
35 18 


PROCEDURE EMITIC(CE+AsB)3 VALUE FeAeBs REAL Ee Ae BI 


04311020 


04311030 
04311040 
04311050 
04311060 
04311070 
04311080 
04311090 
04311100 
04311110 
04311120 
04312000 
04343000 
04314000 
04315000 
04346000 
04317000 
0431;8000 
04319000 
04320000 
04321000 
04322000 
04322100 


27 LONG 


04500000 


ie 


AtAtsta tH 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
r) 


T 


TT ETI Tr 


00033031410 
00031034410 
00031034480 
00031034410 
00034034480 
00031034410 
00033034513 
00031031680 
00031034782 
00031032214 
00031032414 
00031039513 
00031032583 
00031032903 
00031032983 


00031032983 
00038030983 
00031039983 
000341039913 
00032032933 
00039039983 
00031039983 
00031032983 


00351000010 


003510000180 
00358000084 
0035!000182 
00351000214 
00351000582 
00351000684 
00353000982 
00351004084 
00351004182 
00358004142 
00351004182 
003510049483 
00351004210 
00358003230 
00358004712 
00351001712 
00351002493 
00351009313 
00351002313 
0035002333 
00358002333 
00351009313 
NEXT SEG 


00038032983 


35 


3 


PRT¢543) = eMyT] 
BEGIN LABEL EX1TedS3 


INTEGER S,T1,723 
STACK¢(Fs42) 2 § 
STACK¢F43) = 1! 
STACK¢Fs4) « T2 
PROCEDURE EMrT24(F28)3 VALUE EoB3 
PRT¢5a4) # EMIT24 
REAL &3 
BOOLEAN B35 
BEGIN IF — # O THEN 
BEGIN 1F B THEN EMITOCXCH)3 END 
ELSE BEGIN GT1 © E,ADDRESS3 
IF E * E.CLASS § INTID THEN 
EMITVCGT1) 
ELSE IF € $ INTARRAYTD THEN 
EMITPAIR¢(GT191L00) ELSE 
EMITNCGT1) 
FNO 
END$ 


IF B= 0 THEN 
BEGIN EMITO1CEsFALSE)3 GO TO EXIT END3 
If STACKCT # O THEN GO TO IS3 
IF Bw 15 THEN 
BEGIN IF A # 33 THEN 
REGIN EMIT21CEs FALSE)! 
EMITCO)S EMITOCINX)3 
GO TO EXIT? 
FNOS 
IF A zs 48 THEN 
BEGIN FMITCO)3 
EMIT21CEe TRUE D3 
EMITOC197)3 
GO TO EXITS 
FND3 
GO TO 183 
ENDS 
Te B §$ 10 AND A+B = 48 THEN 
BEGIN EMITA@1¢CEeFALSED3 
EMrTL¢26B1)3 
PRT¢5459 = UN 
PRT(546) = FXP 
PRT¢547) = xX TO THE 1? 
EMITOcCLNDI3 
GO TO EXIT? 
END3 
1St Ip ¢S « (48°a=B) MOD 6948 $ 39 THEN 
BEGIN EMIT21CEsFALSE)3 
EMYTCT2e(TLeA DIV 69%51240A MOD 6)x64en7A)3 
EMITCeCAeBRi) DIV & @T141)"512464u8437)3 
GO TO FXIT3 
END} 


04501000 


START OF SEGMENT 


04502000 


04503000 


04504000 
04505000 
04506000 
04507000 
04508000 
04509000 
04521000 
04522000 
04523000 
04524000 
04525000 
04526000 


04526100 
04526200 
04527000 
04528000 
04529000 
04530000 
04531000 
04532000 
04533000 
04534000 
04535000 
04536000 
04537000 
04538000 
04539000 
04540000 
04541000 
04542000 
04543000 
04544000 


04545000 
04546000 
04547000 
04548000 
04549000 
04550000 
04551000 
04552000 
04553000 


T 


woe eee OE 


T 


ee ee ee ee) 


At AHA HH HHH A tt 


ie ee ee ee 


00038032933 
00368000030 


00361000010 


00362900010 
00361000010 
0036!0000!0 
00361000084 
0036800028; 
00361000484 
00363000680 
00361000TI2 
00363000884 
0036001090 
0036!0041%2 
00361004183 


00363001133 
0036!0042'1 
00361004434 
00363004680 
00361004681 
00361004810 
00368001983 
00361002112 
00361002133 
00363000483 
00368002210 
00361009313 
003610001, 
00361002512 
00361002513 
00361002513 
00361002610 
00361002610 
003610028ty 
00361003010 


00368003312 
00368003480 
00361003484 
00361003483 
00361003810 
003620039383 
00361004434 
00368004983 
00368005080 


36 


EMIT(O)S 
EMIT21CEeTRUEDS 
EMITD(A®4B8"B,B)3 


EXITt ENDS 


COMMENT THrS SrCTr1ON CONTAINS MISCELLANEOUS SERVICE ROUTINES! 
COMMENT STEPy AND STEPIT ARE SwORT CALLS ON TABLES 
PROCEDURE STEPIT# ELCLASS « TABLECTel41)3 

PRT¢550) 3 STEPIT 


INTEGER PROCEDURE STEPI? STEPI+ELCLASS*TABLE Cle1l41)3 
PRT(551) = STEP! 


COMMENT TAKE FETCHS A WORD FROM INFOS 
REAL PROCEDURE TAKECINDEX)$ VALUE :tNDEXS fNTEGER INDEXS 
TAKE « INFOCTNDFX,LINKRe TNDEX,LINKC]3 


COMMENT PUT PLACES A WORD INTO INFOS 
PROCEDURE PUTCWORDsINDEX)$ VALUE WORD» INDEX’ REAL WORDe INDEX 
PRT(552) = PUT 
INFOLCINDEXeLINKRe INDEXeLINKC) «© WORD; 


COMMENT FLAG FLAGS ERROR MESSAGES» COUNTS THEM AND SUPPRESS FUTURE 
ERROR MESSAGES UNTIL THE COMPILER THINKS JT HAS RECOVEREDS 
PROCEDURE FLAGCERRNUM)$ VALUF ERRNUMS INTEGER ERRNUMS 
BEGIN . 
COMMENT WRITERROR IS THE STREAM PROCEDURE WHICH ACTUALLY PRODUCES 
THE ERROR MESSAGE ON THE PRINTERS 
STREAM PROCEDURE WRITERRORCERRNUM#ACCUMeLINE sCOUNT*LSTSEQ)S 


~PRT(553) © WRITERROR 


VALUE ERRNUMsCOUNTS 
REGIN 
D1 « LINES 44(DS*2L1T" "93 COMMENT CLEAR BUFFERS 
St *#LSTSEQs S71 * Sy"8s DS «wOS3 
S! ¢ LINES OS « 2 wWDS3 
4coS «© 2 LyT "XX#)3 COMMENT SET RIGHT MARGIN FLAG} 
S} « LSTSEQS DI « LSTSEQ! DY « DIw8s DOS « WDS3 
Ol + LINES Dy « D484 COMMENT INDENT MESSAGES 
DS « 13 LIT "ERROR NUMBER "3 


36 1S 


04554000 
04555000 
04556000 
04557000 
04558000 


57 LONG 


05000000 
05001000 


- 05002000 


05003000 


05004000 
05005000 
05006000 


05007000 
05006000 


05009000 


05010000 
05011000 
05032000 
05013000 
05014000 
05015000 
05016000 


START OF SEGMENT 


05017000 
05018000 
05019000 
050200600 
05021000 
05022000 
05023000 
05024000 
05025000 


= 4a 4-4-4 


a | 


*44qaan+4—- 


ee 


0036#005030 
00361005182 
0036005210 
00362008313 
00361005383 
NEXT SEG 


00038032913 
00032039933 
0003!0329%3 


00034033251 


00034033610 
0003033830 
000310338610 


00033034480 
00031034450 


000330344:0 


00031034840 
00034034880 
00031034880 
00033034850 
00031034880 
000330348!0 
000310348!0 


AHESEEEER = y 


00371000010 
0037!0000!0 
00371000030 
00373000182 
00378000210 
00371000294 
00371000313 
OO37#O00aty 
003780005820 


3 


7 


S51 « LOC ERRNUM# DS © 3 DEC! COMMENT CONVERT ERRNUM? 
oS « 4Ltt * 2 #Y 
SI ¢ ACCUM: SIT # S14#33 DS « COUNT CHR} 
COMMENT PLACE ALPHA IN BUFFERS 
oS « LIT *,* 
END WRITERROR?3 


IF ERRORTOG THEN & DO NOTHING IF WE SUPPRESS MSSGS, 
BEGIN 
SPECTOG t= FALSE 
FRRORCOUNT tm ERRORCOUNT413 COMMENT COUNT ERRORS} 
IF NOT LISTER THEN 
BEGIN 
EDITLINECLIN®FCReL DIV Seb. f4682) »MEDIUM,OD) 
MOVEC1,INFOLCLASTSEQROWSLASTSEQUENCE JeLINEO12)93 
IF NOHFANING THEN DATIMES WRITELINES 
END} 
COMMENT PRINT CARDIMAGE JF WE ARE NOT LYSTINGS 
ACCUML1) « Q3 COMMENT RESTORE ACCUMULATORS 
WRITERRORCERRNUM,ACCUME 1 Je LING#)0Q,F1296] 6 
INFOPLASTSFOROWSLASTSEQUENCE})3 
IF NOT NOHEADING THEN WRITEFLINE 3 
FRRORTOG « FALSE COMMENT INHIBIT MESSAGES? 
1F PUNCHTOG THEN 
BEGIN REAL T1,T2eT3eT43 LABEL Le Lie EXITS 
PRT(554) «= *SEGMFNT DESCRYIPTOR* 


STACK¢F42) @ Ti 
STACK¢Fa3) 3 T2 
STACK¢F 44) = T3 
STACK¢F45) = Ta 
STREAM PROCEDURE PiCLeP)# VALUE P3 
PRT(555) = PI 
BEGIN DI « L$ 15¢D0SeBLIT" ")3 
SI] ¢ LOC P3 DIeLs SyeSI+53 SKIP 3 SBI 
5 
COSe+3 ReSeT:3ctF SR THEN DS«SrT ELSF DS*RESETSSKIP 1 SB))3 
SleP3 
DleN1+23 2¢8 
COS¢3 ReSFTs3CtF SB THEN DSeSrT ELSF DS#RESETISKIP 1 SB))3 
DSeLIT™ ") ENDS 


STREAM PROCEDURE PocleP)? VALUE P3 
PRT¢556) = P2 
BEGIN DIleLs OL #eDLo2630SeL ITO; 
SteP} SreSrt=23 SKIP 1Sp3 


3 
(OSe¢3 RrSeTs3ctF SBR THEN DS#SrT ELSr pSeRESFTSSKIP 1 SB))3 
ENDS 


05026000 
05027000 
05026000 
05029000 
05030000 
05031000 


05032000 


05033000 
05034000 
05035000 
05036000 
05037000 
05038000 
05039500 
05039600 
05041000 
05042000 
05043000 
05044000 
05045000 
05046000 
05047000 
05048000 
05049000 


START OF SEGMENT 


05050000 


05051000 
05052000 
05053000 
05054000 
05055000 
05056000 
05057000 
05058000 


05059000 


05060000 
05061000 
05062000 
05063000 
05064000 


++ a 


ee i ee ee ee | 


Wie he me 


~ 


| a tame mt 


_— 


444-44 


00373000732 
00371000713 
00371000810 
0037!80009t2 
003780009%2 
00378000983 


0037180070!0 
003730010!0 
0037800;084 
00373001183 
00371001281 
0037100143!2 
00374004383 
00373004782 
00371004943 
00378003482 
003710031482 
00371003132 
00378003210 
00371003484 
00373003680 
0037:800471%2 
00378004880 
003718004684 


00383000080 


00384000010 
00388000210 
0038180003!2 
0038:000312 
00383000533 
0036000610 
0036t000611 
00388000912 


00364001080 


00381001080 
00381004210 
00384004204 
00381001284 
00381001593 


38 


REAL STREAM PROCEDURE ABS(A)3 VALUE A$ 
PRT(557) = ABS 
BEGIN DI * LOC ABS} Sy eas DSe WOSsDlepl#8s DSeRESET END? 


STREAM PROCEDURE BITEDUSTCXeNeTDeLINEs COUNT) VALUE IDeNe COUNTS 
PRT¢560) = AITENUST 
BEGIN LOCAL TeFotH? 
DreLOC Fs STeLINES OSewOSspeFs 
SI*#LOC 1D3ST+SI428DSe 6CHRS S7CDSe> LIT™ #93 
S1 « LOC COUNT sSyeS148 3 
Dr «LOC H 3 OS eWDS 3 
DI « LOC LINE 3 Sy @ HI 
Ste#LOC XsSKTP 2 SB3 
Ie SB THEN 
BEGIN Stexs TeSr 
NC 
DreLOC F% STeLINES DS#WOSSHIe+F3 
Ste LOC COUNTS Sresy463 


4 
CDOSe3 RESFETS3CIF SB THEN DSeSeT ELSE DSeRESETISKIP 1 SB))3 
OSe2 LIT* 3 SyeCOUNTS SteST+4BsSCOUNTSST3 

SteT} 

6¢2(8 
(OSe3 RESETS3CIF SB THEN DSeSET ELSE DSeRESETSSKIP 1 SB))3 
DSe LIT™ "93 OSeLIT* * 93 

. Dr « LOC LINE 3 Sy © SB 
SleTsSreSfedBsTeSTISEND ENDS 


BITEDUSTCERRORCOUNTs 63 ,”PRT WeLINEe 2193 


FOR Tie O STEP 1 UNTIL 3190 BITEDUSTCINFOL Tis*]e43e"INFO “eLINE,O)S 


BITEDUST¢ ELBATE*)213,"ELBAT “,LINEeO)3 
BrTEDUSTCSTACKHEADE *) 524 s"STHEAD*sLINEs 093 
TreMKABSCERRNUMI @q3 T34TLS 
ut TasABS¢(T3)3 
IF 72.033815)=0 THEN BEGIN T3eT2,(186815)3 
IF T1380 THEN GO TO EXIT ELSE GO TO L END 3 
T4 © IF 12,033815) < 512 THEN O ELSE T2,0633815}8T2730810!2)3 
LitPYCLINCOJ+TIIZIF TieT3 THEN BEGIN IF T#0 THEN P2CLINCO],T4)3 
TreTi743 
WRYTELINED 
T3+T2,0188157360 TO LENDS 
TiseTi™is WRITELINES 
GO TO Lis 
EXIT? END 3 


PRT(561) = #SEGMENT DESCRIPTOR* 


END END FLAG} 


05065000 
05066000 


05067000 


05068000 
05069000 
05070000 
05071000 
05071100 
05071200 
05072000 
05073000 
05074000 
05075000 
05076000 
05077000 
05078000 
05079000 
05080000 
05084000 
05082000 
05083000 
05084000 
05085000 
05086000 


05087000 
05088000 
05089000 
05090000 
05093000 
05092000 
05093000 
05094000 
05095000 
05096000 
05097000 
05097500 
05098000 
05099000 
05099100 
05100000 


~ 


mt tt me a ta a st Ht 


SS ee 


106 LONGs 


05101000 


T 


NEXT SEG 


00388004583 
00368004583 


00383001830 


00381003810 
003810019!t2 
00381002030 
003818002133 
00381002280 
0038:000214 
003810093! 
00383002333 
00361002410 
00388002582 
00381002680 
003883002782 
00388002733 
0038:002a733 
00381003084 
00388003193 
0038003210 
00381003281 
003810035!2 
00381003681 
003810037%2 


0036300361 
003880041193 
00381004983 
0038#0052%14 
003610055!3 
0038:0058!; 
003610060%1 
00364006353 
00363006513 
0038!007080 
00388007630 
0036:0077%2 
00381009112 
003880093!2 
0038104,04%14 
003690105%2 


00371005010 


$33 LONG» NEXT SEG 


37 


LABEL ENDOFITALLy 
COMMENT FRReIS THF SAME AS FLAG EXCEPT THAT IT MAKES AN ATTEMPT TO 
. RECOVER FROM ERROR SITUATIONS BY SEARCHING FOR A 
SEMICOLON» ENDe OR BEGIN 
PROCEDURE ERRCERRNUM)S VALUE ERRNUM!? INTEGER FRRNUMS 
BEGIN FLAGCERRNUM)3 
Te I"t3 
IF ERRNUM = 200 THEN I t= 1/03 & SEGMENT TOO LARGE, 
IF ERRNUM » 611 THEN I t= 1/03 % ERRMAX EXCEEDED, 
DO IF STEP} = BEGINV THEN STMT UNTIL 
ELCLASS = ENDV OR ELCLASS = SEMICOLON END FRR} 


DEFINE ERROR #» ERR#3 COMMENT FRROR IS A SYNONM FOR ERR? 
COMMENT CHECKER [S A SMALL PROCEDURE THAT CHECKS TO SEE THAT THE 
UPLEVEL ADDRESSING CONVENTIONS ARE OBEYED} 
PROCEDURE CHECKERCELBATWORD)$ VALUE ELBATWORDS REAL ELBATWORDS 
PRT¢562) = CHECKER 
BEGIN 
1F MODE 2 2 THEN 
IF GT1 + ELBATWORD,LVL 2 FRSTLEVEL THEN 
IF GT1 < SUBLEVEL THEN 
IF ELBATWORD, (932) # 4 
THEN BEGIN FLAGC101)3 FRRORTOG « TRUE END 
END CHECKERS 


COMMENT GIT 1S USED TO OBTAIN THE INDEX TO ADDITIONAL INFORMATION 
GIVEN THE LINK TO THE ELBAT WORD3 
INTEGER PROCEDURE GITCL)3 VALUE LS REAL UL? 
GIT + TAKECLO.INCR#L LINKS 


COMMENT GNAT IS USED TO OBTAIN THE PRT ADDRESS OF A GIVEN DESCRIPTOR, 
IF THE ADDRESS HAS NOT BEEN ASSIGNED» THEN IT USES 
GETSPACE TO OBTAIN THF PRT ADDRESSS 

INTEGER PROCEDURE GNAT(L)3 VALUE LS REAL L} 
BEGIN 
REAL AS 


STACK(F43) = A 
IF GNAT «#(AeTAKE(L)),ADDRESS#0 
THEN PUTCARCGNATISGETSPACECTRUE*L LINK+!) L1683789 4) eL) 
END GNATS 


REAL PROCEDURE TAKEFRSTS 
PRT(563) = TAKEFRST 


05101100 
05102000 
05703000 
05104000 
05105000 
05106000 
05107000 
05107100 
05107200 
05106000 
05109000 


05410000 
05111000 
05112000 
05113000 


05114000 
05115000 
05116000 
05117000 
05118000 
05119000 
05120000 


05121000 
05122000 
05123000 
05124000 


05125000 
05126000 
05127000 
05428000 
05129000 
05130000 


START OF SEGMENT 


03131000 
05132000 
05133000 


10 LONG 


05188000 


tO met at 


ee en ee) 


SS 


4 


T 


00032034810 
0003!0346!0 
00033034880 


00033034810 


00031034830 
0003#0346t0 
00038034983 
00034035132 
00033035333 
00033035630 
000310356:0 


00031036084 
00031036084 
00031036084 
00034036084 


000398036084 
00031036084 
00031036483 
00031036430 
00031036512 
00033036604 
00038036932 


00031036912 
00031036912 
00031036912 
00033036982 


00031037512 
000380375t2 
00038037582 
000340375392 
00033037582 
00031037512 


cake eee 3 


00391000010 
00398000280 
00398000732 
NEXT SEG 


00030375382 


9 


3 


PRT¢564) = STUFFF 


PRT(565) # LOCAL 


PRT(566) = PASSFO 


TAKEFRST « TAKECELBATrIJLINKSELBATCLI,INCR)3 


COMMENT STUFFF DIALS THE FeReGrSTER INTO THE FRREGISTER FIELD OF A 


DESCRIPTOR, 
STACK3 


THE DESCRIPTOR REMAINS ON THE TOP OF THE 


PROCEDURE STUFFFCADDRESS)$ VALUE ADDRESSS INTEGER ADORESS? 


COMMENT 


COMMENT PASSFORMAT COMPILES CODE THAT PASSES A FORMAT, 


BEGIN 


EMITPAIRCADDRESSsLOD)3 
EMITN¢542)3 


_EM 


1T0¢33418.15) END STUFFEF3 


LOCAL 1S USED TO SEE WHETHER OR NOT A LABEL IS LOCAL TO OUR 
PRESENT CODES 


BOOLEAN PROCEDURE LOCALCELBATWORD)3 


VALUE ELBATWORDs REAL ELBATWORD3 
BEGIN (tF ELBATWORD.LVL # LEVEL AND 
NOT BOOLEANCELBATWORD,FORMAL) THEN 


LOCAL « TRUE END 


PASSED = THE 


STARTING INDEX, 


PROCEDURE PASSFORMATS 


RMAT 


STACK¢Fe2) = ADRES 


COMMENT 


LOCALS 


TWO ITEMS ARE 
ARRAY REFERENCING FORMAT TABLE AND THE 
THE ROUTINE HANDLES SUPERFORMATS ALSO} 


BEGIN INTEGER ADRESS 


CHECKERCELBATEII)3 
ADRES «# ELBATCI], ADDRESS; 
IF BOOLEANCELBATCI)«F ORMAL) 
THEN BEGIN EMITVCADRES)$ ADRES « ADRES#@4 END 
ELSE BEGIN 
IF TABLECI) = SUPERFRMTID 


END3 


THEN EMITLCTAKEFRST) ELSE EMI TLCELBATCIJ, NCR) 


IF TABLECI) » SUPERFRMTID 


THEN BEGIN 


BaNAs I « 143 


EMITOCSSP)3 EMITOCADD)S EMITVCADRES) ENDS 


EMITPATI 


RcADRES»LOD) END PASSFORMATS 


STREAMWORDS EITHER RESERVFS OR UNRESERVES STREAM RESERVED 


WORDS = IT COMPLEMENTS THEIR STATES 


05489000 


05196000 
05197000 
051968000 
05199000 


05200000 
05201000 
05202000 
05203000 


05204000 
05205000 
05206000 


05207000 
05208000 
05209000 
05210000 


05211000 
05212000 
05213000 
05214000 


05215000 


START OF SEGMENT 


40 18 


05216000 
05217000 
05218000 
05219000 
05220000 
035221000 
05222000 
05223000 
05224000 
05225000 
05226000 
05227000 


21 LONG 


05228000 


Se i ee | 


4 Aaa 


eee | 


T 


eee HH ERY 


000380375%t2 


0003203814 %2 
00031038182 
00031038412 
000310384!2 


000380384!2 
00031038412 
00031038312 
00033038383 


000380385%2 
00038038512 
000310385382 


000380386512 
00031036512 
00031038732 
00032038834 


000310392!0 
00031039200 
0003!0392!0 
00032039210 


00031039210 


00408000010 
004080004!2 
00a0t0002I4 
00402000284 
00401000610 
00401000681 
00404000712 
00403001010 
004080034182 
00401004210 
008080014484 
0040100;712 
NEXT SEG 


00031039210 


0529299000 T 00031039210 


40 


3 


PROCEDURE STREAMWORDSS 
PRT¢567) = STREAMWORDS 

BEGIN GT1 « O83 

DO BEGIN 
INFOCLeGTiJ LINKeSTACKHEADCGT2e¢TeINFOC1*GT1) 2, ADDRESS)? 
STACKHEAD(GT21 « T,LINKS 
GTy « GT1+93 

END UNTIL BOOLEANCT. FORMAL) END STREAMWORDS3 


PROCEDURE PROGNFSCALORCPRTADRsSAVeSIZEs TYPE) 3 
VALUE PRTADReSAVeSIZES TYPES 
INTEGER PRTADRs«sSIZEsTYPES BOOLEAN SAVS 
BEGIN PRTADRePRTADR, (3881073 
te SAV THEN BEGIN PRTfFPRTADR) « ¢ IF TYPE & LDES 
THEN SIZE FLSE CORADR) 
RSTZEPBEZBs1,OJRTYPELLE438SIR3 68468273 
TF TYPE#LNES THEN CORADR«CORADR4SIZE3 
END 
FLSE BEGIN PRTCPRTIADRIJ¢O&D1SKADRE18233815)8S1ZF(8% 38810) 
STYPEL184325981 (62461273 
DISKADRe (CSIZE+29) DIV 304¢D1SKADRI 
ENDS 
END PROGDESCBLOR? 


COMMENT DOTSYNTAX ANALYSES THE SYNTAX OF A PARTIAL WORD DESIGNATOR, 
IT REPORTS IF AN FRROR 1S FOUND, IT RETURNS WITH THE 
LITERALS INVOLVFOS 

BOOLEAN PROCEDURE DOTSYNTAXCFIRST»SECOND)3 

PRT¢570) s nOTSYNTAX 
INTEGER FIRST»SFCOND! 
BEGIN 
LABEL EXIT3 


If STEPI = FLELOID THEN & GET INFO FROM INFO w112« 
BEGIN "112° 
FIRST t# ELBATFIJ,SBITFS Zi12° 
SECOND ts FLBATCIJeNBITF? £1128 

GO TO EXrTs Ziie2- 

END £1129 
ELSE ¥il2= 
IF ELCLASS # LFTBRKET THEN £1129 
IF STEPT # FIELDID THEN Siiee 
BEGIN Z112= 

FIRST s= ELBATCI),SBITFS #1120 


05730000 


05231000 
05232000 
05233000 
05234000 
05235000 
05236000 


05237000 
05238000 
05239000 
05240000 
05241000 
05242000 
05243000 
05244000 
05245000 
05246000 
05247000 
05247500 
05248000 
05248500 
05249000 
05250000 
05251000 
05282000 
05253000 
05254000 
05254500 
05255000 


05267000 
05268000 
05269000 
05270000 


05271000 
05272000 
05273000 


START OF SEGMENT 


05273100 
05273200 
05273300 
05273400 
05273500 
05273600 
05273700 
05273800 
05273900 
05274000 
05274100 


me ne ast a ts sat st st os ee | 


444-4 


OVHAIaroaonoonoo «ek aaa 


0003039210 


00038039210 
00038039383 
00031039410 
0003039884 
00031040133 
00038040332 


0003180804631 
00038040433 
00033040414 
00033040484 
000398040404 
00033040411 
00038080434 
00038040414 
00038080484 
00031040481 
0003:040434 
00039040414 
000320406:0 
00031040810 
00031043080 
00031044383 
00032044610 
000380414630 
00031044983 
00038042210 
00038040480 
000380420480 


00031042484 
00031042484 
000380ap4a%4 
000310424084 


0003t0a2484 
0003t042a84 
00031042481 


rTuriii i) a S| 


00411000010 
0041#0001!2 
0041!000183 
00411000382 
004180005t2 
00448000513 
00441000513 
00418000513 
004142000684 
00441000810 
004110008%4 


COMMENT IF TEST 


SECOND t® E€LBATCII.NBITFS i122 

IF STEPL # RTBRKET THEN 112 

GO To EX1T3 Z112° 

END Z1i12° 
ELSE Zii2 
IF FLCLASS # LYTNO THEN %112° 


IF STEP? = COLON THEN 

1F STEP? = LYTNO THEN 

IF STEP? = RTBRKET THEN 

COMMENT IF TESTS ARE PASSED THEN SYNTAX 1S CORRECTS 

IF CFIRST « ELBATC1*3)],ADDRESS) x 
CSECOND « FLBATOCI*=1],A0DRESS)#40 THEN 

IF FIRST + SECOND § 48 THEN 

S ARE PASSED THEN RANGES OF LITERALS ARE 0,4K,3 
GO TO EX4T? 


ERRO114)3 


COMMENT ERROR IF SYNTAX OR RANGE FAILS3 


DOTSYNTAX « TRUES EXITI! END DOTSYNTAX? 


ROOLEAN PROCEDURE RANGECLOWER, UPPER) S$ 


PRT(571) © RANGE 


PRT¢572) = GETSYL 


VALUE LOWER,UPPER; 

REAL LOWER,UPPER? 

COMMENT RANGE TESTS THE CLASS OF THE ITEM IN ELBATEI] TO SEF IF 
1T tS GREATER THAN OR FQUAL TO LOWER OR LESS THAN OR FQUAL TO 


IPPFR AND SETS RANGE TO TRUE OR FALSF ACCORDINGLY. 


THE tTEMS 


CLASS MUST Be IN ELCLASS3 
RANGEeELCLASS 2 LOWER AND ELCLASS ¢ UPPERS 


COMMENT GET OBTAINS A SYLLABLE FROM EDOC,s 


EmITTEDS 
INTEGER PROCEDURE GETCL2# VALUE LF REAL L3 


BEGIN 


THE ARRAY INTO WHICH CODE 18 


INTEGER STREAM PROCEDURE GETSYLCWeS)3 VALUE S3 


BEGIN DI « LOC GETSYLS DI © DI463 
Sy ¢ WE Sy » SysS3 S] © Sy#St DS © 2 CHR ENDS 


a4 


1S 


05274200 
05274300 
05274400 
05274500 
05274600 
05275000 
05276000 
05277000 
05278000 
05279000 
05280000 
05281000 
05282000 
05283000 
05284000 
052865000 
05286000 


32 LONG 


05287000 
05286000 
05289000 
05290000 
05291000 
05292000 
05293000 
05294000 
05295000 
05296000 
05297000 


05296000 
05299000 
05300000 
05301000 
05302000 
05303000 
05304000 


05305000 
05306000 
05307000 
05308000 
05309000 


START OF SEGMENT 


05310000 
05311000 


C 
Cc 
C 
Cc 
C 
P 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
, 


Se 


T 
T 
T 
T 
T 
* 


T 
T 


AAA Mat 


00411001084 
0041!00432!0 
0044!0043!2 
00441004383 
00411004333 
00414004393 
00418001582 
00411001681 
00411004830 
00411003913 
00414001993 
00414009230 
00441009582 
004141009712 
00414002782 
00411009733 
00448000880 
NEXT SEG 


3 


00031040484. 


000310a2414 
00031082414 
00031040484 
000310a2Gt4 
00031002413 
00031042404 
00031042414 
00031002483 
00038042414 
00031002484 


00038042484 
00038042434 
00031082084 
00031042484 
00031042484 
00038042414 
000380g2a84 


000381Q4aa9I9 
0003104q29!2 
0003t04a9!2 
O00310aa9I2 
00031042982 


eee eke eee 4 


00421000010 
00421000034 


2 


COMMENT 


GFT+GETSYLCCODEC L DIV 4¢4)0L,£4692))3 END GETS 


CALL SWITCH PERFORMS THE FINAL MESS OF GETTING A PROPER nfre 
SCRIPTOR TO THE TOP OF THE STACK3 


PROCEDURE CALLSWITCHCH)3 VALUE H3 REAL H3 


PRT¢573) = CALLSWITCH 


BEGIN EMITVCGNATCH))3 EMITOCPRTE)3 EMITOCLOD) END CALLSWITCH? 


PROCEDURF WRITERRT(PORSsNsGS)3 VALUF PORS»NsGS3 INTEGER PORS»NeGS3 


PRTC574) © wRITFPRT 
BEGIN 


LABFL FXIT3 


STREAM PROCEDURE FILLITCLEN»PORS»CELLsNoID)3 


PRT¢575) © FILLIT 


VALUE PORS»CELL.N3 
BEGIN 
LOCAL COUNT} 
LABEL MOeM{e>M2eM3pM4,M5eMO,M7—XITI 
SrtzLOc PORSS SitwS1433 DIteLINs & "PRT* OR "STACK", 
1F Sc2"P* THEN 

BEGIN DSt23 CHRS NStabLyT*c"s END 
FLSE BEGIN 

DSts5 CHR} OStanrT"c™s SPswLOC CELLI SyptaS[e53 

IF Sc2"6" THEN nSta2 LIT*Fe" ELSe DStao LITE S3 

COUNTS aDI3 OpteLOc CELLS Dited]ea3 

OStey1 RESETS DyteCOUNTs 

END3 
SytsLOC CELLS SIteSi4+4s TALLY2 243 & LOCATION, 
3CIF Scm"0" THEN & DONT PRINT LEADING ZEROES, 

BEGIN STfeSit41s TaALLYteTALLY463 END ELSE JUMP OUT)3 
COUNTIRTALLYS DSteCOUNT CHR TALLY!#08 COUNTS TALLY? 
OStad LIT") = "3 CELL IaDIS Z SAVE OUR PLACE, 
Créacyt4Ne 
GO MO} 

GO Mg) 
GO M23 
GO M33 
GO M4) 
GO M53 
GO M6} 


05312000 T 
42 1S 12 LONGe 


05343000 
05314000 
05315000 


4a wa 


05316000 


05317000 
05318000 
05339000 
05320000 
05321000 
05322000 
05323000 
05324000 
05325000 
05325010 


AHN 


05325020 
05325030 
START OF SEGMENT 
05325040 


05325050 
05325060 
05325070 
05325080 
05325090 
05325100 
053251140 
05325120 
05325130 
05325140 
053295150 
05325160 
05325170 
05325180 
05325190 
05325200 
05325210 
05325220 
05325230 
05325240 
05325250 
05325260 
05325270 
05325280 
05325290 
05325300 


AHH HH tA tt tt 


00428000312 
NEXT SEG 


000380429980 
00033042922 
00033042932 


00038042912 


00031043382 
00031043312 
00031043312 
00031043389 
00031043382 
000310433!2 
000310433I2 
00033043382 
00038043312 
00031043312 


0003'0433!2 
00038043302 


Te rir ttt 4 


004380000:0 


0043!000030 
00431000030 
0043:80000:0 
00431000010 
00432000030 
004318000081 
00438000182 
00438000284 
00438000234 
004380004180 
00438000583 
00431000681 
00438000732 
0043!:0007:2 
004310007383 
00438000834 
004318004112 
00433004230 
00431001382 
00438004333 
00431004480 
00431003410 
00438001401 
00431004484 
0043100;5t2 
00431003582 


3 


3 


MO$ 


Mit 
M2?! 


M33 

M4} 
PRT¢576) 2 #LISTs LABEL, 

M53 
PRT(S5S77) = *LIST, LABEL, 

M6t 
PRT(600) = «LYST, LABEL, 

M7e 
PRT(601) = «LIST, LABEL, 

XUT3 


PRTC602) = *LISTs LABEL, 


GO M73 
StterO3; SreeSyp+2s DysaeLOc cOUNTS 
DT2e2DTe73 NStacHRs DrtaCEbLLs OStsecOUNT CHR?3 
GO XT} 
DIPeCELLs O0Ste19 LIT#*TEMPORARY STORAGE*"! GO XIT3 
DIteCELL3 
ONS3236 LIT**LIST,» LABEL» OR SEGMENT DESCRIPTOR#*®"3 GO XIT; 
DIteCELLI OSte27 LITW*CASE STATEMENT DESCRIPTOR#"$ GO xITS 
ONrseCELLs DStey9 LIT*eeORMAT DESCRIPTOR*"3 GO XIT3 
OR SEGMENT DESCRIPTOR*® 
DrisCELL3 OS!#e24 LIT@*OUTER BLOCK DESCRIPTOR*®"™3 GO XIT3 
OR SEGMENT DESCRIPTOR* 
DIt2CELL? OHSt#20 LIT**SEGMFNT DESCRIPTOR#*3$ GO XIT3 
OR SEGMENT DESCRIPTOR* 
DrteCELL) OSt=218 LyT#*L ABEL DESCRYIPTOR«*? 
OR SEGMENT DESCRIPTOR* 


END FILLITS 
OR SEGMENT DESCRIPTOR*® 


BLANKETCY4e LIN) 
IF Net THEN FILLITCLINePORS»GS,0s,ACCUMI19) 
ELSE IF N>y THEN FILLITCLINsPORS»GS,OeTNFOCNeLINKRON,LINKC)) 
FLSE FILLITCLIN»PORSs GS» ABS(N)0ND3 
IF NOWFADING THEN DATIMES WRITELINE? 
END WRYITEPRT3 


COMMENT 


GETSPACE MAKES ASSIGNMENTS TO VARIABLES AND DESCRIPTORS IN 
THE STACK AND PRT, PERMANENT TELLS WHETWER IT IS A 
PERMANENTLY ASSIGNED CELL CALWAYS IN PRT) OR NOT, NON 


PeRMANENY CELLS ARE EYTHER IN STACK OR PRT ACCORDING TO 


MODE. CARE 1S TAKEN TO REUSE NON PERMANENT PRT CFLLS3 


INTEGER PROCEDURE GETSPACE¢PERMANENTsL2# VALUE PERMANENToL3 


PRT(603) = NOIT 


STACK¢Fs43) = M 


BOOLEAN PERMANENTS INTEGER L3 


BEGIN LABFL Lish2eEX1Ts 
STREAM PROCEDURE DOITCCrAsteS)3 VALUE CeA3 


BEGIN LOCAL NI 
DreSs DSe8 LIT” “3s SpeSs DSe9 WOS3 
Srels SfeSl+#2} DleLOC NS DleDI+73 DSeCHRI 
OreSs SteLOC C3 2¢DSe4 DEC) 
Srel3 SyeS1#33 nSeN CHR} 
ENDS 


BOOLEAN MeQ@} 


43 1S 


05325310 
05325320 
05325330 
05325340 
05325350 
05325360 
03325370 
05325380 
05325390 


05325400 
05325410 
05325420 


05325430 
05325440 


05325450 
05325460 
05325470 
05325480 
05325490 
05325500 


80 LONG 


05326000 
05327000 
05328000 
05329000 
05330000 
05331000 
05333000 
05334000 


START OF SEGMENT 


05334100 


05334200 
05334300 
05334400 
035334500 
05334600 
05334700 


05343000 


ee | Se ee ee ee ee ee 


a 


ee 


SeSHEEEEE 


00433001533 
004340015183 
00438001681 
00438003810 
00431004810 
00438002210 
00431002382 
004310028:0 
004310033!2 


00438003782 
00631004123 
004390045! 2 


00431004831 
004380048! 


004348004982 
00438005142 
00438005583 
00433006312 
00438006783 
0043810079820 
NEXT SEG 


00031043312 
00033043332 
00031043312 
00038043382 
00031043382 
00038063382 
000310433%2 
00031043319 


00448000010 


0044100000 
00448000010 
00444000210 
00441000312 
00048000484 
00443000533 


004480005! 3 


3 


44 


STACK(F 44) 


STACK¢F 45) 
STACK¢F 46) 
STACK(Fs7) 


INTEGER ROWsCOL,GS3 


TF NOTCSTREAMTOG AND (LEVEL>2)) THEN 
re STFPreRELOP THEN 


Lat 


EX 73 


REGIN 
IF STEP T>IDMAX 
THEN 
BEGIN 
IF ELCLASS#ApOP 
THEN 
IF ELBATCI],ADDRESS*SUBOP 
THEN GSeFZERO ELSE GS+512 
ELSE 
BEGIN GSeOS yey*d ENDS 
IF STePr#LITNO THEN FLAGC51)3 
IF ELBATEIJADDRESS2512 THEN GS«1024) 
GSeGSsELBATF1), ADDRESS 
END 
ELSE 
BEGIN 
GSe+ELBATLCIJ,ADDRESS3 
tF GS#O THEN FLAGC51)3 
IF GS2FZERO AND GS£1023 THEN GSeGS3 
1F STEPI#ADOP THEN JLerwt ELSE 
REGIN 
STEPIT3 
GSeFLBATETI,ADDRESS+ 
CIF EFLBATECI71),ADDRESS#SUBOP 
THEN "6S ELSE +65)3 
ENDS 
65eABS¢GS)3 
END? Q¢G5<512 OR GS>10233 
GO TO EXIT 
FND ELSE [el=43 
1F MODE # O OR PERMANENT 
THEN BEGIN | 
IF PRTIMAX > 1093 THEN FLAGC(148)3 
IF ASTOG THEN FLAG(505)3 
PRTY « 
PRTIMAXe(GSePRT MAX) 443 
Ie STUFFTOG THEN TF (MeCLEVEL at AND KLASSF>19)) OR 
CLEVEL23 AND ELBATrI).CLASSaLABELID) THEN BEGIN 
IF NOT M THEN 
DOITCLABELID.,GS,INFOCCELBATCIJ)eLINKRe» 
CELBATCIJ,LINKC+1id)]*¢TWXALO)) ELSE 
DOLTCKLASSFeGSoINFOLCLASTINFOst) .LINKRe CLASTINFOS) DL INKC) 
oTWXALOJ)I «= WRITECSTUFFo10eTWXAC#)) ENDS END 
ELSE BEGIN 
If STACKCTR > 767 THEN FLAGC149)3 
STACKCTR © (6S « STACKCTRI+13 Q « FALSE 
GO TO EXIT ENDS 
IF GS 2 512 THEN GS « G$410243 
Q « TRUE3 
GETSPACE « 6S! 
TF GS2NESTCTR AND GSeFZERO THEN NESTCTReGS413 


05344000 


05344400 
05344500 
05344510 
05344520 
05344530 
05344540 
053445530 
05344560 
05344570 
0534456 
05344590 
05344600 
05344610 
03344615 
05344620 
05344630 
05344640 
05344650 
05344660 
05344661 
05344662 
05344670 
05344680 
05344690 
05344700 
05344710 
05344720 
05344730 
05344740 
05344780 
05344760 
05344770 
05345000 
05346000 
05347000 
05348000 
05349000 
05350000 
05350100 
05350120 
05350440 
05350160 
05350180 
05380200 
03350300 
05369000 
05370000 
05371000 
05372000 
05373000 
05374000 
05375000 
05375100 


AANA HH HWM HH HH HHH Ot A HH tA Ht A TAT tt st 


00448000533 


00441000583 
00448000783 
00443000982 
00448000983 
0044t004,080 
00441004034 
00441004142 
00441004182 
004418004183 
004410043182 
00441001533 
00441001610 
004410016814 
004480021182 
004410093183 
00448002430 
00441002513 
004428009533 
0044:002086:80 
00448009983 
00441003183 
00441003434 
00441003783 
00441003810 
00498003884 
004483003933 
0044:00414!2 
00441004410 
0044%:004410 
00448004512 
00441004712 
00441004783 
00441004913 
0044:005010 
004410051382 
0044:0053%2 
00441005411 
00441005484 
00441008712 
00441006081 
00448006333 
004410064!0 
00441006712 
00442006983 
00441007410 
00443007983 
00441008030 
00448008210 
004418008484 
004430085382 
004418008713 
004410086810 
00441008983 


PRY¢(604) « 


STACK EF 43) 
STACK¢F 44) 
STACK(F 45) 
STACK (CF 46) 
STACK ¢F 47) 


PRT(605) = 


PRT(606) = 


STACK ¢F42) 


STACK eFe3) 
STACK ¢F 44) 
STACK¢Fs5) 
STACK¢F 46) 


STACKOCF47) 


STACK¢Fs10) = Q 


aaunanin 


znAazA a 


F GS > 


1 
IF PRTOG THEN WRITEPRT¢IF @ THEN "PRT 


1923 THEN GS «+ GS"10243 
* ELSE "STACK"sbeB20¢GS8))3 


END GETSPACES 


BEGIN REAL 


ENDS 


REAL PROCEDURE DEPTHC])% VALUE [3 REAL I3 
DEPTH 


JeKeTeSyM3 


IF TeNFESTPRIP1I<O THEN 


ELSE 
ELSE 


BEGIN DEPTHeCALL eT, 622614331) ,635%13)3 
IF NESTPRTC1),£2¢1417"0 THEN NESTCUReNESTCURS (3 
NESTPRTFIIJ.r2tijet3 

END 

IF T,098133940 THEN DEPTHeT, £9213) 

BEGIN MeQ3 NESTPRILI JeTI 

JeT, C2213)! KeCaLbLeJet),£22%14333 

FOR JeJ STEP 1 UNTIL K DO 

IF S#DEPTHCCALLEJ22>M THEN MeS3 

MeDEPTHeMeCALLIT.£22213791),035813)3 

IF NESTCUR#O THEN 

IF NESTPRICTJ,€C2:1)20 THEN FLSE 

BEGIN TeT&M£9$35313)3 NESTCUReNESTCUR™1 END 

FLSE TeTaMe9835843)3 

NESTPRT¢ 1 J]e6T3 

ENO} 


PROCEDURE NESTSORTCL®U)# VALUE LeUs REAL LsoUS FORWARD? 


NESTSORT 
PROCEDURE SORTNEST?3 
SORTNFST 
BEGIN ARRAY AcO'i4a)3 

= A 

. REAL JoeJeKoeT3 
2 | 

a J 

a K 

a T 

REAL P,Q} 
a P 


STREAM PROCEDURE NESTFORMCyoNeoLeo Ads VALUE INE 
PRT¢607) «= NESTFORM 


44 1S 


START OF SEGMENT 


45 1S 


05376000 T 
05376100 T 
05378000 T 


00443009382 
00441009583 
00443010080 


107 LONG. NEXT SEG 3 


05400000 T 


05401000 T 


05402000 
05402100 
05402200 
05402300 
05402400 
05403000 
05404000 
05405000 
05406000 
05407000 
05409000 
05409100 
05409200 
05409300 
05409400 
05409500 
05410000 
05411000 


See ee ee eee 


00031043312 


00031043312 


SECRET RE 45 


00451000030 
004548000210 
00458000712 
00458001142 
00452004410 
00451001480 
00458004610 
004518002084 
00453002610 
0045t0027#2 
00451003481 
00458004081 
0045:0041%2 
00a5t0044t0 
00458004783 
0045#005010 
00451005113 
004513005133 


56 LONG» NEXT SEG 3 


05441100 T 00038083382 
05412000 TF 000338043382 
05413000 T 000380433%2 
START OF SEGMENT seameteene. 46 
05414000 T 004963000133 
05414100 T 00468000483 
05445000 T 00861000183 


STACK¢F 42) 
STACK ¢F a3) 
STACK ¢F 44) 
STACK ¢F 45) 


BEGIN LOCAL S35 


END3 


DyeAS 15¢°D5e¢8 LyT * Wy 

DieLOC Sd DleDI +73 SteLs SleS14+103 DSeCHRS 
DIAS DleDI ers AedI3 

Or1eDy4+63 DSe S CHR} 

DI*©A3 SJeLO0C NS DS#4 DEC3 

NreA’ DSe3 FILLS 


FOR yePRTBASE STEP 41 UNTIL PRTOP 00 


IF 


NESTPRT¢C])#0 THN 
BEGIN SORTPRTCQje 73 QeQ41 ENDS 


NESTSORT(0,900e0°1)3 
FOR PeO STEP 4 UNTIL @ DO 
BEGIN IeSORTPRICPY3 TeNESTPRICII) 


ENDS 
ENDS 


NESTFORMCOMDEPTHC TIP INFOLCTeLINKReT,LINKCI}2A)3 
WRITECLINECDBLJ,15eACe])3 
JoT 6 22813]3 KecALL(Je1),02291313 
FOR JeJ STEP 1 UNTIL Kk 00 
BEGIN feCabbrJ)3 
TeNESTPRICtI3 


NESTFORMC39eDEPTHCT © INFOLCT,WINKRe T,LINKCJ] 0 ADS 


WRITECLINE »15eAC#) D3 
END} 
WRITECLINELDBLI93 


PROCEDURE NESTSORTCLA~UDS VALUE LeU REAL LoUS 
BEGIN REAL fodaKaM$ 


xAt— 


AGAIN! 


TOP: 


LABEL AGAIN» TOP,BOTTOMSEXITS 
IF L#U THEN 
BEGIN Me (U4L) DIV 23 
NESTSORT(L,M)3 
NESTSORT(Ms41,U)3 
JeKeLS JeMals 
1F 1>M THEN GO TO TOP3 
1F J>U THEN G60 TO BOTTOMS 


GT1eNESTPRICSORTPRICII,C33¢15)1 LINK? 

GT2eNESTPRICSORTPRICJI.£ 33215] Jeb INKS 

IF INFOCGTLeLINKRe CGTL41),LINKC].C18830I¢ 
INFOCGT2eLINKRe(GT241)eLINKCI] o£! 


GO TO BOTTOM 
SORTPRTCK],C18%15]+SORTPRTICJI3 
JeJe13 


6130) THEN 


46 IS 


05416000 
05417000 
05418000 
05419000 
05420000 
05421000 
05422000 
05423000 


05424000 
05425000 
05425100 
05425200 
05425300 
05425400 
05426000 
05427000 
05428000 
05429000 
05430000 
05430500 
05431000 
05432000 
05433000 
05434000 
05435000 
05436000 


66 LONG 


05437000 
05438000 


START OF SEGMENT 


05439000 
05440000 
05441000 
05442000 
05443000 
05444000 
05445000 
05446000 
05447000 
05448000 
05449000 
05480000 
054851000 
05452000 
05453000 


i ee | 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
i 


T 
T 


00461000113 
004610003!2 
00468000582 


00463900610. 


0046t0007I2 
00463000880 
00468000834 
00468000912 


00461000983 
00464004182 
00461003291 
00461004783 
00468001983 
00463002112 
00461002383 
0046t0028t0 
00461003280 
00461003783 
00461003982 
00461004210 
00463004313 
00461004610 
00463005241 
00461008481 
00461005604 
00461006182 
NEXT SEG 


000380483382 
0003:0433%2 


ee 4 


Se ee ee Bee Nee Ren ee ee 


00471000030 
00471000010 
00473000084 
00474000332 
00471000410 
00478000593 
00471000830 
004710009%2 
00471004084 
00473004382 
00471007680 
00471004982 
00472002284 
00471002312 
00473002610 


3 


7 


IF KeK+1<U THEN GO TU AGAIN ELSE GO TO EXITS 
BOTTOM? SORTPRT CK], £16815] ¢SORTPRTIC1]3 

Jeyes3 

IF KeKeysU THEN 60 TO AGAIN ELSE GO TO EXITS 
EXyTS FOR yelL STeP 4 UNTIL U 90 

SORTPRTr¢ 1J+SORTPRICII£C18815)3 

END: 
END; 


COMMENT ROUTINES JN THIS SECTION COMPILE CODE FOR ALL EXPRESSYONSS 
COMMENT AEXP 1S THE ARITHMETIC EXPRESSION ROUTINES 
PROCEDURE AEXP3 
BEGIN 
IF ELCLASS = IFV 
THEN BEGIN IF IFEXP # ATYPE THEN ERR(102) END 
ELSE BEGIN ARITHSEC! STMPARITH END 
END AEXP3 


COMMENT ARITHSEC COMPILES FIRST PRIMARY IN AN ARITHMETIC EXPRESSION, 
IN PARTICULAR IT HANDLES Pp #Ps =Ps AND @=P*Q WHERE P 
AND @ ARE PRIMARIES? 
PROCEDURE ARITHSECS 
BEGIN 
IF ELCLASS » ADOP 
THEN BEGIN 
STEPIT3 
IF ELBAT¢I"1)].ADDRESS # SUB THEN PRIMARY 
ELSE BFGIN 
PRIMARYS 
ENDTOG © LYNKTOGS EMITOCCHS)3 
LINKTOG « ENDTOGS ENDTOG « FALSE END END 
FLSE PRIMARY END ARITHSEC? 


COMMENT STMPARITH COMPILES SrMPLE ARITHMETIC EXPRESSIONS ON THE 
ASSUMPTION THAT AN ARITHMETIC PRIMARY HAS ALREADY BEEN 
COMPILED, IT ALSO HANDLES THE CASE OF A CONCATENATE 
WHERE ACTUALPARAPART CAUSED THE VARIABLE ROUTINE TO 
COMPILE ONLY PART OF A PRIMARY, MOST OF THE WORK OF 
SIMPARITH IS DONE BY ARITHCOMP. AN ARTIFIAL ROUTINE 
WHICH DOES THE HIERARCHY ANALYSIS USING RECURSION, 
ART THCOMP IS A SUBROUTINE ONLY TO GET THIS RECURSION 
PROCEDURE SIMPARI TW! 
BEGIN 
WHILE ELCLASS = AMPERSAND 
DO BEGIN STEP]TS PRIMARYS PARSE END) 
WHILE ELCLASS 2 EQVoP DO ARITHCOMP END3 


47 1S 


05454000 T 
05455000 T 
05456000 7 
05457000 T 
05458000 T 
05459000 T 
05460000 T 
05461000 T 

46 LONG» 


06000000 
06001000 
06002000 
06003000 
06004000 
06005000 
06006000 
06007000 


—t 4 m4 a 4 t= 


06008000 
06009000 
06010000 
06011000 
06042000 
06033000 
06044000 
06045000 
06036000 
06017000 
06018000 
06021000 
06022000 
06023000 


ee ee ee eee | 


06024000 
06025000 
06026000 
06027000 
06028000 
06029000 
06030000 
06031000 
06032000 
06033000 
06034000 
06035000 
06036000 


a | 


00471002713 
00471003080 
00478003382 
00478003484 
00471003782 
00471003982 
00475008383 
00471004313 
NEXT SEG 


0003%0433!2 
000310433182 
00038043382 
000310433%9 
000310433%2 
00038043312 
00031043614 
00033043830 


00030438130 
0003043810 
00033043810 
00031043850 
00033043810 
00031043830 
00031043982 
000320440180 
00038044084 
00038044312 
0003180444a:0 
0003:0444t1 
00031044610 
000318044733 


0003804a9!0 
00031044912 
000310ag9t2 
00038044982 
00031064932 
00031044912 
00032084982 
0003104q9t2 
0003!904g9t2 
00031044932 
00031044912 
0003:04a98e 
0003:0452!0 


3 


STACK(F42) = OPERATOR 
STACK¢F43) = OPCLASS 


STACK(F 42) 
STACKCF 43) 
STACK(F 44) 
STACK¢CF 45) 


STACK ¢F 46) 
STACK EF 47) 


PRT¢640) = 


COMMENT ARITHCOMP 1S THE GUTS OF THE ARITHMETIC EXPRESSION ROUTINE 


PROCEDURE POLISHERCEXPECT)3 yALUE EnEEGW REAL EXPECTS 
REGIN LABEL EXIT? 


2 COUNT 
= Tt 


3 T2 


= § 


a SSS 
= Z 


WRITEOUT 


ANALYSIS. 


EMITS THE ARITHMETIC OPERATORS, 
1S OBTAINED BY RECURSYONS 
PROCEDURE ARI THCOMP3 


BEGIN INTEGER OPERATOR,» 


DO BEGIN 


OPERATOR « ¢ &@ ELBATECI) £€36817210)3 
COMMENT THIS SETS UP THE ORFRATOR WHICH WILL BE EMITTED, 


OPCLASS$ 


IT CALLS PRIMARY AT APPROPRIATE TIMES AND 
THE HIERARCHY ANALYSIS 


THE HIGH 


ORDER TEN BITS OF THE OPERATOR ARE LOCATED IN (173210) 


Of THE ELBAT WORD3 
OPCLASS ¢ FLCLASS3 
STEPITS PREMARYS 
BEGIN 
WHILE OPCLASS « ELCLASS DO ARITHCOMPS 
COMMENT THE CLASSES ARE ARRANGED IN ORDER OF HIERARCHY 
EMI TCOPERATOR)3 
EMITCO)S Le Leds 
STACKCT «+ 13 


END3 


END UNTIL OPCLASS # ELCLASS END ARITHCOMPS 


LABEL ELS 


REAL COUNTsT1» 


BOOLEAN S3 


REAL SSS3 


STREAM PROCEDURE WRITEOUTCCoNeL)3 VALUE CoN3 


BEGIN DI « Ls 


ENDS 


INTEGER PROCEDURE EXPRSS3 BEGIN AEXPS EXPRSS « ATYPE ENDS 


DS « 2 LIT "Smu3 

- LOc C3 Sy © Sye7?} DS © CHR3 
St] « LOc Ni DS © DEC} 
58¢08e2L1T 9 "23 


06037000 
06038000 
06039000 
06040000 
06041000 
06042000 


START OF SEGMENT 


48 1S 


06043000 
06044000 
06045000 
06046000 
06047000 
06048000 
06049000 
06051000 
06052000 
06053000 
06054000 
06054100 
06054150 
06054200 
06055000 


14 LONG 


06057000 


06060000 
06061000 


START OF SEGMENT 


06061900 
06062000 


06063000 
06063500 


06064000 


06065000 
06066000 
06067000 
06067500 
06068000 


kaataa4a- 


a as st 


T 


T 
T 


Tee Terr l S| 


T 
T 


ee 


SKERESKKS 


0003:045533 
0003%045583 
00031045513 
00031045533 
000318045513 
00031045533 


004810000180 
004813000010 
00484000230 
004688000230 
00481000230 
00488000210 
00461000211 
00481000383 
00462000333 
00484000610 
00488000680 
004830007382 
0046000982 
0048t0009383 
004848000983 
NEXT SEG 


00031045513 


00032045982 
00038045989 


00498000030 
00498000010 


00491000080 
00491000010 


00491000010 


00493000080 
004915000034 


004980003183 - 


0049!000210 
00491000382 


468 


3 


49 


SSSe STACKCTR3 
lf STEP] # LEFTPAREN THEN GO TO FXIT3 
DO BEGIN 
IF STEPY 2 OPERATORS THEN 
BEGIN Ty © ¢(T2 © ELBATLI)), ADDRESS? 
S « S OR COUNT » T2,¢1183)3 < 03 
COUNT « T2,C148234COUNT@=23 
tF ELCLASS 2 OPERATOR THEN 
BEGIN ¢+F Ti # O THEN EMITOCTY) 
FLSE BEGIN 
Ti «+ T2,LINK+25 
T2 © T2,1NCR+T43 
FOR T1 » Ty STEP 4 UNTIL T2 90 
EMYTCTAKECT1))3 
END3 
END ELSE BEGIN T2 « ELCLASS3 
tF STEP] # LITNO THEN 
BEGIN ERRC500)3 GO TO EXIT FND! 
1F T2 w BITOP THEN EMITCTIaC 
£3624216)) ELSE 
tF T2 & WEXOP THEN FMITCT18& 
CT2eC DIV 6)(3624583)8&(CHT2%6) 
£39t4583}) ELSE 
If T2 = YSOLATE THEN 
BEGIN 72 « C3 
IF STEPT # LITNO 
THEN BEGIN ERR(500)3 
GO TO EXIT END? 


EMITCZeCCT2+CP1 DIV 6" NIV 
6412x5124 (48@=T2"C)MOD 6x644 
37)3 
END ENDS 
STEPITS 
S « S$ OR COUNT «< 03 
END ELSE BEGIN 
1F ELCLASS * LABELID THEN 
BFGIN Tytx23 
ELS GT4 « TAKECT2e«GITCELBATE 13) 93 
PUT¢LeT2)3 
IF GT4 w O THEN GT4 « I! 
IF CaTateLegT4.pnrVv 4 2 128 THEN 
BEGIN GT4%a03FLAGCSOISENDS 
EMITcGTax4aaT1)3 
STEPYTS 
END ELSE 
1F ELCLASS # PERIOD THEN AEXP ELSE BEGIN 
T2<03 
1F STEPISPERJOD THEN 
BEGIN T2«13 STEPIT END! 
1F ELCLASS* IDMAX THEN 
BEGIN ERR¢500)3 GO TO EXIT ENDS 
1F ELCLASS # LABELID THEN 
BrGIN Ti « O08 GO TO EL ENDS 
1F T1 ¢ ELBATCY), ADDRESS = O THEN 


06068500 
06069000 
06070000 
06071000 
06072000 
06074000 
06075000 
06076000 
06077000 
06078000 
06079000 
06080000 
06081000 
06082000 
06083000 
06084000 
06085000 
06086000 
06087000 
06088000 
06089000 
06090000 
06094000 
06092000 
06093000 
06094000 
06095000 
06096000 
06097000 
06098000 
06099000 
06099100 
06099200 
06100000 
06101000 
06102000 
06103000 
06104000 
06104100 
06404200 
06104300 
06104400 
064104500 
06104540 
06104520 
06404600 
06104700 
06104800 
06105000 
06106000 
06106100 
06106200 
06106300 
06107000 
06107100 
06107200 
06108000 


AA HAH HHH HWM AHHH HHA A A A tat A RA HA HA AA a tte 


00491000332 
00498000414 
0049000680 
00891000782 
00492000810 
00493001084 
00491003312 
00498004513 
00491004610 
00494001810 
00491004912 
004910024382 
00491009214 
00491002410 
0049:0097!3 
0049!0007!3 
00492002831 
00492002983 
00491003143 
00491003312 
00498003404 
00493003681 
00491003983 
00491004412 
00491004210 
00491004383 
0049!0044t0 
00491004513 
00491004640 
00491004610 
00498004620 
00493004680 
00491004834 
0049:005234 
004923005410 
00491005410 
00491005414 
00491005680 
00491005634 
00491005733 
0049%005881 
00491006183 
000910062! 
00491006404 
00491006654 
0049100681, 
0049t0070I4 
00493007112 
00491007112 
00493007383 
00493007454 
0049100753 
00491007712 
00492007810 
00498007993 
00491008084 
00493008230 


@ 
@ 
BFGIN ERR¢100)3 GO TO EXIT END? 06409000 T 00492008410 
EmMiTuctTa)3 06110000 T 00492008610 
1F 11>4023 THEN 06110100 T 00491008684 e 
1F T2e0THEN FLAG(500) 06440200 T 004991008713 
FLSE EMITOCPRTED3 06410300 T 00491008983 
STEPITS 06111000 T 00a98009182 q 
FND$ COUNT «© COUNT#13 06112000 T 00491009113 
PNDS 06113000 T 0049%0093%2 
END UNTIL ELCLASS # COMMA 06414000 T 00491009312 e 
IF ELCLASS # RTPAREN THEN 06445000 T 00498009810 
BEGIN ERR(104)3 GO TO EXIT ENDS 06116000 T 00491009512 
STEPITS 06117000 T 00498009614 @ 
IF FALSE THEN 06148000 T O04a9t009TI2 
BEGIN COUNT + COUNT*EXPECT? 06119000 T 00691009783 
WRITEQUTCIF COUNT « O THEN “#* ELSE 06120000 T 00491009982 e 
IF COUNT » 0 THEN * * ELSE "an, 06421000 T 00491040183 
ABSCCOUNT) »LINEOJ)3 06122000 T 00491010333 
WRITELINES 06123000 T 00491010512 e 
END? 06124000 T 00491094592 
EX1T# STACKCTR « SSS) END3 06125000 T 004910145132 
49 1§ 120 LONG. NEXT SEG 3 e 
e@ 
PROCEDURE PRIMARYS 06426000 T 00031048912 
BEGIN LABEL 06127000 T 000380459t2 @ 
START OF SEGMENT *easeeeuee = 50 
Liv L20 3s L4r LSe bL6s bL7s LBs L9r Lids 06428000 T 00501000010 
Lite Li2» Wide bide LiSe Lib» Live Lids Lid» L20, 06429000 T 00501000010 rd] 
L2ts L220 L230 L240 L25- L260 L27s L28s L290 L30s 06130000 Y 00501000010 
L310 L325 L330 L340 L350 L369 L375 L38e L329 064131000 T 00501000010 
SWITCH S « 06132000 T 00508000010 & 
Lie b2e U3e Lae Se b6e b7e bLBe L9s Lide 06133000 T 0050!0002!1 
Life Li2* Lid» Lide Ly5» Libs Live L418» Lite L20r 06134000 T 00501000284 
L2ise L225 L235 L2ae LOS» L26e L27e L28> L29» L30¢ 06435000 T 00508000281 ® 
L3ie L32e L33e L3a* 435° L360 L37- L38e L393 06136000 T 00501000211 
LABEL EXIT#RP»LDOT*LAMPERS 06137000 T 00501002211 
GO To SCELCLASS]3 06138000 T 00501002214 ® 
IF ELCLASS = LFTBRKET THEN 06139000 T 00501002512 
BEGIN STEPITs VARIABLECFL)3 06140000 T 00501002583 
IF ELeLAaSS # RTBRKET THEN 06441000 T 00501002713 e 
BEGIN FRRC118)3 GO TO EXIT END} 06142000 T 00501002810 
STEPITS 06143000 T 00501003010 
GO TO Lpots 06144000 T 00501003081 e 
ENDS 06145000 T 00501003182 
IF ELCLASS * NOTOP THEN 06146000 T 00501003112 
BEGIN STEPYTs PRIMARY! 06147000 T 00508003103 e 
EMTTLNGS EMPHT(023 LeLeogs 06448000 T 00803003312 
GO TO EXITS 06449000 T 00501003513 
ENDS 06150000 7 00501003610 e 
IF ELCLASS & UNKNOWNIN THEN FRR¢{00)3 06451000 T 00801003610 
LISLZIL IILStLStLOsLOsLOsLAOlLi2IListLiSeLiTIL2O8L2LtL2atL25iL2etL2gor 06452000 T 00501003810 
L32s 06153000 T 00501003912 e 
ERRC103)3 GO 10 EXITS 06454000 T 00501003912 
L7t 06155000 7 00501004010 
SUBHAND(FALSF)3 GO TO LDOTs 06156000 T 00501004182 e 
 ] 


STACK¢@F42) = Ti 
STACK¢F+3) = T2 


Litt 

IMPFUNS STACKCT « STACKCT?13 GO TO LNOTs 
LI4eLiss 

STRMPROCSTMT) GO TO LpOT3 
LISSLiDs 

PROCSTMTC(FALSE)3 GO TO LDOTS 
L22tL23:Le6tLe7tLj0rL3ays 

VARTABLECFP): GO TO LAMPER? 
L33#L35¢t 

FMITCO&ELBAT(C IT] £€36917810))3 STEPITS GO TO LAMPERS 
L34tL363 

EMITNUMCC)3 STEPIT? GO TO LAMPERS 
38% 

POLISHERC12? GO To LNOTs 


39! 
STEPIT# PRIMARYs STACKCT ©« STACKCT#43 
EMITOCLOD)$ gO TO LDOTS 
L372 
STEPITS AEXP3 
STACKCT « STACKcT#13 
IF ELCLASS # RTPAREN THEN 
BEGIN ERR¢104)3 GO TO EXIT ENDS 
STEP1TS 
LOOTIDOTS 
LAMPERS: 
STACKCT « STACKCT 4143 
WHILE ELCLASS = AMPERSAND DO 
BEGIN STEPITs PRIMARYS PARSE END! 


EX1T! FND PRYMARYS 


PROCEDURE IMPFUNS 


BFGIN REAL T1,T25 


Ty + (T2 + ELBATEC II), ADDRESSS 

PANAS 

IF Ti # 0 THEN eMITOCTI) 
ELSE BEGIN 
T1 © T2,LINKsT2,1NCREL3 
T2 + T2,LINK423 
FOR T2 « T2 STEP 4 UNTYL Ti DO EMITCTAKECT2)93 
ENDS 

ENDS 


PROCEDURE SUBHAND¢ FROM)? VALUE FROM’ BOOLEAN FROM? 


BFGIN LABEL EX1T3 
ReaAL Tu3 


50 1S 


51 18 


06157000 T 00501004230 
06156000 T 00508004382 
06159000 T 0050:004532 
06160000 7 00501004610 
06161000 TF 00808004712 
06162000 TY 00508004732 
06163000 T 0050800486840 
064164000 - 00504004912 
06165000 TF 00508005080 
06166000 ry 00501005182 
06167000 7 00501005440 
06168000 T 00501008410 
06169000 T 00501005513 
06170000 FT 00501008610 
06171000 T 00508008712 
06472000 T 00501008810 
06172500 T 0050t0060!0 
06173000 T 00501006183 
06174000 tT 00508006210 
06174500 T 005040063%2 
06175000 T 00503006410 
06176000 fT 00501006512 
06177000 T 0050800668; 
06178000 T 005080067t2 
06179000 T 0050%0068!4 
06179500 T 00501006982 
06180000 T 005080070t0 
06181000 T 005010072!0 
06182000 T 00508007410 
76 LONGs NEXT SEG 
06183000 T 000310459382 
06184000 7 00031045912 


START OF SEGMENT 


06185000 


06186000 
06187000 
06188000 
06189000 
06190000 
06191000 
06192000 
06193000 


eeeeeneeee 5 


re 


17 LONG» 


06194000 
06195000 


T 
T 


START OF SEGMENT *«uteeeeee 


0051!09000!0 
0051'000280 
005149000231 
005410004010 
00541000532 
00511000733 
00511000983 
0054900, 4t4 
0054;900;40t4 
NEXT SEG 


00038048912 
00038045912 


06196000 fT 00521000010 


\ 


3 


| 


3 


S2 


STACK¢F42) = Ti 
Ty © TAKEFRST3 
IF ELCLASS # SUBID AND FROM THEN 
BEGIN IF STEP! # ASSIGNOP THEN 
BEGIN FLAGC503)%3 GO TO EXIT ENDS 
STEPIT? 
AEXPS 
EMI TOCXCH)3 
GO TO EXITS 
END} 
EMITLCOCL#6) OITV 4"€7T1,0C24212)°41)9 DIV 493 
EMITBCBBWeBUMPL.T1,036312))3 
STEPLTS 
ADJUST? 
EX TT! FNO SUBHANDS 


COMMENT JFEXP COMPILES CONDITIONAL EXPRESSIONS, 
OF EXPRESSIONS AS EXPRSS REPORTS3 
INTEGER PROCEDURE IFEXP3 
BEGIN INTEGER TyPEs THENBRANCH,ELSEBRANCHS 


IT REPORTS THe Type 


STACK¢F 43) = TYPE 
STACK¢F 44) = THENBRANCH 
STACK¢F 45) «= ELSEBRANCH 
IFCLAUSE} 
STACKCT « 03 
THENBRANCH « BUMPLJ 
COMMENT SAVE 1, FOR LATER FIXUPS 
IFEXP « TYPE © EXPRSS} COMMENT COMPILE 1ST EXPRSS3 
STACKCT « O83 
ELSEBRANCH « BUMPLS3 
EMITBCBFECeTHENBRANCHeL)3 
IF FLCLASS # ELSFV THEN FRRC155) ELSE BEGIN 
STEPYTS 
AEXP$ STACKCT «+ 13 
COMMENT THyS COMPILES PROPER TYPE SECOND EXPRSS! 
EMT TBCBFWeELSEBRANCHsL)? 
EMITC1)93 L «© L743 
COMMENT THIS IS USED BY EMITLNG TO CLEANUP CODE, COMPARE WITH 
BOoOSECs BOOCOMP. AND RELATION? 
END END IFEXP3 


COMMENT PaRSe cOMPyLES COnE FOR THe CONCATENATES 
PROCEDURE PARSE3 
BEGIN INTEGER FrRSTeSFCONDs THIRD} 


STACK¢Fs2) co FIRST 
STACKeFa432 = SECOND 
STACK¢F 4a) = THIRD 


52 15 


START OF SEGMENT 


53 18 


06197000 T 00521000010 
06198000 T 005280001382 
06199000 T 00521000210 
06200000 T 00521000383 
06201000 T 00521000513 
06202000 T 00521000610 
06203000 T 00528000681 
06204000 T 00521000782 
06205000 T 00528000783 
06206000 Y 00521000713 
06207000 T 00521004133 
06208000 T 00521001410 
06208500 T 00528001464 
06209000 fT 00521001512 
19 LONG, NEXT SEG 3 
06292000 T 00031045982 
06293000 T 00038045912 
06294000 T 000310459t2 
06295000 T 00031045912 
SEEKEEEEKE SE 53 
06296000 T 00531000010 
06296500 T 00531000014 
06297000 T 00531000312 
06298000 T 00531000312 
06299000 T 0053380003!2 
06299500 T 00538000411 
06300000 T 005310005t2 
06301000 T 00538000712 
06302000 T 005310008:0 
06303000 T 0053#001084 
06305000 T 00538004182 
06306000 T 00533004214 
06307000 T 0053100142814 
06308000 T 00531004313 
06309000 T 00531004513 
06310000 T 00533004513 
06311000 T 00531003583 
19. LONGe NEXT SEG 3 
06342000 T 00031045912 
06313000 T 00031045912 
06314000 T 00031045912 


START OF SEGMENT seucueeuns 54 


LABEL EX] TeNEXTCHKS £1078 

IF FLCLASS = FIELDIO THEN Z1i12° 

BEGIN ¥112= 

FIRST te ELBATCII,SBITF! 112° 

SECOND te 48 = (THYRD t= ELBATCI),NBITF)3 Z112° 

GO TO NEXTCHKS %112" 

END Z1128 

FLSE Z112° 
IF FLCLASS =» LFTBRKET THEN 

IF STEPI m FIELDID THEN Zii12= 

BEGIN *112= 

FIRST te FLBATCI),SBITF3 $112° 

SECOND ts 48 » (THIRD se ELBATCIJ.NBITFD)3 £1129 

IF STePY # RTBRKET THEN tii1ee 

BEGIN i129 

ERR(94)3 Z1i12= 

GO TO EXITs s112° 

FND} gii2° 

GO TO NEXTCHK3 Zii2= 

END i129 

FLSE Zii2- 

IF ELCLASS = LITNO THEN Z112° 


If STEP] = COLON THEN 
1F STEP: = LyTNO THEN 


1F STEP] # RTBRKET THEN & WE WILL TAKE CARE OF Tur RES 

IF (FIRST te ELBATCI"3], ADDRESS) x Z107~ 

CTHIRD te ELBATCI°1), ADDRESS) # 0 THEN £1072 

BEGIN £107 
SECOND te 48 = THIRD? & SOURCE 1S RIGHT yUST, 

GO TO NEXxTCHK) "107 

END £107= 

ELSE % BAD BITS, FALL THROUGH TO ERROR, £107@ 

ELSE & MAYBE A COLON, ¥107# 

IF EbCLASS = COLON THEN &% Z107= 


IF STEP; = LITNO THEN 
IF STEP} = RTBRKET THEN 
COMMENT IF TEST ARE PASSED THEN SYNTAX 1S CORRECT? 
IF CFIRST «+ ELBATC1*5), ADDRESS) x 
(SECOND « ELBATEI73), ADDRESS) x 
(THIRD © ELBATCI71)7,AODRESS) # O THEN 
NEXTCHK! 1F FIRST + THIRD < 48 THEN x SO FAR SO GOOD, ¥107= 
IF SECOND+ THIRD £ 48 THEN 
COMMENT TF TEST ARE PASSED THEN RANGES OF LITERALS ARE 0,K,3 
BEGIN 
STEPITS 
EMITD¢SECONOeFIRSTe THIRD) 
STACKCT © 13 
GO TO EXT ENDS 
ERR(113)s COMMENT ERROR IF SYNTAX OR RANGE FAILS! 
EXIT! END PARSES 
5a 1S 


COMMENT DOT COMPILES CODE FOR PARTYAL WORD DESIGNATORSs» EXCEPT FOR 
THOSE CASES HANDLED BY THE VARIABLE ROUTINES 


06315000 
06345100 
06315200 
06315300 
06315400 
06315500 
06315600 
06315700 
06316000 
06316100 
06316200 
06316300 
06316400 
06316500 
06316600 
06316700 
06316800 
06316900 
06317000 
06317100 
06317200 
06317300 
06318000 
06319000 
06320000 
06320100 
06320200 
06320300 
06320400 
06320500 
06320600 
06320700 
06320600 
06320900 
06321000 
06322000 
06323000 
06324000 
06325000 


06326000. 


06327000 
06328000 
06329000 
06330000 
06331000 
06332000 
06332500 
06333000 
06334000 
06335000 


54 LONG 


06336000 


P 
Cc 
C 
C 
Cc 
C 
C 
C 
T 
C 
¢ 
¢ 
Cc 
Cc 
Cc 
C 
Cc 
C 
P 
C 
C 
C 
T 
T 
P 
C 
C 
¢C 
Cc 
Cc 
Cc 
Cc 
C 
Cc 
T 
T 
T 
T 
T 
T 
P 
T 
T 
T 
T 
T 
T 
T 
T 
T 
td 


T 


005410000!0 
00541000010 
0054at0000t4 
0054100034382 
0054100028, 
0054000522 
00541000533 
00548000583 
00541000583 
00543000782 
005418000814 
005410009182 
00541001081 
00641004382 
00543004480 
O05asO0g ars 
00541004582 
005480014533 
00548001533 
00541004610 
00541004610 
00548001630 
00548004783 
00541001932 
0054002014 
00541002210 
0084:0024t4 
00541002712 
00541009713 
0054:002982 
00541002913 
00541000933 
00541002983 
005410030!0 
00548003112 
00541003234 
008410034810 
00544003480 
00541003684 
00541003932 
00541004153 
0054t004410 
00848004610 
00543004610 
00549004694 
00541004712 
00541004830 
008ar0oaste 
00541004913 
0054t005010 
NEXT SEG 


00038045912 


06337000 T 000380459t2 


PROCEDURE DOT? 
BEGIN INTEGER FrRSTeSECONDS LABEL EXITS 


STACK¢F42) = FIRST 
STACK ¢Fe3) = SECOND 


IF ELCLASS » PERTOD THEN BEGIN 
IF DOTSYNTAXCFIKST»sSECOND) THEN GO TO EXIT? 


EMITICOsFrRST»SECOND)3 
STEPyT 
EXIT! END END DOT! 


PROCEDURE IFCLAUSES 
BEGIN STEPITS BRFXPS 
IF ELCLASS # THENV THEN ERRC(LI6IELSE STEPIT END tFcLAUSs 
COMMENT PANA COMPILES THE CONSTRUCT# CcARYT, EXP,>)3 


PROCEDURE PANA$ 
BEGIN 
IF STEP] # LEFTPAREN THEN ERR(105) 
ELSE BEGIN STEPITS AEXPS IF ELCLASS # RTPAREN THEN 
ERR¢104) ELSE STEPIT END END PANAS 


COMMENT BANA COMPILES THE CONSTRUCTS (C<ARITHe EXP,>]3 
PROCEDURE BANAS 
BEGIN 
rF STEP] # LFTBRKET THEN ERR¢117) 
FLSE BEGIN STEPITS AEXP! IF ELCLASS # RTBRKET THEN 
ERRC118) ELSE STEPIT END END BANA ; 


COMMENT THIS SECTION CONTAINS THE STATEMENT ROUTINES) 
COMMENT COMPOUNDTATL COMPILES COMPOUNDTAILS,. {fT ALSO ELIMINATES 
COMMENTS FOLLOWING ENDS, AFTER ANY ERROR, ERROR MESSAGES 
ARE SUPPRESSED, COMPOUNDTAIL 1S PARTIALLY RESPONSIBLE 
FOR RESTORING THE ABILITY TO WRITE ERROR MESSAGES, SOME 
CARE 1S ALSO TAKEN TO PREVENT READING BEYOND THE "END. 9 
PROCEDURE COMPOUNDTAIL! 


PRT¢611) = COMPOUNDTAIL 


BEGIN LABEL ANOTHERS 


I « ["13 BEGINCTR «# BEGINCTR+13 
ERRORTOG «+ TRUES COMMENT ALLOW ERROR MESSAGES: 
STEPITS 


ANOTHER? 


06338000 
06339000 


START OF SEGMENT 


55 1S 


06340000 
06341000 
06342000 
06343000 
06344000 
06345000 
06346000 


8 LONG 


06409000 
06410000 
06441000 
06412000 


06413000 
06414000 
06445000 
06416000 
06417000 


06418000 
06419000 
06420000 
06421000 
06422000 
06423000 


07000000 
07001000 
07002000 
07003000 
07004000 
07005000 
07006000 


07007000 


START OF SEGMENT 


07008000 
07009000 


T 
T 


000310459I92 
000310459892 


HkERREE EEE 55 


T 
T 
T 
T 
is 
T 
T 
, 


4qa4a44s SS a 


Se ee ie ee ee 


4 te to 


00551000030 
00554000132 
005510003!2 
0055!0003!90 
00558000382 
0055#000410 
0055700041; 


NEXT SEG 3 


00031045982 
0003t04859!2 
00031046112 
00033046430 


00038046410 
00031046410 
00033046430 
00031046681 
00038046913 


00038047210 
0003181047210 
00033047210 
00031047210 
00038047383 
00031047634 


00038047982 
00038047982 
000380487912 
00038047982 
000380479!2 
000380479892 
000318047982 


000310479%2 


FEAeKKEKERE 56 


T 
T 


00561000080 
00568000284 


07010000 ¥ 00561000383 


IF STREAMTOG THEN STREAMSTMT ELSE STMT3 


IF ELCLASS = SEMICOLON THEN GO TO ANOTHERS 


IF ELCLASS # FNDV 

THEN BEGIN 
ERR¢119)3 gO TO ANOTHER END) 

ENDTOGeTRUE3 

DO STOPDEFINE+TRUE UNTIL 
STEPISENDV AND ELCLASS2UNTILV 
OR NOT ENDTOG3 

ENOTOGeFALSE3 


1F BEGINCTR « BEGINCTRe1 # 0 EQV ELCLASS = PERIOD 


THEN BEGIN 
IF BEGINCTR = O THEN 


BEGIN FLAGC143)3 BEGINCTR + 13 GO ANOTHER ENDS 


FLAG €190)3 
FCOR3= (LCRisMKABS(CBUFF(9}))993 
IF LISTER THEN PRINTCARD?) 
FCRs® ¢(LCRimMKABS(TBUFFE9}]))=9 ENDS 
IF ELCLASS = PERIOD THEN 
BEGIN 
GT5 « ®NDSEND, *8"%E%7184395)3 
MOVE C1 eGTSeCBUFFLOI)3 
LASTUSEDe43 
ELBATrIe1*%2) «SPECTAL(20)3 
ELCLASS + SeFMICOLON END 
FND COMPOUNDTAILS 


REAL AXNUMS 


. PROCEDURE ACTUALPARAPARTC(SBITetNDEX)$ VALUE SBITsINDEXS 
PRT¢693) © ACTUALPARAPART 
BOOLEAN SBrTs REAL INDEX! 
BEGIN LABEL EXITeCOMMONS ANOTHER ® POLS 


PRT(692) = AXNUM 


REAL PCTRsSCLASS»ACLASS3 
STACKEFs¢2) = PCTR 
STACK¢Fe3) = SCLASS 
STACK¢Fsa) = ACLASS 

STREAM PROCEDURE WRITEAXCLINE SACCUMeNe SEQ)3 VALUE NB 
PRT(64¢4) © WRITEAX 
BFGIN DI «+ LINES 159¢€08 + 8 LIT ™ "93 
DI «© LINES SI «© SEQ3 SI + $1°163 DS « WOS! 


Dr * DI+43 DS © 20 LIT “ACCIDENTAL ENTRY aT "3 
St ¢ aCcUMS Sy} © S133 DS «+ N CHR} 


S1 + SEQ! DI « SEQS Dr + DI#163 DS » WDS3 
ENDS 


ae BOOLEAN VBITstDAITS 
STACKeF 45) = VBIT 
STACKeF46) = IMBTT 


%1046 
£104" 
%104= 
£104= 


56 1S 


07011000 
07012000 
07013000 
07014000 
070;,5000 
07046000 
07047000 
07018000 
07019000 
07020000 
07021000 
07022000 
07023000 
070294000 
07025000 
07025040 
07025020 
07095030 
07026000 
07027000 
07028000 
07029000 
07030000 
07031000 
07032000 
07033000 


55 LONG 


07034000 
07035000 


07036000 
07037000 


START OF SEGMENT 


07038000 


07038100 


07038200 
07038300 
07038400 
07038500 
07038600 
07038700 


07039000 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
i 
T 
T 
T 
rs 
Cc 
¢ 
Cc 
T 
T, 
T 
T 
Tew 
T 
T 
T 
’ 


a i i 


~ 


ee hn 


00561000480 
00561000684 
00564000733 
00561000830 
00561000982 
00561001080 
00568004182 
00561004133 
00561004382 
00562004582 
00569001583 
00863004733 
00561001982 
00563004983 
00564002280 
00563009312 
005680020610 
00562004q2t0 
0056t0045!2 
0056100453 
00861004610 
00561004810 
00562004913 
00564008010 
00561005231 
005610053133 


NEXT SEG 3 


000380479192 
00031047912 


00038047980 
0003104879182 


teeeenkee = 57 


0057000010 


00571000010 


00571000030 
00578000240 
00571000382 
00571000610 
00571000712 


00573000680 


005718000810 


ANOTHER? 


POLS 


PcTR « 13 
ACLASS « STEP]&OL47#47t433 
STACKCT « O3 
GT1 « TAKECINDEX4+PCTR)3 
VAIT « BOUOLEANCAT1,V0O)3 
SCLASS « GTI. CLASS&Ora78a7t41)3 
IF VB1tT THEN BEGIN AEXP$ GO TO COMMON END3 
TF SBrT THEN SCLASS ¢ NAMEIDS 
IDBIT « BOOID «< ACLASS AND ACLASS «< LABELID3 
te ScLASS = NAMEFID THEN 
BEGIN 
IF IDBIT THEN VARTIABLECFL) 
ELSE 
IF ELCLASS = POLISHV THEN POLISHER(C1) 
ELSE ERRCIF ELCLASS#0 THEN O ELSE 42393 
GO TO COMMONS 
FND) 
Ip ScLASS =® REALARRAYID THEN 
IF ACLASS & REALARRAYID THEN 
BEGIN VARIABLECFL)% GO TO COMMON END 
FLSE GO TO POL} 
IF SCLASS # REALID THEN 
BEGIN FLAG¢503)3 
AEXP3 
ERRORTOG © TRUES 
GO TO COMMON} 
ENDS 
GT1 « TABLECy41)93 
TF GT1 » COMMA OR GTj = RTPAREN THEN 
BEGIN IF IpBrT THEN 
BEGIN 1+F ACLASS e» REALID AND 
BOOLEANCELBATCI),FORMALITHEN BEGIN 
CHECKER CELBATCII)3 
EMITPAIRCELBATEIJ,ADORESSoL 0093 
STEPTTS END 
ELSE VARIABLECFL)3 
GO TO COMMON END3 
IF ELCLASS < STRNGCON AND ELCLASS > LABELID 
THEN BFGIN PRIMARYS GO TO COMMON ENDS 
ENDS 
FMITOCNOP)3 FMyTOCNOP)3 
SCLASS « L3 
AnJUST3 
ACLASS « L,.£36840]3 
IF IOBIT THEN 
BEGIN VARIABLECFL23 
IF FLCLASS « AMPERSAND THEN GO TO COMMON? 


SIMPARITHS 
END ELSE ArXP3 
If LISTER THEN 
BEGIN ACCUMf4] « Q3 
WRITEAXCLINGOJ®ACCUMES 200, c12t6 Je 
INFOCLASTSEQROWsLASTSEQUENCE ))3 
WRITELINES 
END3 
AXNUM «© AXNUM413 


07040000 
07041000 
07041200 
07042000 
07043000 
07044000 
07048000 
07046000 
07047000 
07048000 
07049000 
07050000 
07051000 
07052000 
07053000 
07054000 
07055000 
07056000 
07057000 
070586000 
07059000 
07060000 
07061000 
07062000 
07063000 
07064000 
07065000 
07066000 
07067000 
07068000 
07069000 
07070000 
07070500 
07071000 
07072000 
07073000 
07074000 
07075000 
07076000 
07077000 
07078000 
07079000 
07080000 
07081000 
07082000 
07043000 
07084000 
07084500 
07085000 
07086000 
07086100 
07066200 
07086300 
07086400 
07086800 
07086600 
07086700 


AA HHH HAHA HAHA tH HH tA Ha oH A AT to ot ot tt) se 


0057%0008!0 
00578000933 
00571001280 
005710042!4 
0057800; 484 
0057300158 3 
00573004830 
005740049383 
00578009182 
00578009333 
005710020480 
0057!0024at1 
00578002583 
00573002680 
00571009884 
00578003280 
005710032384 
00574003281 
00571003333 
00578003404 
00571003684 
00578003684 
005780037%2 
00578003634 
005738003982 
005780039383 
00574004080 
005738004030 
0057100420 
005710043!3 
00573:00a4a814 
00571004583 
00573004783 
00573004834 
005710080!0 
00573005031 
00573005230 
00571005284 
00579005383 
005730055t3 
00571005513 
00571005712 
00571005820 
005718005814 
00571005913 
00572006080 
005790061!2 
00578006211 
00571006284 
0057300632 
00571006430 
005710064a!:0 
0057400660 
00572006880 
00872006923 
00571007983 
005780079383 


COMMON? 


EMITOCRTS)3 
EMITBCBFWsSCLASSel,)3 
FMITNUMCACLASS)3 
EMITPAIRCTAKECPROINFO),ADDRESS«LON)S 
FMITOCINX)3 
EMITNCS12)3 
EMITNC33919015)3 
EMITCO)}3 
EMITN¢5e5e1)3 
PcTR « PCTR+13 
IF ELCLASS = COMMA THEN GO TO ANOTHER? 
IF ELCLASS # RTPAREN THEN 
BEGIN ERR(129)% GO TO EXIT ENDS 
TF TAKECINDEX) NODIMPART#+1 # PCTR THEN 
BEGIN ERR¢(3y28)% GO TO EXT ENDS 
STEPTT3 
STACKCT « O3 


EXyT8 FND ACTUAL PARAPART! 


PROCEDURE PROCSTMTcCFROM)3 VALUE FROM$ BOOLEAN FROMS 
BEGIN 


STACK¢F 42) 2 HOLE 
STACK¢Fs3) @ ADDRESS 


STACKEF 44) = J 


OK! 


REAL HOLE +s ADDRESS 


REAL us LABEL 0K3 


LABEL EXITS 
SCATTERELBAT3 
HOLE+ ELBATEI]3 
ADDRESS « ADDRSFS 
IF NESTOG THEN 
IF MODE#O THEN 
IF TABLECI+1)#ASS1GNOP THEN 
BEGIN FOR JeCALLINFO STEP 1 UNTIL CALLX 00 
IF CALLOCJJSADDRESS THEN GO TO OK} 

CALLE CALLXeCALLX4117¢ADDRESS$ 
FND3 
CHECKERCHOLE)3 
IF ELCLASS # PROCIO THEN 
IF NOT FORMALF THEN 
IF TABLECI+#4) = ASSIGNOP THEN . 

BEGIN VARIABLEC2°REALCFROM))S GO TO EXIT END? 


PRTC645) = #LIST, LABEL, OR SEGMENT DESCRIPTOR*® 


COMMENT 


COMMENT 


CALL VARIABLE TO HANDLE THIS ASSIGNMENT OPERATIONS 
IF ELCLASS # PRocID EQV FROM 
THEN BEGIN ERRC159)3 GO TO EXIT ENDS 
IT 18 PROCEDURE IF AND ONLY We COME FROM STMT? 
STEPYTT3 
EMITOCMKS)3 
IF ELCLASS = LErTPAREN 
THEN ACTUALPARAPARTCFALSE »GITCHOLE)) 
FLSE IF FORMALF THEN L « Ley 


57 18 


07087000 
07088000 
07089000 
07090000 
07091000 
07092000 
07093000 
07093400 
07093200 
07094000 
07095000 
07096000 
07097000 
07098000 
07099000 
07400000 
07400500 
07401000 


106 LONG 


07391000 
07392000 
07393000 


START OF SEGMENT 


07393100 


07394000 
07395000 
07396000 
07397000 
07397400 
07397200 
07397210 
07397300 
07397400 
07397500 
07397600 
07398000 
07399000 
07400000 
07401000 
07402000 


07403000 
074804000 
07405000 
07206000 
07407000 
07408000 
07409000 
07410000 
07411000 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
tT 
T 
T 
T 
T 
T 
T 
T 


T 
T 
T 


REESE EH 


_ 


Se ee ee ee ee ee ee 


005780081!2 
00573008133 
00572008332 
00573008313 
00574008583 
005730086! 4 
005710087!2 
005710088t4 
00573008912 
005710090084 
00571009210 
00571009383 
00571009410 
00571009680 
005780096810 
00874010080 
00571040084 
00571040182 
NEXT SEG 


000380479%2 
0003:0a79%2 
000380479t2 


00584000030 


0058!000080 
0058#000080 
00564000081 
00588000193 
0058:000210 
0058!10003!2 
00584000410 
00561000614 
00581000810 
00583007410 
0058:0016184 
005830049%2 
00563001983 
005620020034 
00581000113 
005640020393 


00561002684 
005841002634 
0058800292 
0058:0031%3 
00861003193 
00662003210 
00583003231 
00581003312 
0056#0035%2 


58 


ELSE IF TAKECGITCHOLE))«NODIMPART#O THEN ERRC128)3 
EMITVCADDRESS)3 
EXyTt END -PROCSTMT3 
58 1S 


PROCEDURE STRMPROCSTMT3 
BFGIN REAL WHOLE oFIX,T43 


07412000 
07413000 
07425000 


T 
T 
T 


46 LONG» 


005810037%2 
00588004210 
00568004231 
NEXT SEG 


07426000 T 000340479!t2 


07427000 


START OF SEGMENT 


STACK¢F42) 3 WHOLE 
STACK¢Fse3) = FIX 
STACK(F44) «= Tt 


WHOLE «© ELBATCIJ3 FIX « =43 
IF ELCLASS # STRPROCID THEN EMIT(O)3 
IF WHOLE, LVL # 14 THEN 
BEGIN FIX « L$ L «© Let ENDS 
EMITOCMKS)3 
T1 © TAKEFRST,£196)3 
FOR GTi « 1 STEP 1 UNTIL T1 DO EMITCO)3 
Te STEP] # LEFTPAREN THEN ERR(128) 
ELSE BEGIN ACTUALPARAPARTCTRUFsGITCWHOLED)3 
IF FIX ¢« O THEN FMITVCWHOLE, ADDRESS) 
FLSE BEGIN T1 © L3 L © FIX3 
WHOLE © TAKECGITCWHOLE))3 
EMYTNUM¢CT14+2°WHOLE,(16212))8 
Lo» Ty 
EMI TBCBRWeBUMPL®WHOLE,£ 284121)3 
END} 
END END STRMPROCSTMT3 
59 15S 


INTEGER PROCEDURE BAE? 
BEGIN BAE « BUMPLS CONSTANTCLEANS ADJUST END BAE3 


COMMENT RELSESTMT COMPYLES THE RELEASE STATEMENTS 
COMMENT pOSTMT HANOLES THe nO STATEMENTS 
PROCEDURE DOSTMT3 
PRT¢696) = NOSTMT 
BEGIN INTEGER TL3 


07428000 
07429000 
07430000 
07431000 
07432000 
07433000 
07434000 
07435000 
07436000 
07437000 
07438000 
07439000 
07440000 
07441000 
07442000 
07443000 
07444000 
07445000 
07446000 


33 LONG 


07458000 
07459000 


07460000 
07481000 
07482000 


07483000 


START OF SEGMENT 


STACK¢F42) =» TL 
; FOULED « 43 


STEPITS Thebs STMTS IF ELCLASS # UNTILV THEN ERR¢131) 
ELSE BEGIN 
STEPITS BEXPS EMITBCBBCsBUMPLseTL) END 
END pOSTMT3 


07483500 
07484000 
07485000 
07486000 
07487000 
07488000 


T 


00038047982 


Ke eee eR EEE 5 


T 
T 
T 
bi 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
® 


#4 +444 4-4 


4344444 


wee eee 


00591000030 
00891000030 
0059?000010 
00891000210 
00591000420 
0059100052 
00591000723 
0059:0008t1 
0059%0040:0 
0059004410 
005910035383 
0059400;8380 
00598004993 
005928002214 
OO59I00DHty 
005980006814 
00591002713 
00591003080 
00591003010 
NEXT SEG 


000380479%2 
00031047982 


00031046450 
00031048410 
00033086430 


00037048430 


00604000040 
00601000081 
006048000081 
00601000410 
006030005:2 
00604000630 


3 


9 


3 


60 


PRT(697) =& WHILES 


STACK¢F42) = BACK 
STACK¢CF43) = FRON 


PRT(690) = GOSTMT 


STACK(F+2) = ELBW 


COMMENT 


TMT 


T 


COMMENT 


WHILESTMT COMPILES THE WHILE STATEMENT? 
PROCEDURE WHILESTMT3 


BEGIN INTEGER BACK» FRONTS 


FOULED «+ L3 


STEP1T3 BACK ¢ L3 BEXPS FRONT « BUMPLS3 
IF ELCLASS # DOV THEN ERR(132) ELSE 
BEGIN STEP1T3 STYMTS EMYTBCBBW,BUMPLe BACK) 3 


CONSTANTCLFEAN’ EMITBCBFC,FRONToL) END END WHILESTMT?S 


GOSTMT COMPILES GO TO STATEMENTS, 


EXPRESSION, 


PROCEDURE GOSTMT3 


BEGIN 


REAL ELBW3 


LABEL GOMCPPEXIT3 


SEF DEXP AND 


I¢ STEP] = TOV THEN STEPITS 
IF ELCLASS = LABELIO THEN TB1 « TRUE 
ELSE IF ELCLASS = SWITCHID THEN TB1 + FALSE 
FLSE BEGIN IF ELCLASS = POLISHV THEN 
BEGIN POLISHERC12# EMITOCBFW) END 
ELSE eFRRC504)3 
GO TO ExtT 


END3 


IF NOT LOCALCELBAT£II) THEN 


BEGIN 


IF TBq THEN 


EMITOCBFW)3 
STEPIT3 
GO TO EXIT 


GOSTMT LOOKS AT THE 


IF 17 1S SIMPLE ENOUGH WE GO DIRECTLY, 
OTHERWISE A CALL ON THE MCP 1S GENERATED IN ORDER TO GET 
STORAGE RETURNED, 


GENGO! 


BEGIN EMITVCGNATCELBATLIJ))3 


ENO) 


BEGIN ERR¢(504)3 GO TO EXtT ENDS 


END: 


IF TB1 THEN BEGIN GOGENCELBAT(I1),BFW) STEPITS 


CONSTANTCLEANS 


ELSE BEGIN 


GO EXIT END 


ELBW « ELBATrII3 


BANA3 


60 1S 


START OF SEGMENT 


61 


1S 


START OF SEGMENT 


11 LONG. NEXT SEG 3 
07489000 T 00038048410 
07490000 T 00031086qt0 
07491000 T 00031048410 

eee eeeees 61 
07491500 T 00618000030 
07492000 T 00618000081 
07493000 T 00614000084 
07494000 T 00641000410 
07495000 T 00611000610 
07496000 T 00611004010 

14 LONG» NEXT SEG 3 
07497000 T 00031048410 
07498000 T 00031098410 
07499000 T 00031048410 
07500000 T 00031048410 
07501000 T 00031048410 
07502000 T 00031048410 
07503000 T 00031048410 

KEKEEERER YG 62 
07504000 T 00621000010 
07505000 T 00621000030 
07506000 T 00621000210 
07507000 T 00621000383 
07511000 T 00621000680 
07512000 T 00621000783 
07513000 T 00621000913 
07514000 T 00621004482 
07515000 T 00621004493 
07546000 T 00623004183 
07516100 T 00628001284 
07516200 T 0062%0043t2 
07516300 T 00621004383 
07516400 T 00621003583 
07516500 T 00621001610 
07516600 T 00621004614 
07517000 T 006210014712 
07517500 T 00621003614 
07518000 T 00621004884 
07519000 T 00621002112 
07520000 T 00621002210 
07821000 T 00621002214 
07522000 T 00621002313 
07523000 T 


00621002333 


EMITOCOUP)s 
EMITOCADD)3 
EMITOCBFW)3 
GT3 « TAKE CGT4*G1TCELBW) )4+GT4!3 
FOR gT4 « gTae1 STEP 1 UNTIL GT3 DO 
GOGENCTAKECGT4) »BFW)3 
. ENDS 
EX1T! eND GOSTMT3 


PROCEDURE GOGENCLABELBATsBRANCHTYPE )3 
VALUE LABELBATsARANCHTYPES 
REAL LABFLBATsBRANCHTYPE3 
BEGIN 

IF BOOLEAN(CGT1eTAKECGT2¢GIT¢LABELBAT))),£1949) 
THEN EMITBCBRANCHTYPEs BUMPLeGT1,¢36912)) 

LABELR SETS THE SIGN OF THE ADDITIONAL INFO FOR A LABEL 
NEGATIVE WHEN THE LABEL IS ENCOUNTERED. SO THIS MEANS 
THAT WE NOW KNOW WHERE TO GO3 

ELSE BEGIN EmMITCGT12? EMITCBRANCHTYPE)3 
PUTCGT18L036836%1235GT2) END END GOGENS 


COMMENT 


COMMENT SrMPGO IS USED ONLY BY THE IF STMT ROUTINE, 
A STATEMENT 7S a SIMPLE GO TO STATEMENTS 
BOOLEAN PROCEDURE SyMPGO3 
BFGIN LABEL EXrT3 


1T DETERMINES IF 


IF ELCLASS = GOV 
THEN BEGIN 
JF STEPy = TOV THEN STEP]T3 
IF ELCLASS #» LABELID THEN 
1F LOCALCELBATCI})2 THEN 
BEGIN StMPGO « TRUES$ GO EXIT END; 
IT « Tels ELCLASS « GOV END3 


EXIT’ END SIMPGO} 


COMMENT IFSTMT COMPILES IF STATEMENTS, SPECIAL CARE 1S TAKEN TO 
OPTIMIZE CODE IN THE NEIGHBORHOOD OF THE JUMPS, TO SOME 
EXTENT SUPPERFUL,OUS BRANCHING IS AVOJDED! 
PROCEDURE IFSTMT3 
BEGIN REAL TieT23 LABEL EXrTs 


STACK¢Fe2) = TI 
STACK(F43) 2 T2 
IFCLAUSE3 
IF STMPGO 
THEN BEGIN 
T1 «+ ELBATr {73 


62 1S 


07524000 
07525000 
07526000 
07527000 
07528000 
07529000 
07530000 
07531000 


39 LONG 


07535000 
07536000 
07537000 
07538000 
07539000 
07540000 
07541000 
07542000 
07543000 
07544000 
07545000 


07546000 
07547000 
07548000 
07549000 


START OF SEGMENT 


63 18 


07550000 
07531000 
07552000 
07553000 
07554000 
07555000 
07556000 
07557000 


13 LONG 


07558000 
07559000 
07560000 
07561000 
07562000 


START OF SEGMENT 


07563000 
07564000 
07565000 
07566000 


T 
T 
T 
T 
T 
T 
T 
T 
, 


ee ee ee 


T 
T 
T 
T 
** 
T 
T 
T 
T 
T 
T 
T 
T 
i] 


* 


4qa4 4-4 


00628002420 
00628000484 
00628002583 
00621002610 
006a8009989 
00621003382 
00621003512 
0062100352 
NEXT SEG 


0003:048410 
00038048410 
00031048410 
00038048480 
00031048410 
00031046713 
00031049010 
00031049004 
00031049034 
0003104a9084 
00032049312 


00034049532 
0003:0495t2 
000310a95!2 
00031049512 
eee eee 6 
0063000010 
00638000010 
00631!0001!%2 
00631000382 
00633000420 
00631000533 
006310007t2 
00631000982 
NEXT SEG 


00031049512 
00031049582 
00031049512 
00031049512 
000310495!%2 
HHSHEEER §— 6 


006410000380 
00648000084 
00648000084 
0064!000413 


3 


3 


3 


4 


EXITS E&ND 


COMMENT 


LABELR HANDLES LABELED STATEMENTS, 


IF STEP? = ELSEV 
THEN BEGIN 
STEPITS 
IF SIMPgO 
THEN BEGIN 
GOGENCELBATCIJ»BFC)! GOGENCT1+BFW)3 
STEP1T# GO TO EXIT END ELSE BEGIN EMITLNGSGOGENCT1+BFC)3 
STMT § GO TO EX}7T END END 3 
EMITLNGS GOGEN(T1>BFC)3 
GO EXIT END! 
Ty « BUMPL? STMT3 
IF ELCLASS # ELSEV THEN 
BEGIN IF LeT1>1083 THEN ADJUSTS EMITBCBFCeTioL)3 
GO EXIT ENDS 
STEPIT3 
IF STMPGO 
THEN BEGIN 
T? + Lib L oTi*2sQOGENCELBATELI®BFC)S L «© T23 
STePrTs GO EXIT FNDS 
T2 + BUMPLS CONSTANTCLEANS 
IF LeT1>1023 THEN ADJUSTS EMITBCBFCeT1*L)3 STMT3 
i a THEN ADJUST EMI TBCBFWe,T20L)3 
TF STM 


17 PUTS L INTO THe 
ADDITIONAL INFO AND MAKES ITS SIGN NEGATIVE, 
AT THE SAME TIME ALL THE PREVIOUS FORWARD REFERENCES SET 
UP FOR 1T BY GOGEN, 
IN THE CODE ARRAY OF ALL FORWARD REFERENCES)3 


PROCEDURE LABELRS 


PRT(691) = |,ABELR 


BEGIN LABEL EXtTs ROUNDS 


DEFINE FLBATWORDSRROFeLINKEGT2#, INDEXSGI3# + ADDITIONAL 


STACKCF42) = OLDL 


BEGTA#ONEXTLINKSGT5S#S 
REAL OLDL3 


DO BrFaGIN OLDL « L3 
IF STEP: # COLON THEN 
BEGIN ERRC13393 GO TO EXIT ENDS 


XMARKCLBLREF)3 g& THIS WILL SORT AHEAD OF DECLARATION £110= 
4110 


% WHEN We GET AROUND TO THE XREF, 
IF NOT LOCALCELBATWORD ¢ ELBAT£I"1)) 
THEN BEGIN FLAGC13423 GO TO ROUND END) 
1F STEP] = COLON THEN 
BEGIN I « IT=t13} ADJUST END ELSE 
IF ELCLASS # LITNO THEN L « 4xC ELSE 
IF ELCLASSSASTRISK THEN 
BEGIN If MODE # O OR ASTOG THEN 
FLAG(S05)3 
ASTOG « TRUE! 
L « 4xPRTYT3 
END ELSE 


1T COMPILES 


CTHE ADDITIONAL INFO LINKS TO A LIST 


64 1S 


07567000 
07568000 
07869000 
07570000 
07571000 
07572000 
07873000 
07574000 
07875000 
07576000 
07577000 
07578000 
07879000 
07579100 
07580000 
07581000 
07582000 
07583000 
07584000 
07585000 
07585100 
07586000 
07587000 


41 LONG 


07588000 
07589000 
07590000 
07591000 
07592000 
07593000 


07594000 


START OF SEGMENT 


07595000 
07596000 
078596500 


07597000 
07597500 
07598000 
07598100 
07598200 
07899000 
07600000 
07600100 
07600900 
07600300 
07600400 
07600410 
07600420 
07600430 
07600440 
07600480 


T 
T 
T 
T 
T 
T 
T 
bi 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
¥ 
T 
T 
T 
T 
® 


4Ao4oaAdHso 


T 


KEES ERERE 


AAs Hast OO a 


00648000284 
00648000382 
0064!0004?0 
00641000484 
00641000404 
00642000533 
0064!0007!3 
0064!0040%4 
006410041433 
00643004382 
00641004383 
00661001680 
00641004684 
00648002084 
006a1002182 
0064!002133 


—6- 00648000183 


00648002231 
006430026334 
0064002783 
00641003010 
00643003430 
0064!003713 
NEXT SEG 


00031049582 
0003:0495t2 
00031049532 
00033049582 
000310499512 
0003:0a095!92 


00038049512 


00651000030 
0065!000010 
00651000030 


00652000080 
00658000081 
00651000113 
0065000333 
00651000733 
00651000733 
0065400086, 
00651004193 
00658004204 
006530045#%2 
00651001810 
006510014932 
00658002182 
0065:002280 
006510023382 
0065!'000410 


3 


65 


ROUNN? 


EXIT: 


I « ["2) 
IF STEP: # COLON THEN 
BEGIN ERRC133)3 GO TO EXIT ENDS 
IF L < OLDL THEN 
BEGIN FLAG(504)%3 GO TO ROUND END} 
GT1 «© TABLE(C 14193 
LINK © CADDITIONAL «© TAKECINDEX © GITCELBATWORD))) 
2(36312738 
IF ADDITIONAL < 0 THEN 
BEGIN FLAGC135)3 GO TO ROUND END} 
FOULED «+ L3 
1F TABLECI41) =& COLON THEN 
BEGIN 
IF LINK#O THEN BEGIN OLDL « L? 
DO BEGIN NEXTLINK # GETCLINK)3 
Lo LINKS 
IF OLDL,£36810J)"L,(362810)24328 
THEN FLAGC50) ELSE 
EMITCOLDL*LINK&0(64624682),4 
O&NEXTLINK(46246282143079)3 
Loe Lets 
ENn UNTIL LINK*#LINK@NEXTLING DIV 4ab3 
L « OLnus ENDS STEPITS 
nO IF STEPI €§ STRNGCON AND ELCLASS 2 
NONLITNO THEN EMI TWORD(C) 
ELSE BEGIN FRRCSOO)$ | «+ f=@1 END 
UNTIL STEP] # COMMAS 
tT « I" 3 
END ELSE 
WHILE LYNK # O 
DO BEGIN 
NEXTLENK © GETCLINK@2)3 
IF L@LINK>1023 THEN ADJUSTS 
EMITBCGETCLINK@1) eLINKeL)3 
LINK » NEXTLINK END3 
PUTC@ADDITIONAL&L( 36236842] 2 TNDEX)3 
ERRORTOG « TRUE END UNTIL STEP] #¢ LABELID! 


FND LABELR$ 


BRLEAVAXKAKARTALTALTELALELAKLAASLASKALISEAA LAL ALLL LALATHLALAAAAAKAKAL WAVY 
eT EEE ETE TST ee ee rer eT eT ert tr ri tT eT eee TT TT es Ty 


<* 
* 
b a 
%* 


THIS PROCEDURE HANDLES THE CASE STATEMENT, THE SYNTAX FOR THe CASE 
STATMENT 7S! 


CASE <AEXP> OF BEGIN «COMPOUND TAYL> 


*% 
*% 
*«% 
*% 
*% 
*% 
*% 
*% 
«% 
4 
*% 
*% 


07600500 
07600600 
07600700 
07600800 
07600900 
07600950 
07601000 
07602000 
07603000 
07604000 
07604010 
07604020 
07604030 
07604040 
07604050 
07604060 
07604067 
07604068 
07604070 
07604080 
07604085 
07604090 
07604100 
07604110 
07604120 
07604130 
07604140 
07604150 
07604160 
07605000 
07606000 
07607000 
07607100 
07608000 
07609000 
07610000 
07645000 
07646000 


8B LONG 


07646010 
07646015 
07646020 
07646025 
07646030 
07646035 
07646040 
07646045 
07646050 
07646055 
07646060 
07646065 
07646070 
07646075 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
ii 
T 
T 
T 
T 
2 
tT 
T 
T 
T 
T 
T 
T 
T 
’ 


NMOOMAMAOIAMAAMDANDANOO 


00651009410 
00658002610 
00651009782 
00653002684 
00651002983 
00651003332 
0065!003332 
00651003484 
00651003610 
00653003782 
00651003631 
00651003993 
00681'00a1%2 
0065!'004a1%3 
006510043%3 
006510045!2 
0065!0046!0 
0065!004733 
00651004933 
00653005230 
0065!005410 
006510055383 
00652005830 
006580059383 
0065!0061%2 
0065:0062!1 
0065#0067!2 
00658006684 
00653006983 
0065006913 
00653007112 
00653007280 
00651007410 
0065!0076:0 
00658007884 
0065:0079%3 
0065:008280 
00658008410 
NEXT SEG 


00033049539 
00038049589 
0003304952 
0003:049512 
00038049512 
00032049812 
00038049582 
00038049582 
0003:0495%a 
0003:0495t2 
00038049512 
00038049589 
00031049512 
000370495892 


3 


Z* 


THE CONDE GENFRATEND FOR THIS STATEMENT [S38 


<AEXP> 

LITC ? 

BFW BRANCH TO BRANCH TABLE 
STMT 0 

LITc ? 

BFW BRANCH TO RESUME 

STMT 1 

LiITc ? 

BFW BRANCH TO RESUME 


RRANCH TABLE? 


BFW BRANCH INTO TABLE 
BBW BRANCH TO STATEMENT 0 


BBW BRANCH TO STATEMENT 14 


BBW BRANCH TO STATEMENT N 
RESUME? 


NOTICE THAT? 


1) THE CASE INDEX IS NOT INTEGERIZED. IF YOU HAVE ANYTHING THAT *% 
MIGHT CAUSE THE INDEX TO BE UNNORMALIZED YOU WILL HAVE TO *% 


INTEGERTZE 17 YOURSELF: 


2) NO RANGE CHECKING IS DONE ON THE INDEX. IF YoU USE A NUMBER #% 


OUT OF RANGE THEN YOU WILL FALL OFF THE END OF THE WORLD, 


3) 1F A STATEMENT IN THE CASE COMPOUND TAIL IS NULL» NO CODE 1S #*% 
GENERATED FOR THE STATEMENT, INSTEAD» THE BRANCH TABLE GOFS *% 


NIRECTLY TO RESUME, 


4) qf A STATEMENT IN THF CASF COMPOUND TAIL IS A SIMPLE GO TO» ¥*&% 


THE STATEMENT DOES NOT HAVE «A BRANCH TO RESUME aFTER IT, 


*% 


& 1 He Me he ee ee ei ee ee ee ke aT 

RELALAL ALATA LALA TTL ALA LTLAL SLL LALA SALAS LALLA LATA L LLL AL ALT SLATE 

PROCEDURE CASESTATEMENT? 
PRT(692) = CASESTATEMENT 


BEGIN | 
ARRAY CASEADDRESS(029913 


% THIS ARRAY HOLDS THE RELATIVE 


STaACK¢Fa2) = CASFADDRESS 


® ADDRESS OF THE BEGINNING OF EACH 
® CASE, 


¥1150 
$1150 
Z115° 


¥115« 
115" 


07646080 
07646085 
07646090 
07646095 
07646100 
076464105 
07646410 
07646115 
07646120 
07646325 
07646430 
07646135 
07646440 
07646145 
07646150 
07646155 
07646160 
07646165 
07646170 
07646175 
07646180 
07646185 
07646190 
07646195 
07646200 
07646205 
07646270 
07646215 
07646220 
07646225 
07646230 
07646235 
07646240 
07646245 
07646250 
07646255 
07626260 
07646265 
07646270 
07646275 
07646280 
07646285 
07646290 
07646295 
07646300 
07646305 
07646310 
07646315 
07646320 
07646325 


07646330 
07646335 


START OF SEGMENT 


07646340 


ADM AAIGAINVIEMAAIAANAIAOAANANANAAAIAAAAANNANMAD ANAM AMAA AMA AMA AANA AAA 


C 


0003:0495!9 
00033049582 
0003804a95%2 
00033040880 
000380a95!t2 
0003:0495!2 
00038049512 
00033049512 
00033049532 
00038049532 
0003104895192 
00033049582 
0003:0495:2 
000310495t92 
00033049512 
00031049532 
00038049532 
000310495192 
00033049582 
00031049532 
00031049512 
0003:0495:2 
00038049532 
00038049582 
00031049582 
00031049512 
00038049512 
000380495!ta 
000330495!2 
000310495382 
0003:049532 
00038049512 
00038049512 
00031049532 
00031049952 
000390495?2 
000380a95%2 
000310495!12 
00032049582 
0003%04a95%2 
00031049532 
000310495t2 
00031049512 
00033049512 
00034049512 
000380a95t2 
0003'0a9582 
00038049589 
0003:04g05i90 
00031049532 


0003:0495%a 
000310495t2 


eee Ree OE 66 


C 


00663000113 


07646345 c 00661000183 


INTEGFR %115= 
LINK» ¥ HOLDS RELATIVE ADDRESS OF FYRST OF #4458 
STACKeFe3) = LINK 
% BRANCHES THAT MUST BE FIXED UP To %145* 
% BRANCH TO THwE RESUME POINT, 21150 
ADR, ® HOLDS RELATIVE ADDRESS OF THE BRANCH 
STACK¢(F44) = ADR 
% AROUND THE CASE STATEMENTS TO THe 1158 
% BRANCH TABLE. THIS BRANCH GETS FIXEN 
® UP WHEN WE FIND WHERE THE BRANCH TABLE 
% GOES, %115° 
Ne % COUNT OF NUMBER OF CASE STATEMENT 4115= 
STACK¢F45) = N 
% ENCOUNTERED, ¥115= 
ENDOF IT» % ADDRESS OF RESUME POINT ¥115= 
STACK(F+6) = ENDOFIT 
Je % TEMPORARY *115« 
STACKCF4e?7) 3 J 
K} % TEMPORARY %115° 
STACK¢F410) = K 
% “115° 
BOOLFAN €115= 
GOTOG! % TRUE IF WE ARE COMPILING A SIMPLE 4115 
STACK¢Fseil) = GOT0G 
% GO T0, %115@ 
LABEL XIT3 #115° 
4 %115° 
% £115" 
STEPIT? % STEP OVER "CASE 2115 
AEXPS % GENERATE CODE FOR CASE INDEX £1159 
IF STEP! # BEGINV THEN & NOTICE WE JUST JUMPED OVER “OF” 81156 
BEGIN $115" 
ERR(70)3 GO TO XIT3 ¥115@ 
ENDS Zi15« 
EMITCO)# & GENERATE DUMMY BRANCH TO BRANCH TABLE, WILL FIX 1158 
EMITOCBFW)S & IT UP LATER, $115 
ADR t= |3 81156 
WHILE STEPT # ENDV DO £115= 
BEGIN % PROCESSING CASE STATEMENTS %115° 
ERRORTOG t= TRUES £115" 
IF ELCLASS » SEMICOLON THEN % NULL STATEMENT, NO CODE NEEDED 
N te N #1 & THrS LEAVES A ZERO IN CASEADDRESSEN) %115- 
FLSE £115 
REGIN %115- 
CASFADDRESS(NI t= Ls % REMEMBER BEGINNING ANDRESS Of ¥115@ 
N te N + 23 ® THIS CASE, *115= 
IF ¢GOTOG ts StMPGO) THEN £115 
ELBATEI#ei71) t= ELCLASS $= GOVE & REMEMBER IF SIMPLES115= 
STMT3 & PROCESS THE STATEMENT #1158 
IF ELCLASS ws SEMICOLON THEN £1159 
IF NOT GOTOG THEN % GENERATE DUMMY BRANCH TO RESUME 21158 
BEGIN £1158 
~ EMITCLINK)S $415" 
FMITOCBFW)3 £115 
LINK $1159 
END 7115 
FLSE & SIMPLE GO TO. NO CODE TO GENERATE %115@ 
ELSE ¥115° 


07646350 
07646355 


07646360 
07646365 
07646370 


07646375 
07646380 
07646385 
07646390 
07646395 


07646400 
07686405 


07646410 
07646415 


076464290 
07646425 
07646430 


07646435 
07646436 
07646440 
07646445 
07646450 
07646455 
07646456 
07646457 
07646458 
07646459 
07646460 
07646465 
07646470 
07646475 
07646480 
07646485 
076486490 
07646495 
07646500 
07646505 
07646510 
07646515 
07646520 
07646525 
07646530 
076496535 
07646540 
07646545 
07646550 
07646555 
07646560 
07646565 
07646570 
07646575 


aan an 


AO OIA NOAOIVIOAIOMADGAOIYAAOMAAONANANAAAAAAAANANDA ANH 


00663000133 
00662000423 


00664000133 
006623000183 
0066:000183 


00668000113 
00661000133 
00663000133 
0066:000413 
00661000483 


00661000413 
0066:000123 


0066:000133 
0066!000183 


0066!0001 83 
00668000423 
00663000133 


00661000113 
00661000113 
00661000113 
00661000133 
00663000123 
00661000220 
00661000281 
00668000333 
00668000430 
00661000583 
00661000533 
006610006:0 
006640007382 
0066000733 
0066!000933 
00661000933 
00661001080 
006680011 %2 
00661001230 
006670014281 
006680013!2 
0066100,48, 
00663004513 
00661001684 
0066:0020:0 
00661009084 
0066!0021!2 
0066:0022!0 
00662002284 
00661002333 
00664002480 
0066100205380 
0066!:0025!2 
00661002512 


PRT(623) = FYLLSTMT 


PRT¢(624) = COCT 


tF ELCLASS # ENDV THEN #115° 
ERR(71)3 K115° 
FND3 %115@ 
END OF WHILE LOOPS £145° 
FNDTOG ta TRUE} KE SKIP OVER COMMENT AFTER END £115= 
DO STOPMEFINE t# TRUE UNTYHL £115" 
STEP? < ENDV AND ELCLASS > UNTILV OR NOT ENDTOG! “1158 
ENDTOG i= FALSE £1159 
EMI TBeBFWeADRoL)3 % FIX UP BRANCH TO BRANCH TABLE %115= 
EMYTOCNUP)3 % GENERATE CODE TO MULTIPLY INDEX $1150 
EMITOCADD)3 % BY TWO AND BRANCH INTO BRANCH TABLE $1156 
EMITOCBFW)3 115" 
ENDOFIT t= |, # 2xN3 % CALCULATE WHERE RESUME 1S £115" 
WHILE CJteJ+#1) $< N DO & GENERATE THE BRANCH TABLE %115° 
EMITBCBBWeLtal.+2eTF (KteCASEADDRESS(JU"4)) = 0 THEN %115° 
. ENDOFIT ELSE K)3 2115 
J ta LINK? ® TO MAKE THE LOOP WORK 4115 
WHILE CLINKs#J) # 0 DO $115" 
BEGIN & FIXING UP BRANCHES To RESUME $115 
Jo tm GETCLINK™2)3 & LOCATION OF NEXT BRANCH TO FIX 51156 
FMITBCREWeLINKoL 3 ¥115" 
ENDS £115 
X1T3 . . %1158 
END OF cASE STATEMENTS ¥115= 
PROCEDURE FILLSTMTCSIZE)$ VALUE SIZE3 INTEGER SIZE} 
BEGIN 
COMMENT *cOCT" PERFORMS THE OCTAL CONVERT FOR THE FILL STATEMENT, 
tF THERE ARE ANY NON@OCTAL DIGITS» THrS PROCEDURE RETURNS 
A ZERO AND THEN THE 3 LOW@ORDER BITS OF THE BAD DIGIT ARE 
RESET AND IGNORED AND ERROR NUMBER 303 IS PRINTED. "CocT™ 
ALLOWS FLAG BITS To BE SET, WHEREAS *“oCTIZE® DOES NOT. 
N NUMBER OF CHARACTERS TO BE CONVERTED, 
SKBIT NUMBER OF BITS TO SKIP BEFORE STARTING CONVERSION, 
THIS IS BECAUSE THE NO, OF CHARS» MAY BE LESS THAN 
8 AND IT MUST BE RIGHT*JUSTIFIED IN COCCODEFILFE), 
ACC ADDRESS OF THE ACCUM WHERE ALPHA INFO IS KEPT, 
; 
REAL STREAM PROCEDURE COCTCN»eSKRIT»ACCeCOISVALUE Ne SKBITS 
BEGIN 
SptsACcs SyteSt+63 DOlsxCDs DSteB L17%00000000"3 
Drt=#cD % SKIP SKBIT pDBSTALLY#ts1? 
NCIF Sc>*7"THEN TALLY%203 SKIP 3 SB? 
3c1F SB THEN DStmwi SET ELSE SKIP 1 DB3 SKIP 1 SB))3 
COCTISTALLY 
FND cOcT} 
REAL T23 


66 15 


07646580 
07646585 
07646590 
07646595 
076466014 
07646602 
07646603 
07646604 
07646605 
07646640 
07646615 
07646620 
07646625 
07646630 
07646635 
07646640 
07646645 
07646630 
07646655 
07646660 
07646665 
07646670 
07646674 
07646675 


60 LONG 


07647000 


07647500 
07648000 
07648500 
07649000 
07649500 
07650000 
07650500 
07651000 
07651500 
07652000 
07652500 
07653000 
07653500 


START OF SEGMENT 


07654000 
07654500 
07655000 
07655500 
07656000 
07656500 
07657000 


07657500 


C 
C 
Cc 
C 
¢ 
C 
Cc 
C 
C 
C 
Cc 
C 
Cc 
Cc 
C 
Cc 
C 
C 
Cc 
C 
Cc 
C 
C 
Cc 
, 


—~ 


De ee ee ee ee ee 


ee 


00664002513 
00661002684 
0066002630 
0066:0028!10 
00661009884 
0066:00209%2 
00661003084 
00661003480 
00661003484 
00661003610 
00663003634 
00661003713 
0066:003680 
00661004010 
0066!004210 
00663004630 
0066:004810 
00661004952 
00663005034 
006610050814 
006610052!4 
00661:00§53!3 
006618005410 
00661005532 
NEXT SEG 


00031049512 


00038049582 
0003804a95!2 
00031049582 
000310495!2 
00038049512 
00031049512 
00038049532 
0003049512 
000310495382 
00038049582 
00033049582 
000310495! 
00038049532 


ehh hee ed 6 


00671000010 
00678000030 
00678000210 
006710003182 
00671000582 
00672000732 
00678000733 


Q0675000881 


3 


7 


STACK¢Fs2) = T2 
LABFL L13 
STREAM PROCEDURE ZEFROCD)) 
PRT(625) = 7ZEERO 
BFGIN 
DyteDsOSteB LIT"00000000"3 
S122D331032¢DSt8WNS))3 DSt230 WDS3 
END ZFFROS 


XMARKCASSIGNREF)S & FILL STATEMENT 
STRFEAMTOG*#BOOLFAN(2)8 
SEGMENTSTARTCTRUE)3 
IF STEPY#ASSTGNOP THEN ZEFROCCODE(122 
ELSE BEGIN 
FOR T2tei STEP 1 UNTIL SIZE DO 
BEGIN 
IF STEPI>1OMAX THEN 
BEGIN 
IF ELCLASS#L1TNO AND ELCLASS#NONLITNO THEN 
IF ELCLASS#STRNGCON THEN 
IF FLCLASS#ADOP AND 
CSTEPITmNONLITNO OR ELCLASS#LITNO) THEN 
CtxeC & ELBATEI"190112181) 
ELSE BeGiN FRROR(302)3 GO TO Ly END? 
IF ELCLASSeSTRNGCON AND COUNTs8 THEN 
MOVECHARACTERS¢ 8s ACCUME 1 1230CODE(T2220) 
ELSE MOVECL se CsCodECT2)) 
END . 
FLSE IF COUNTS19 AND ACCUMF1],£16816)m"0CT” THEN 
BFGIN 
IF COCTCCOUNT@3248=(COUNT@39x3eACCUM(1 Je 
CODECT2))#0 THEN FLAG( 303) 
END 
FLSE BEGIN ERROR¢302)% GO TO Li END 3 
IF STEPT#COMMA THEN GO TO Li 
ENDS 
ERROR(54)3 
ENDS 
Lis 
RIGHTCSIZEX4)3 
STREAMTOGI#FALSE3 
SEGMENT(S1Z620)3 
PROGDFSCBLORCADDRSF,» TRUE» SIZE ®DNES)3 
END FYLLSTMTS 


PROCEDURE STMT3 
BFGIN LABEL 


Lie L2e L3e L4e LSe b6e L7e Loe LOe 140% 
bile Lt2- Lids L145 LiSe L1i6» Lives L18e Li9s L20s 


x1108 


67 1S 


07658000 
07658500 


07659000 
07659500 
07660000 
07660500 


07660600 
07661000 
07661500 
07662000 
07662500 
07663000 
07663500 
07664000 
07664500 
07665000 
07665500 
07666000 
07666500 
07667000 
07667500 
07668000 
07668500 
07669000 
07669500 
07670000 
07670500 
07671000 
07671500 
07672000 
07672500 
07673000 
07673500 
07674000 
07674500 
07675000 
07675500 
07676000 
07676500 
07677000 
07677500 


~-41 


4-4-4 


AN HHH HHH MHASH tt ot te HH tt OD 


00671000884 
00671000884 


0067100088, 
00678000982 
00672004021 
00678004280 


00671003281 
00678004722 
00671004810 
00671004884 
00671002392 
00671002410 
00671009582 
00671002582 
00671002610 
00678002684 
00678002880 
00678002983 
00671003084 
006710033!2 
00671003583 
00678003713 
00673003983 
00678004480 
00671004884 
00671004982 
00671005210 
00671005281 
00678005611 
006748006182 
00671006183 
00671006440 
006710065%2 
00671006880 
006710068114 
00671006884 
00671006912 
00678007080 
00678007182 
00673007210 
00671007383 


76 LONGse NEXT SEG 3 


077431000 
07712000 


07713000 
07714000 


T 
T 


T 
T 


000310495t2 
00038049512 


START OF SEGMENT **eeeeeu ee 68 


006810000t0 
0068000010 


AGAIN 


LisSL2sL3sLasLorLo6rLOsLgLtLir3ssb ras LySiL16sLy7IL20tLaqtL25tL26ILoosLoge 


L2le Lae 
U31* L322» 
LOt» L42s 
L51* L5S2e 
SWITCH S 
Lie La» 
Lite Li2e 
Laie Lee 
L3le 32» 
Ladies 42 
L511 L52s 


» 


L235 Lake 
L33* L3ae 
L435 L4ae 
L5S3-° L543 


U3» L4» 
bi3s Lids 
L23* L2a» 
L335 L340 
L430 Laae 
L53» L543 


LABEL AGAIN*EXI TS 
STACKCT «¢ 03 
GO To STELCLASSY3 
IF ELCLASS = COLON THEN 
BEGIN STEPYT3 
IF ELCLASS = COLON THEN 
BEGIN ADJUST? 
ELSE tF ELCLASS = LITNO THEN L @ 4x¢ 
ELSE 1 « I@13 
IF Lb <« GT1 OR STEPY # COLON THEN 
REGIN FRR(504)3 GO TO EXIT END3 


END) 


STEPITS 


L25» 
L 35° 
L45e 


L5e 

Li5s 
L25» 
L35» 
LAS» 


GO TO AGAINS 


L26ep 
L 36° 
L46. 


LO» 

L16e 
L268 
L36s 
La6s 


GTi « L3 


L227» 
L37» 
L47 >» 


L7s 

Li7s 
L27s 
L37» 
L4A7s 


L285» 
38s 
L468, 


L&e 

Li6e 
L26e 
L36e 
L48e 


1 #* IT" END 


L229» 
L 39>» 
L499» 


LQ» 

19s 
L29e 
L399» 
L49e 


IF ELCLASS = O THEN FLAGC100)3 FLAGC145)3 


L33*LIBILI5SIL36FL37IL398 
ERR(144)s GO TO ExIT3 


GO TO FXITs 


PROCSTMTC(CTRUE)S GO TO EXITS 


L731,88 

SUBHANDC TRUE )3 
LiOsLiBIiLy9s 
Wi2t 


STRMPROCSTMT3 


L221L238L263L27tL3g0rL3ys 


L323 
L368: 


Laos 


L4e% 
Laat 
Laas 
Lass 


VARIABLECFS)3 GO TO EXIT3 
LARELR’ GO TO AGAINS 
POLISHERCO)$ GO To EXrT3 


IF ELBATECI J «ADDRESS = STREAMV THEN 
BEGIN INLINE$ GO TO EXIT ENDS 


FLAG(146)3 
IF TABLECI"2) # ENDV AND MODE > O THEN 


BEGIN I « 128 ELCLASS «+ ENDV3 GO TO EXIT ENps 


GO TO EXIT} 


1 « pets EFRRORTOG ¢ TRUE’ BLOCKCFALSE)3 


ELCLASS « TABLE¢leI°1)# GO TO EXYTS 
DBLSTMT3 GO TO FXyT3 
FORSTMT’ GO TO FX1TI 


WHILESTMTS GO To EXITS 


DOSTMT$ GO TO EXIT3 


L30>° 
L40>» 
L505 


L10. 
L20s 
L300 
L40>» 
L50s 


07715000 
07716000 
07717000 
07718000 
07719000 
07720000 
07721000 
07722000 
07723000 
07724000 
07725000 
07726000 
07726990 
07727000 
07727010 
07727020 
07727030 
07727040 
07727050 
07727060 
07727070 
07727080 
07727090 
07727100 
07727110 
07728000 
07729000 
07730000 
07732000 
07732000 
07733000 
07734000 
07735000 
07736000 
07737000 
07736000 
07739000 
07740000 
07741000 
07742000 
07743000 
07744000 
07745000 
07746000 
07747000 
07748000 
07749000 
07750000 
07751000 
07752000 
07753000 
07754000 
07755000 
07756000 
07757000 
07758000 
07759000 


AAA H HHH HHA Ht A HA A Ht AH AH A RH Ht 


00680000380 
0068!000080 
0068:0000!10 
0068:000030 
0068!000080 
00681000211 
0068:0002!1 
0068800022 1 
00681000211 
00681000231 
00663000231 
0068003030 
00681003010 
00661003133 
0068!0034:0 
006840034314 
00681003684 
00683:0037%2 
0068!003913 
00684004133 
00683004410 
00683004610 
006820048!0 
00683004834 
0068004912 
0068!0049%2 
00681005433 
0066:0052%0 
00681005230 
00683005382 
00681005480 
0068:0055%2 
00683005680 
0068:0057:12 
0068:005840 
006810059190 
00681005982 
006810060!0 
00682006132 
006880046210 
00681006210 
0068!0063%2 
0068:00¢6410 
00681006523 
0068100671'2 
00681006713 
00681007081 
00661007333 
006810076!0 
006880079892 
00688007932 
00683008010 
0068!0080!%0 
00641008142 
0066t008132 
0068#0082t0 


0068:0062!0 


PRT (696) 
PRT ¢697) 
PRT¢630) 
PRT(631) 
PRT(632) 
PRT (633) 
PRT(634) 


PRT(635) 
PRT( 636) 


PRT (637) 
PRT¢640) 


PRT¢641) 


PRT¢642) 


B 
STMTST 
REGO 
RETURN 
ADDRES 
V 

VRET 


BRET 
SIGNA 
STGNB 
SIGNC 
INT 


CONSTA 


L494 %115° 
. CASESTATEMENTS G0 TO FxXIT3 £115 
L514: 
IPF STMT’ GO TO EXITS 
L523 
GOSTMT#’ GO TO EXIT? 
L533 
TOSTMT? GO TO EXIT3 
L5as 
If STEP! = DECLARATORS THEN 
BEGIN 
IF ELBATCIJ,ADDRESS « STREAMV THEN IF STEP] « % 6 
LEFTPAREN THEN % 6 
REGIN % 6 
ELCLASS¢TABLECyeyr1) 3 
COMPOUNDTAYL } 
GO To EXIT 3 
FNO ELSE | « I = 43 £6 
Te]fr 43 Z 6 
BLOCK (FALSE )3 END ELSE COMPOUNDTAIL? 
L46sla7tLabtyso3 
L4i: 21158 
EXIT! FND STMT3 


PROCEDURE IOSTMT$ 
TF STEP! # LITNO OR ¢(GT1*FLBATCIJ.,ADDRESS)>15 THEN ERRCOBIELSE 
BFGIN EMITCELBAT(C1711,ADDRESS&GTICG134734I8GT1£ 3694483393 


STEPIT 


END SCOPE STATEMENT: 


PROCEDURF FORSTMTS 


OWN BOOLEAN SIGNAsSIGNB»SIGNCe 


BEGIN 
OWN 
ART 
STORE 
NA 


REAL BeSTMTSTART.REGO,RETURNSTORE sADDRES »VeVRET» 


BRET 


INTs 


CONSTANAsCONSTANBsCONSTANCS 


68 IS 


07759400 
07759200 
07760000 
07761000 
07762000 
07763000 
07764000 
07765000 
07766000 
07767000 
07768000 
07768100 
07768310 
07768120 
07768130 
07768140 
07768160 
07768170 
07768180 
07768200 
07769000 
07770000 
07771000 


101 LONG 


07991000 
07993000 
07994000 
07995000 
07996000 
07997000 


08008000 
08009000 
08010000 


START OF SEGMENT 


08012000 


08013000 


C 
Cc 
T 
T 
Vy 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
T 
r) 


jas 


T 
T 
T 
* 


08011000 T 


T 


T 


aT LLL: 


0068!006332 
00683008332 
0068:008420 
0068!0084!0 
00683:0085!2 
0068!0085'2 
0068?008610 
00681008610 
0068:0087!2 
006810087%2 
0068008830 
006610088384 
006880091t2 
00688009433 
0068t009220 
0068:0094:0 
00681009484 
006880095t92 
00681009782 
0068!0098!0 
0068:0100!0 
0068!0100:0 
00683010080 
NEXT SEG 


0003:049532 
000380a95%2 
00031049582 
00038050033 
000380505!2 
00033050532 


0003!050513 
000318050513 
00038050533 


006910000!0 
00698000010 


0069%0000!0 


3 


69 


PRT(643) & CONSTANB 
PRT(644) @ cCONSTANC 
DEFINE SIMPLEB = SIGNCH, FORMALV = SIGNA#, 
SIMPLEV = CONSTANA#s A & V#e Q & REGOR, 
OPDC = TRUP#s nNESC = FALSE#s K = BRET# 
LABEL EXITS 
COMMENT PLUG EMITS EITHER AN OPERAND CALL ON A VARIABLE OR A CALL ON A 
CONSTANT DEPENDING ON THE REQUIREMENTS? 
PROCEDURE PLUG(CsA)! VALUE C,A$ REAL AS BOOLEAN C3 
PRT¢645) = PLUG 
1F C THEN EMYTNUMCA) ELSE EMITVCA,ADDRESS 93 


COMMENT SYMPLE DETERMINES IF AN ARITHMETIC EXPRESSION 1S + OR @ AQ 
CONSTANT OR A S}MPLE VARIABLE. IT MAKES A THROUGH REPORT 
ON ITS ACTIVITY, 17 ALSO MAKES PROVISION FOR THE RESCAN 
OF ELBAT ¢cTHyS +S THE ACTION WITH K © SEE CODF IN THE 
TABLE ROUTINE FOR FURTHER DETAILS)3 
BOOLEAN PROCEDURE SIMPLE(B,A,S)%3 BOOLEAN B,S3 REAL AS 
PRT¢(646) = SIMPLE 
BEGIN 
S « IF STEP! # ANOP THEN FALSE ELSE ELBATCI12, ADDRESS 
ms SUB} 
IF ELCLASS # ADOP THEN STEPIT!S 
IF ELCLASS 2 NONLITNO AND ELCLASS ¢ STRNGCON 
THEN BEGIN K © Ke13 SIMPLE « TRUE? 
ELBATrI) * O&COMMENTVE 284437 J&KC16837 84193 
INFOCOsK) «+ A «+ C3 § « TRUE END 
ELSE BEGIN 
Bo « FALSES A © ELBATCII3 
SIMPLE « REALID $ ELCLASS AND ELCLASS § INT?ID END} 
STEPIT END SIMPLES 


COMMENT TEST EMITS THE STEP*UNTIL FLEMENT TEST? 
PROCEDURE TEST3 
PRT(647) = TEST 
BEGIN 
If NOT CONSTANB THEN 
BEGIN EMITOCSUB)3 Jr SIMPLEB THEN EMI TVCB, ADDRESS) 
ELSE BEGIN 
EMITLC2+LeBRET)! 
EMI TB¢BBWseBUMPL»sB)3 
ENDS 
EMITOCMUL)#8 EMET¢CO) ENDS 
EMITOCIF SItGNB THEN GEQ ELSE LEQ)3 EMIT (0938 LeLwt 
END TEST) 


BOOLEAN PROCEDURE SIMPTCALL)3 VALUF ALLS REAL ALL? 
PRT(650) = StMPY 


08014000 
08015000 
08016000 
08017000 
08018000 
08019000 
08020000 


06021000 


08022000 
08023000 
08024000 
08025000 
080296000 
08027000 


08028000 
08029000 
08030000 
08031000 
08032000 
08033000 
08034000 
08035000 
08036000 
08037000 
08036000 
08039000 


08040000 
080441000 


08042000 
08043000 
08044000 
08045000 
08046000 
08047000 
08048000 
08049000 
08050000 
08051000 


08052000 


ie Ree ee ee ee ee ee ee ee | SS 


~~ 


Asta HA 


00698000080 
00691000010 
00693000030 
00694000030 
006920000180 
00691000080 
0069000030 


00691000010 


006910003!3 
00692000383 
00691000383 
00691000383 
00692000383 
00691000383 


00691000383 
00691000333 
00691000614 
0069:000834 
00691001030 
006910014132 
00698003481 
00691004783 
00691002113 
00691009210 
006920024!0 
00691002684 


00698000912 
00691002932 


00691002912 
00691002912 
00691003084 
00691003214 
00691003410 
00691003610 
00691003810 
00691003810 
00691003913 
00691004382 


00692004480 


BEGIN 
CHECKER(VRET+*ALL)3 
ANDRES « ALL,ADORESS3 
FORMALV « ALL.£9%9] m= 23 
IF T » ALLeCLASS > INTARRAYID OR T ¢< BOOID OR 
GTi « (T#BO00ID) MON 4 < 4 THEN 
FRRCREALCT # 0) x 51 + 10093 
INT « GT1 # 23 
StMPr ¢ T § NTHD END SIMPY3 


COMMENT STORE EMITS THE CODF FOR THE STORE INTO THE FOR INDEXS 
PROCEDURE STORE(S)3 VALUE S3 BOOLEAN S3 
PRT¢651) = STORE 
BEGIN 
IF FORMALVY THEN BEGIN EMITOCXCH)$ S « FALSE END 
ELSE BEGIN 
EMITLCADDRES)3 
IF ADDRES > 1023 THEN EMITOCPRTE) END3 
T «© (REALCS)41)%163 
EMITOCCIF «NT THEN T#542 ELSE 4xT)4+4) END STORE? 


COMMENT CALL FFFECTS A CALL ON THE INDEX3 
PROCEDURE CALL¢S)3 VALUE S3 BOOLEAN S83 
PRT(682) = CALL 
BEGIN 
IF SIMPLEV 
THEN IF S THEN EMITVCADDRES) ELSE EMI TNCADDRES) 
ELSE BEGIN 
EMITLC2+L"VRET)S 
EMITBCBBWseBUMPLeV)3 
IF § THEN FMrTOcCLOD) END END CALL! 


PROCEDURE FORLIST¢NUMLE)! VALUE NUMLES BOOLEAN NUMLE3 
PRT¢653) # FORLIST 
BEGIN 
PROCEDURE FIXCSTORE+BACK»sFORWARTsSTART)3 


PRT(654) # FIX 
VALUE STORE »BACKsFORWART» START 
REAL STOREs+BACKs FORWARTsSTARTS 
BFGIN 
EMITBCGETCFORWART#1) sFORWARTs START) 3 
If RETURNSTORE # 0 
THEN BEGIN 
L « STORES EMI TNUMCB@=BACK)} 
EMITPAIRCRETURNSTORE®STD) END END FYyX3 


08053000 
08054000 
08055000 
08056000 
08057000 
08058000 
08059000 
08060000 
08061000 


08062000 
08063000 


08064000 
08065000 
08066000 
08067000 
08068000 
08069000 
08070000 


08071000 
08072000 


06073000 
08074000 
08075000 
08076000 
08077000 
08078000 
08079000 


06080000 


08081000 
08082000 


START OF SEGMENT 


080863000 
08084000 
08085000 
08086000 
08087000 
08068000 
08089000 
06090000 


i eee | 


4+ 


a4 a4 Aa 


ee i 


T 


T 
T 


ECR RE 


+t st 


00691004410 
00694004410 
00691004680 
00698004783 
00694004912 
00694005210 
00691005484 
00691005712 
006910058t4 


00691006210 
00691006210 


00694006210 
0069400620 
0069300652 
00691006533 
0069006684 
006918006884 
00698007010 


00691007430 
006910074%0 


00698007420 
00691007410 
006930075382 
00691007810 
00698007982 
00691008034 
006910083!2 


006910084'4 


006930084t4 
00698008481 


0070!0000t0 
007040000!0 
00701000030 
00701000080 
00703000280 
00701000284 
00701000333 
00701000533 


70 


| 


STACK¢F 42) 
STACK ¢F 43) 
STACK ¢F 44) 
STACK EF 45) 


BACKF YX 
FORWARD 
FOOT 

STOREF] 


BRANCH 


xX 


COMMENT 


COMMENT 
COMMENT 
COMMENT 


COMMENT 


COMMENT 


COMMENT 


COMMENT 


INTEGER BACKFIX, FORWARDBRANCHs FOOTs STOREFIX3 


LABEL BRNCHe EXITS 
STOREFIX » LJ @ # REALCMODEsS0)433 
FoR kK « { STEP 4 UNTIL @ DO EMITOCNOP)3 
IF NUMLE 
THEN BEGIN 
BACKFIX « L3 
IF FORMALV THEN cCALLCDESC) END 
FLSF BACKFIX « V + REALCSIMPLEVI"13 


AEXPS 
PrcK uP FIRST ARITHMETIC EXPRESSIONS 
If FLCLASS «» STEPV 
THEN BEGIN 
HERE WE HAVE A STEP ELEMENTS 
BACKFIX « BUMPLE 
LEAVE ROOM FOR FORWARD JUMPS 
IF FORMALV THEN CALLCDESC)3 CALLCOPDC)3 
FETCH INDEXS 
1F 1 > 70 THEN BEGIN NXTELBT + 13 1 «© O END 
ELSE REGO + 73 
1F SIMPLEB « SIMPLECCONSTANBeBeSIGNB) AND 
CELCLASS = UNTILV OR ELCLASS = WHILEV) 
THEN BEGIN 
WE HAVE A SIMPLE STEP FUNCTIONS 
PLUGCCONSTANB ,8)3 
END ELSE BEGIN 
THE STEP FUNCTION IS NOT SIMPLE? 
SUBROUTINES 
I ¢ IF I < 4 THEN O ELSE REGOS STEPIT3 
SIGNB + CONSTANB «© FALSES 
EMITCOD# Be LS} 
AEXP$ EMITOCXCH)3 
BRET « L3 
EMITOCRFW) ENDS 
EMITOCREAL¢SIGNB)x32+ADD0)3 
EMI TBCBFWeBACKFIXe LDF 
1F ELCLASS « UNTYLV 
THEN BEGIN COMMENT STEPeUNTIL ELEMENTS 
STORECTRUE)$ IF FORMALV THEN CALLCOPDC)3 
STePITS AEXPS TEST END 
ELSE BEGIN COmMENT STEPeWHILE ELEMENTS 
IF ELCLASS #¢ WHILEV THEN 
BEGIN ERR¢ 15323 GO TO EX!:T END? 
STEPIT? STORECFALSE)$ BEXP END END 
ELSE BEGIN 
We DO NOT HAVE a STEP ELEMENTS 
STORECFALSE)3 
IF ELCLASS = WHILEV 
THEN BEGIN 
WE HAVE A WHILE ELEMENTS 
STEPIT’ BEXP END 
ELSE BEGIN 


WE CONSTRUCT A 


08091000 


08092000 
08093000 
08094000 
08095000 
08096000 
08097000 
08096000 
08099000 
08100000 
08101000 
08402000 
08403000 
08404000 
08105000 
08106000 
08107000 
08108000 
08109000 
081419000 
08111000 
08442000 
08413000 
08444000 
08415000 
08416000 
08117000 
08418000 
08119000 
08120000 
08121000 
08122000 
08123000 
08424000 
08125000 
08426000 
08427000 
08428000 
08429000 
08430000 
08131000 
08132000 
08133000 
08;34000 
08435000 
08136000 
08437000 
98438000 
08439000 
08440000 
08141000 
08142000 
08143000 


A AMM A HAHAH HA A A A Ht At Ht ot ts 


00708000631 


0070800068; 
0070300063; 
00708000933 
00708001410 
00708001420 
00708003484 
007048004583 
00708004782 
00708003982 
00708001982 
0070:0049:3 
00708001983 
007080029080 
0070002182 
0070!00914!2 
00708002234 
00701002214 
007010025%2 
007080025%2 
00708009733 
00708002982 
00703003030 
0070130031!%2 
00701003382 
0070:0033%2 
0070:003430 
00709003484 
00703003434 
00701003884 
00703003880 
00708003982 
0070800480841 
007080042:0 
00708009281 
00701004333 
0070100452 
00701004684 
OO7TOINOgb!y 
00702004713 
0070800500 
00700085133 
00708005230 
00708005284 
0070200541; 
00708005610 
00708005684 
00703005634 
00702008783 
00708005793 
00701008884 
00708005834 
007080059383 


STACK ¢(F 42) 
STACK (CF 43) 
STACK (CF 44) 
STACKEF 45) 


COMMENT 


COMMENT 


BRNCHS 


EXIT! 


ONE EXPRESSION FLEMENT3 
IF ELCLASS # COMMA THEN BEGIN 
EMITBCBFWsBUMPL,L42)3 BACKFIX « |, END 
ELSE RBACKFIX « L + 23 
L © Leal EMITCBFW)3 GO TO BRNCH END ENDS 
THIS 7S THE COMMON POINTS 
IF ELCLASS = COMMA THEN EMITLNG? L « Lea) 
EMIT¢BFC)$ 
FORWARDBRANCH « Ls DIALA © DIALB « OF 
IF ELCLASS # COMMA 
THEN BEGIN 
STEP]T3 
FORLYST¢ TRUE D3 
FIXCSTOREF IXsBACKF IX» FORWARDBRANCHeSTMTSTART) END 
FLSE BEGIN 
IF ELCLASS # DOV 
THEN BEGIN ERRC158)3 REGO«L? GO EXIT ENDS 
STEPITS 
: IF NUMLE THEN FOOT #@ GETSPACECFALSEs*4)8 % TEMP, 
TMT} 


1F NUMLE THEN BEGIN 
EMITVCRETURNSTORE * FOOT)’ EMITOCBBW) END 
FLSE BEGIN 
EMITBCBBWeBUMPLe®BACKFIX)S RETURNSTORE # O FND3 
STMTSTART « FORWARDBRANCHS B © L3 
CONSTANTCLEANS REGO « 43 
FIXCSTOREF EX, BACKFIX*#FORWARDBRANCHeL) ENDS 
END FORLISTS 


REAL TeeTpoT3eTAs 


NXTELBT « 13 1 « OB 

STEP1T3 

IF SIMPY CVRETe¢ELBATOCII) 
THEN BEGIN 


IF STEP: # ASSIGNOP THEN BEGIN ERRO152)3 GO EXtT ENDS 
%1108 


XMARKCASSIGNREF)3 % FOR STATEMENT 

Ti ¢ LS IF FORMALV THEN EMITNCADDORES)? 

K « 03 

IF SIMPLECCONSTANAPA*SIGNA) THEN 

IF ELCLASS # STEPV THEN 

IF SIMPLECCONSTANBsBeSIGNB) THEN 

IF ELCLASS # UNTILV THEN 

IF SIMPLECCONSTANCs@eSIGNC) THEN 

IF ELCLASS w DOV TWEN 

BEGIN 

PLUGCCONSTANASAD3 
IF SIGNA THEN EMITOCCHS)3 
RETURNSTORE « BUMPLS ADJUST CONSTANTCLEAN? 
STMTSTART «+ L3 


70 38 


08144000 
08445000 
08446000 
08147000 
08148000 
08449000 
08150000 
08451000 
08152000 
08483000 
08154000 
08155000 
08156000 
08157000 
08158000 
08159000 
08460000 
08461000 
08162000 
086463000 
08164000 
08165000 
08166000 
08167000 
084168000 
08169000 
08170000 
08171000 
08:72000 


100 LONG 


08173000 


08174000 
08475000 
08176000 
08177000 
081478000 
08178100 
08179000 
08180000 
06181000 
08182000 
08183000 
08184000 
08185000 
08186000 
08187000 
08788000 
08489000 
08190000 
08191000 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
us 
T 
T 
T 
T 
T 
T 
“i 
T 
T 
T 
T 
T 
T 
T 
T 
Fd 


AA Aa tts tt oO te 


00708006080 
00708006010 
0070006133 
007080065t2 
0070:0066!4 
00701006982 
00708006982 
00708007210 
00708007382 
0070:0075!2 
00703007512 
007010076:0 
00708007691 
00708007733 
00708007982 
00708007913 
00708007933 
00708008294 
00708008382 
007030085! 3 
00708008610 
0070180086!0 
00708008732 
007080089%2 
00701008913 
00701009211 
0070!009430 
00701009512 
0070800968, 


NEXT SEG 69 


00691008414 


00691006431 
00693008614 
006980087%2 
00698008713 
0069180089!2 
00693009133 
00691009610 
00698009810 
00691009982 
0069#019080 
00698019113 
00691010382 
00698010884 
006928040680 
00698010783 
00699010880 


00691010982. 


00698011081 
006910113%2 


PRT(655) = REED 


STACK¢Fs3) = 1 
STACK(F 44) = J 
STACKEF45) = K 


PRT(¢656) = MOVE 


STEPYTS 
T1 © (€€(4096 x RETURNSTORES+STMTSTART)x2¢ 
REAL CCONSTANB) )xa4 
REALCCONSTANC))x2¢4 
REALCSIGNB))x2+4 
REALCSIGNC)3 
To « VRET3 
T3 « B3 
Ta «+ Q3 
STMT} 
SIGNC «+ BOOLFANCT1,£4781))3 
SIGNB « BOOLEANCTY,.£4641))3 
CONSTANC «© BOOLFANCT!1.C454#1))3 
CONSTANB «+ BOOLFAN(T1 C4431) )3 
STMTSTART © T1,732%12)3 
RETURNSTORE «+ T1,¢20812]3 
VRET « T23 
Boe T33 
Qe T4! 
STMPLEVe SIMPY CVRET)3 
IF FORMALV THEN EMI TNCADDRES)3 EMITVCADDRES)3 
PLUGCCONSTANBsB)E 
EMITOcIF SIGNB THEN SUB ELSE ADD)3 
EMI TA¢BFWeRETURNSTORE »L)3 
STORECTRUE)3 
IF FORMALVY THEN CALLCOPDC)3 
PLUGCCONSTANC,Q)3 
IF SIGNC THEN EMITOCCHS)3 
SIMPLEB « TRUES TESTS EMITLNG3 
EMITBCBBC»BUMPL »STMTSTART)3 
GO TO EXrT ENDS 
I «¢ 23 Kk « Of , 
SIMPLEV «© SIMPICVRET)3 
Ve Tl END 
ELSE BEGIN 
EMITCO)$ V © LS SIMPLEV «+ FALSE FORMALV « TRUE? 
VARTABLECFR)3 EMITOCXCH)3 VRET « LS EMITOCBFW)E 
TF ELCLASS#ASSIGNOP THEN BEGIN ERRC152)8 GO FXIT ENDS 
END} 
STePITs FORLISTCFALSE)3 L « REGOS 


EXtTt? kK « O END FORSTMTS 


REAL PROCEMURE REEDS 


BEGIN 
LABFL FOFS INTEGER TodeK3 


STREAM PROCEDURE MOVECNeFaT)3 VALUE NeT3 
BEGIN SftmFs DI tals OSten WOS END MOVES 


69 1S 


08192000 
08493000 


08194000 
08395000 
08196000 
08497000 
08498000 
08199000 
08200000 
08201000 
08202000 
08203000 
082048000 
08205000 
08206000 
08207000 
08208000 
08209000 
08240000 
08211000 
08212000 
08213000 
08244000 
08215000 
08216000 
08217000 
08248000 
08219000 
08220000 
08221000 
06222000 
08223000 
08224000 
08225000 
08226000 
08227000 
08228000 
08229000 
08230000 
08231000 
08232000 


BHAA HH A HA tA A A A st a 


00692014440 
00693011491 
00698011680 
00698011732 
0069201446880 
00692014982 
006920420:0 
00698042182 
0069201201393 
006918042214 
00691012382 
006928042480 
00691042513 
00691012634 
00692042830 
006998019982 
00692013084 
006980431482 
00694043280 
00693013284 
00693013480 


— 00692013630. 


006980437282 
006910439983 
00694074081 
00693044183 
00691034382 
00698044410. 
00693044583 
006980144732 
00691044933 
0069#0151!2 
00698045214 
00691015333 
006980154184 
006910155182 
006910156!0 
00699016182 
00691016333 
0069801463383 
00699046583 


169 LONG» NEXT SEG 3 


08999000 


08999095 
08999050 


START OF SFGMENT 


08999075 
08999100 


T 


T 
T 


0003'050513 
00032050533 


00032050583 


eeneeneeee 7h 


T 
T 


00712000010 
00712000030 


PRT(657) & FOF 


STACK¢F42) = |} 
STACK(F43) = J 


Jiwe (J 
REANCCODISKENOIICEOF IS 


REEntw1teFETCHCMKABS(CODISK(1)2)3 
KtemMKARS(CODECO) #13 
WHILE teJ>30 00 
BFGIN 
MOVEC30eCODISKCO),K)3 KiekKe303 Ste ye303 
REANCCODISK)S 
END} 
MOVE CT ede CODISKCO)2K)3 
REANCCONISK) (EOF IS 
FOF! 
END REEn?} 


PROCEDURE RIGHT(CL)3 VALUE L3 INTEGER L3 
BEGIN 
INTEGER [oJ 


TteeLe7) DIV 43 
MOVE Cie le CODISKCO))3 
MOVE (29sCONF(0),CODISK¢1))3 
WRITE CCODISK)3 
J3a993 
WHILE rev? DO 
BEGIN 
MOVEC30eCODECU) »CODISKC0))3 
WRITECCODISK)3 
JteJ+303 
ENDS 
END RIGHTS 


COMMENT THE PROGRAM ROUTINE nOFS THE INITIALLZATION AND THE WRAPUP 
FOR THE REST OF THE COMPILER, THE MAIN PROGRAM OF THE COMPILER 


TS SIMPLY A CALL ON THE PROGRAM ROUTINE) 
PROCEDURE PROGRAM3 


PRT(660) # PROGRAM 


PRT(661) = MDESC 


BEGIN 
STREAM PROCEDURE MDESCC(HDeTOLOC)SVALUE WDE 


BEGIN DYe*LOC WO OSe SeETsSte LOC WDS HIe+TOLOC3HSeWHDS END! 


08999125 
06999150 


08999175 
08999200 
08999225 
08999250 
08999975 
08999300 
08999325 
08999350 
08999375 
08999400 
08999425 
71 1S 47 LONG 


ee eee ae 


08999450 T 
08999475 T 
08999500 T 


START OF SEGMENT *¥*ee eee kee 


08999505 T 
08999580 T 
08999575 T 
08999600 T 
08999695 T 
08999680 T 
08999675 T 
08999700 T 
08999795 T 
08999750 T 
08999775 T 
08999800 T 
72 18 35 LONGe 


09000000 
09001000 
09002000 
09003000 


4~4-4-4 


09004000 
09005000 
START OF SEGMENT 


#44 


09006000 T 


SHEA HKEYH 


00711000112 
00718000382 


00741000830 
00731003410 
00741003982 
00718000084 
00718009084 
00741002712 
00718003182 
00711003183 
00711003680 
00714004382 
00741004280 
NEXT SEG 


00031050583 
00031050583 
00038050583 


00723000080 
00721000113 
0072:0005:3 
00723001284 
00728003684 
00728004782 
00728004983 
00728004983 
007230026!1 
00723003084 
007230031423 
00721003290 
NEXT SEG 


00038050593 
00031050513 
00032050533 
00031050583 


00038050583 
00039050533 


007318000010 


3 


72 


3 


73 


COMMENT 


COMMENT 


COMMENT 


DEFINE STARTINTRSCH42683 


LABEL L13 


LISTOGISLISTER §sBOOLEANCLSERRORCOUNT, (4681))3 


NOHEADING $s TRUES 


ERRORCOUNT 


$a O03 


LYSTOG 1S NOT SET BY DEFAULT ON TIMESHARING? 


ERRMAX!=9993 X% MAY BE CHANGED IN DOLLARCARD, 
BASENUM##100003 ANDVALUE#2#10003 NEWBASE! sTRUES 


DEFAULT VALUES FOR "sSra" OPTIONS 
LASTUSED '= 43 % FOR tNITIALIZATION, 


NEXTINFO « LASTINFO « LASTSEQROWxX2564LASTSEQUENCE 443 


PUTNBUMP(0)3 


GTi « of 


"3 


MDESC(GTL»INFOCLASTSEQROWsLASTSEQUENCE })3 
BLANKETCOs INFOCLASTSEQROW*sLASTSEQUENCEJ)3 & FOR "$ CHECK", 
READACARDS % INITIALIZATION OF NCReFCRe AND LCRe AND 


% READS FIRST CARD INTO CARD BUFFER, 


LASTUSED «2 18 g ASSUMES CARD ONLY UNTIL TOLD DIFFERENTLY, 


NXTELBT «+ 13 


PRTTePRTIMAXe¢PRIBASE? 
MRCLEAN «+ TRUES 


FILL TENG*®) WITy 


0071771110463429054, 


0CT1747165630517247 6 
0CT1714266046116735» 
00T1651040347241 213, 
O0CT1622047303622767» 
0CT15740347263130468 
0CT1547730366574502» 
006T1501736264172732» 
0CT1453616220020057, 
O0CT1427301711237333» 
00T136163225451373}» 
0071333411341150223, 
0CT1306676337663537>» 
0c71241532774515275, 
00T1213215564353071, 
0071166314631 4633546, 
0cT1121440000000000, 
0CT1073032400000000, 
0¢71045753604000000, 


0¢700014351035564000, 


06700326571 42036440, 


0¢T00654321274 33543 
00T0421265707274266, 
0070 452513204307703, 
070T0205126764556310>» 
0670241206170175347. 
00T0272356132665013» 
06T0324641141345435>» 
0070364131664625027, 
00T0412227375067064>» 
OCTOGUK367706263476s 


0071761332600396467, 


0071732623376643;20, 
0071705343457542525, 
0071641250441111455, 
0CT1612461164567564, 
0071565044113775657> 
0071521171646433362» 
00714723257412315210 
06T1444561664024072, 
0071401116227350722» 
0¢71352200727636717> 
0071324313631402270, 
0¢71261045602764047, 
0¢71232061573640554, 
0¢71204061115645707, 
0671141900000000000, 
0¢71111750000000000, 
0071063641100000000, 
0¢71037346545000000, 

0¢T004 1643245424000 
0rT0043432772446150 
0¢T0076740555346473 
0670431543271153343, 
007016323604157 1663, 
007T90216354561711772, 
00T02514467626234641, 
0070303051561442216, 
0079336041371636745, 
00703713602417722034, 
0070422675274304704, 
00790455465667740415>, 


= ww 


START FILLING TABLES NFEDEN TO COMPILE A PROGRAM3 


0€0T1753621340444905, 


0073723370036413744. 
001716766343734732525 
0€6716315225514333770r 
0€6716031754247255215 
0€671556255136775233» 
0¢71511430220142257,- 
0¢71463013331500045> 
0671435716241031111>» 
0071371341675243107. 
0671342641115606502» 
OCTI315376577702746, 
0671251257143561061.5 
0071222476132610706, 
0¢71175075343217270, 
0¢74131200000000000, 
0cT1192342000000000, 
0¢671054611320000000.- 
0¢71911124027620000, 


0¢670022214116345200, 


0070054341571157602, 
0¢701110530740602291, 
0070142074147406234, 
0670174105452130240, 
0¢7023100477 14627437» 
0¢T0261761573704011>5 
OCTO313664115752661» 
0¢T0347413670206536>» 
0¢7T0401654312370703, 
0670433454553366062> 
00T0467003245730521+ 


09024000 
09025000 
09028000 
09028010 
09028080 
09028900 
09028910 
09028920 
09028930 
09029000 
09033000 
09034000 
09034400 
09034200 
09034500 
09035000 
09036000 
09037000 
09038000 
09039000 
09040000 
090404100 
09041000 
09042000 


START OF SEGMENT 


09043000 
09044000 
09045000 
09046000 
09047000 
09048000 
09049000 
09050000 
09051000 
09052000 
09053000 
09054000 
09055000 
09056000 
09057000 
09058000 
09059000 
09060000 
09061000 
09062000 
09063000 
09064000 
09065000 
09066000 
09067000 
09068000 
09069000 
09070000 
09071000 
09072000 


A Ht HA tH A HA 


00731000483 
0073000483 
00738000183 
00731000882 
007318000532 
00738000680 
00731000611 
00731000733 
00738000983 
00731000983 
00731003084 
00731004312 
00731004410 
00731001582 
00738004732 
00731001982 
00733001983 
00731004983 
00731002010 
00731002112 
0073100220 
007310093!2 
0073100D3t2 
00731000383 


ee rtit iit! 74 


00732009014 
00738002484 
007380024814 
OO7310020t4 
0073180024014 
00738002481 
00738002484 
00731002434 
0073:002811 
0O73810024t4 
00731002484 
00738002484 
007310024014 
00733002494 
00738002484 
00733002484 
00731002484 
00731002484 
00731002484 
OO7T3t002 41 
00738000484 
00733002014 
00738002014 
00733002414 
00731002414 
00738002481 
00731002483 
007310024014 
00731000404 
0073800p4t4 


0¢70640000000000002, 


3346 


00T0503060411731665» 0070511274514320242, 0¢7T0521553637404312» 09073000 T 00738002414 
0¢705327106607305375» 0¢670542530351166674>, 007055325644 34244520 09074000 T 00733002484 
00T0564132154331566» 00T0575160607420123, 06T0606414754324150+ 09075000 ~ 0073:002484 
00T0621012014361120» 0070631214417455344, 0¢7T0641457523370635e 09076000 Tt 00738002481 
0¢70651773450267005. 0¢70662372362344606, 0¢170673071057035747, 09077000 t 007330024384 
00T0703707272645341, 0¢70714671151416632, O0cT0726047403722400, 09078000 Tt O07380024%4 
006T0737461304707300>» 0079751137556607072, 00670761367512350710» 09079000 T 00731002414 
00T07716654350430723 09080000 T 00731002484 
74 18 115 LONG» NEXT SEG 73 
COMMENT THIS 18 THe FILL FOR THE SFCOND ROW OF YNFOS 09081000 T 00731002484 
THE FIRST JTFEMS ARE STREAM RESERVED WORDS, 09082000 T 0073:00241,1 
THEN ORDINARY RESERVED WORDS, 09083000 T 0073300248, 
THEN INTRINSIC FUNCTIONS! 09084000 T 00733000a%y 
FILL INFOrie#®] WITH 09085000 T 00738000484 
OCTOB7O000K00000002+ "251000" 3256 09086000 T 0073!002513 
START OF SEGMENT *#xtee08 08 75 
OCTO7000040400000025 “aplo00", 3258 09087000 T 0073%00206%4 
OCTO7100014600000025 “acto0o"s $260 09088000 T 00731002614 
0CT0720001630000002> "STALLY™s %262 09089000 T 007310026114 
OCTO7300005300000026 "2pnS000"» %264 09090000 T 00731002684 
OCTO7400001500000025 "4sky POs 2266 09091000 T 00738002681 
06T0750001620000002» "4JUMPO">» %268 09092000 T 00731002631 
OCTO7T60N007THDND00002Z. “"2nR000"» 2270 09093000 r 00732002631 
OCTO770000500000002»5 “2SB000"s R272 09094000 T 00731002631 
OCT1010000730000002» “2sco0o"s %274 09095000 T 00738002681 
06T10200011600000022 “"3LO¢00"» 4276 09096000 T 0073!002611 
0CT10300011700000025 “2pco00"s 4278 09097000 T 00731002611 
0671040001430000002+ “SLOGAL"™> %280 09098000 T 00733002631 
OcT1050000340000002. "3LITO00". 2282 09099000 ry 007310026!1 
067T1060001036400002, "3S5F7T00",s %284 09100000 Tt 007380026184 
0671060001066500002. "SRESET™> %286 09101000 FT OO738002684 
0¢71060001020500002, “3wps00">» %288 09102000 fr 007330026:1 
0671060001387700002, “3cHROO"s %290 09103000 r 007320026384 
0¢74060001057300002, “*3apn00", B292 09104000 y 00731002611 
00671060001617200002. "3SUR00",» 2294 09105000 ry 00733002634 
0¢71060000727600002, "*3Z0N00", %296 09106000 T 00734002684 
0674060000447500002, "3NUMO0O", %298 09107000 T 00731002611 
OCT1OGO0007THE67TON002, “"30CTOO", %300 09108000 T 0073:0026t1 
06T1060000176600002» "3pECO0"s 3302 09109000 T 00731002684 
0€671004000260000003, "“"6T0GGL™s "FQO000000", %304 09110000 T 00732002681 
OCTO130311060000002» "3aRS00"> 2307 094140001 T 00738002631 
0071360441030000002» "*3aNn00"s 2309 09412000 T 00731002634 
0¢T0500000170000002» "SaRRAY"s 2341 09112100 fT 00731002611 
OCTOG60000000000002, “SREGIN"'» 4313 09112200 T 007320026314 
0CT05000000400000035 "7RBOOLF™s *ANO00000", 3315 09112300 T 00731002634 
OCT1070000000000003, “7COMME™s» *NTOO0000", 2318 09412400 T 00738002611 
OCTOSO0DNNZ3Z0000003e "S6DEFIN"'s "EO00000D", 2321 09412500 fT 00733002634 
OCT14104486000000002+ *3NTyOo". 2324 09142600 T 00733002611 
OF TO550000000000002» "2ndn00"™> 3326 09112700 T 00731002631 
OCTO5200000000000034 “6n0uBL™s *"f0000000", 2328 09112800 tT 00731002681 
OC TO0570000000000002, "AFLSFO", 4331 09412900 Tt 00733002611 
OCTO600000000000002>. "3FENn00"> %333 094143000 T 00738002631 
0¢71380442030000002, "3¢Qy00", £335 09443100 T 007310026383 
0670410000000000002, "SraLsSe*, 4337 09443200 7, 00733002621 
OCTO01303100300000025 “a4rlL ago”, %339 09113300 T 00738002684 
OCTOS30NN000N00DNDNNO2. “IF OROON, 3344 094143400 T 007348002681 
OCT1100000000000003» "7FORWA"»s “RD ", 2343 09113500 T 00731002681 
"260000". 09443600 T 


00731002614 


06T70130316060320002, 
06T0630000000000002, 
0cT0500000040000002, 
06T0500000050000003, 
0670500000070000002, 
0¢T0360002000020003, 
00T1410456000000002, 
06705000001 40000003. 
06T0130301060000002, 
0cT0500000200000002, 
00670130304030000002- 
0¢71320300230000002, 
0671350440430000002, 
0¢T0500000020000002, 
06T0500000010000002- 
0¢70460000000000003, 
0670500000160000003, 
0¢T0130300000160011, 
OcT2025. 
OcTO000, 
O¢T0425, 
0¢cT0455, 
OcT0161, 
0CT0165, 
0€T1140000000000002, 
0€T0500000220000003, 
0€70500000110000003, 
06T0500000150000003, 
00T41120000000000002, 
06T1130000000000002, 
06T0440000010000002, 
0cT0560000000000002, 
0671140000000000002» 
0CT0540000000000002, 
0C0T1310440200000002> 
0671310240270000002, 
0¢671310453050000002,» 
00T1310442500000002> 
0¢T3310457050000002, 
0¢71310302060000002, 
00171310440500000002, 
0¢71310242020000002, 
0¢T1310302060000002, 
00674310240120000002, 
0¢T4260100550000002, 
06712601006; 0000002, 
0¢674340344050000009, 
0674310451050000000, 
0cT4310443050000002, 
0¢T4310447050000002% 
0€671310440250000002, 
0671310440450000002, 
0¢7T1310108420000002, 
00T1310104420000002, 
00T1310446000000002, 
0¢71310251020000002> 


PAWUNTOs 
"21F000", 
"4REALO™s 
"TINTE Gs 
"SLABEL"s 
"6MEMOR™» 
"3M0n00", 
"7TMONIT". 
"4NARSO"e 
"4NAMEO™» 
"SNFLAG™® 
"3NOTOO"s 
"20R000"> 
"ASAVEO"™® 
“JOWNOO"™> 
"6POLIS™s 
"OPROCE". 
"4S 1GNO"> 
COMMENT 

COMMENT 

COMMPNT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

"4STEPOM, 
"6STREA™. 
"#SUBRO"™>s 
"6SWITc™s 
"ATHENO™>s 
"2T0000"» 
"ATRUEO"> 
"SUNTIL". 
PSVALUE™s 
"SWHrLE™. 
"3ADN00"» 
"JBRTOO"e 
"3CCKO0"s 
"3CDc00"s 
"3CFX00"e 
"3CHSOO", 
"3cO0r00"» 
"3cOM00"» 
"3c5R00", 
"3DEL00". 
"3D1A00", 
"3D1AR00", 
"3pUPO0", 
M3EQL00%, 
"3FCXOO".s 
"3FFXOO"» 
"3GEQ00%s 
"3GTROO"®s 
"JHLAOO™s 
"3HP200"> 
"3IDVOO"> 
"311000"» 


WEROOQOOOO", 
wy ", 
WOR ", 
al | ", 
"DURE "5 

NuP 3 

Lite 03 

Nr Q ; 

XH H 

DrA 13 

DB 13 

TRB 42 
1M ", 
WUTINE ", 
WH ", 


3348 
%350 
%352 
3354 
%357 
3359 
3362 
3364 
2367 
¥369 
3371 
3373 
£375 
3377 
8379 
3384 
3384 
2387 


2396 
2398 
S401 
2404 
S407 
Z409 
444 
443 
%4145 
B447 
2419 
%421 
%423 
4425 
2427 
%429 
%434 
2433 
%435 
2437 
£439 
404 
443 
24645 
Zag? 
4449 
Z451 
3453 
2455 
2457 
2459 
Z464 


091413700 
094143800 
091143900 
09414000 
09114100 
09114200 
09114300 
09114400 
09444500 
094114600 
09114700 
09114800 
09114900 
09115000 
09415100 
09115200 
09115300 
09115400 
09115500 
09115600 
09445700 
091415800 
09445900 
09446000 
09146100 
09446200 
09416300 
09416400 
09116500 
09116600 
09116700 
09446800 
09116900 
09117000 
091417100 
09117200 
09417300 
09117400 
09117500 
09447600 
09117700 
09147800 
09447900 
09118000 
09448300 
09448200 
09118300 
09448400 
09448500 
09118600 
094148700 
09438800 
09118900 
09419000 
09119050 
0914194100 
09119200 


AAA AAA AN AAA A A tt te ee 


0073!002684 
00731002684 
00731002684 
00738002614 
00731002684 
00738002684 
00734002631 
00738002681 
00731002681 
00731002611 
00731002634 
00738002684 
00731002611 
00738002684 
0073800263 4 
00734002614 
00738002681 
00731002684 
0073180026834 
00733002684 
00738002684 
00738002681 
00738002684 
0073800268, 
0073100268, 
00738000684 
0073%0006%4 
0073100268; 
00738002684 
00738002684 
00733002631 
00738002634 
00738002631 
0073800268; 
007380026314 
00733002631 
00731002614 
00731002631 
O07 38002684 
0073800263; 
0073800268) 
0073100264 
007338002681 
00731002631 
0073100268, 
00738002684 
00738002684 
0073100268; 
00738002684 
007330020684 
00731002684 
00731002684 
00731002614 
007348002684 
007310026814 
00731002684 
00738002684 


00T1310250220000002, 
0074310250420000002>5 
00T1310100420000002» 
O0CT1400440300000002» 
0671310244220000002> 
0€T1319250220000002» 
0¢T1310250420000002, 
00T1310145060000002, 
07071310410240000002, 
06T1310450440000002, 
0¢671310100420000002, 
00T1310450250000002, 
0¢1T4310505300000002, 
0¢73310441030000002, 
0¢T4310300230000002, 
0CT1310304040000002, 
0¢674310440430000002, 
0071310442030000002, 
0¢71310450450000002> 
0¢T1310101100000002, 
0¢71310441000000002, 
0¢71310441050000002, 
00T1310100130000002; 
0¢70650006550000003, 


FILL INFOL2e*] WITH 


0¢6T1310300000020004, 


OcTO000. 
OcT2141» 
0¢71310300000020004, 
OcTO0O4, 
OcT214is 
00T1310456000000002, 
0cT4310304030000002, 
0cT1310240470000002, 
007T1319145060000002, 
0071310311060000002, 
00T1310242470000002, 
067T4310141020000002, 
0¢71310240470000002. 
0¢71310141020000002, 
0¢T1310242470000002, 
0¢T1310310030000002, 
06T1310442060000002>» 
0671310301060000002, 
06T1310316060000002, 
06T1310301060000002> 
0¢71310311060000002, 
06T1310401040000002> 
0¢71310240000020004,- 
OcTOO10» 
OcT2141. 
007T1310442040000002, 
00T1310240000020004, 
O¢T0014, 
OcT2141,. 


WSINAOONs 
*ZINROO> 
"3INOO"» 
"3INxO00">» 
"JTOROO"> 
"Z31P100"%>» 
"37P200"%e 
"3 7PS00". 
*315n00", 
"31SNO0", 
"31T;00". 
"3LEQO0", 
"3LLLOOMs 
*3LNHOO" >, 
"3LNGOOMs 
"3L0n00". 
"3LORO0"» 
"3LQyO0".s 
"3LSS00". 
*IMKSOO"s 
*3MULO0"> 
W3NEQ00">, 
"3NOP00". 
"6SCOPO"™® "Neevaeee3 


"3RDFOO">s 


COMMENT Lite O03 
COMMENT FXS 3 
"3RDSO0". 
COMMFNT Lite 13 
COMMFNT FXS 3 
"3IRNVOOMe 
"3RFROO"s 
PIRNOOO", 
“3RRROO", 
"3RSR00">» 
"3RSPOO", 
"3RTMOO">s 
"3RTNOO"? 
"3RTROO"» 
"3RTSOO">s 
"3SFRO0">» 
*3SNn00"> 
"3SSR00". 
"3SSFO0". 
"3SSNO0"e 
"3SSP00">» 
"3STN0O"> 
"3STPOONs 
COMMENT Lite 2) 
COMMrFNT FXS ; 
*"3STNOO®, 
"3STSOO"» 
COMMENT Litc 33 
COMMENT FXS 3 


%463 
%465 
2467 
2469 
474 
2473 
2475 
£477 
BAT79 
%481 
£483 
£485 
£487 
%489 
R494 
%493 
2495 
2497 
499 
%501 
%503 
2505 
2507 
%509 


%512 


2516 


2520 
%522 
2524 
2526 
2526 
%530 
%532 
2534 
2536 
2538 
2540 
2542 
4544 
2546 
3548 
¥550 
%552 
2554 


4556 
%360 


75 1S 


09119300 
09119400 
09119500 
09119600 
094949700 
09119800 
09119900 
09120000 
09120100 
09120200 
091420300 
09120400 
09420500 
09120600 
09120700 
09120800 
09420900 
09121000 
091421100 
09121200 
09121300 
09121400 
09121500 
09121600 


256 LONG 


09121650 
09121700 


START OF SEGMENT 


09121800 
09121900 
09122000 
09122100 
09122200 
09422300 
09122400 
09122500 
091422600 
09122700 
09122800 
09122900 
09123000 
09123100 
09123200 
09123300 
09123400 
09123500 
09123600 
09123700 
09123800 
09123900 
09124000 
09124100 
09424200 
09124300 
09424400 
094248500 
09424600 


AMAA HHH AA A A a? HA A Ht A st st tH 


00738002684 
00731002684 
00734002614 
00731002611 
00738002684 
00738002684 
00731002681 
00738002684 
00738002684 
00733002621 
00733002684 
00731002684 
00738002684 
00738002684 
00731002684 
00738002684 
00731002634 
00731002611 
00733002681 
00738002684 
00738002681 
00738002684 
00738002681 
00731002681 


NEXT SEG 73 


00738002681 
007318002783 


PT ETT ee Ete 76 


007310026814 
00733002831 
00732002884 
007332002814 
00738002631 
0073:0026884 
007380028314 
00733002631 
00731002834 
00733002684 
00733002681 
007310028t1 
00738002881 
007380028614 
00731002831 
00731002884 
00731002881 
00733002834 
0073!002683 
00731002884 
00731002881 
00731002631 


_ OOT32002B8}4 


00731002881 
OO7380026tj 
00731002814 
00738002884 
00731002814 
0073100284 


0CTy340440600000002, 
06743103440600000092, 
00T1270440650000002, 
007T1310155060000002, 
0071310344060000002» 
00T1270440650000002, 
0¢71300300000000002 
0¢T1310502050000002» 
0¢6T1310101070000002>s 
00T1310105020000002> 
0€6T1310105020000002» 
0C6T1270500750000002+ 
0c¢T1270500750000002, 
0¢6T1270500710000002+ 
0CT1270500710000002» 
0¢T1310440210000002, 
0¢T1310440210000002, 
0¢71310440610000002, 
0771310440610000002, 
0¢71310441010000002, 
0¢71310441010000002, 
0¢71310442010000002, 
0671310442010000002, 
00T0460000000000002, 
0¢70360002000020002, 
0CT1310240000020004, 
OcTO111s 
OcTO055e 
06T0650006610000003, 
0¢T0030000000040003, 
0¢6T0030000000040003, 
0¢10030000000040003> 
0cT0030000000040003, 
06T0030000000040003, 
0670030000000040003, 
06T0030000000040003, 
0¢70030000000040003, 
06T0030000000040003, 
0074310117530000002, 
0071310117540000002,. 
0¢74310157730000002, 
0¢70500000250000002, 
0¢706140000000000000, 


*3SUR00N, 
“3TF BOOMs 
*3TFROO",» 
"3TIO00"%.s 
"3TOP0O". 
*"3TRROO"> 
"3VF 100%. 
"3XcHOO™e 
"3X1 TOO". 
"3Z1P00%s 
"3ZP100"%.s 
"3CcFrOO"e 
"3FCFOO"s 
"3CFLOO"® 
"3FCLOO"» 
"3pLa00"» 
"ZADLOOMs 
"3pLsoo"» 
"3SDLO0"» 
"3pLMO00", 
"3MDL00%» 
*“ZpL N00. 
"3NDL00". 
"sPO0000"%, 
sM0000"%, 
W3PRLOO%e 
COMMENT 

COMMENT 

"7SCOPO"» 
"2LB000"» 
"2RB000"s 
"3GTROO"? 
"3GFQ00"%.e 
"3FQL00", 
"3NEQ00"> 
"3LEQ00"» 
"3LSS00", 
"STIMESs 
"3S5c700">» 
*3SANO0" 2 
*38cs00", 
"SFIprlnp"s 
"4ACASEO".® 


PRL 
NOP3 


"FF eeeees 
wcr# 
a 
rg 
> 
Ure 3 
wee 
"<2 
wet 
“xe 


2564 
%566 
5568 
3570 
%572 
8574 
2576 
3578 
¥580 
%582 
3584 
%586 
2588 
%590 
%592 
%594 
%596 
%598 
%600 
2602 
%604 
£606 
%608 
%610 
%612 
%644 


$618 

$621 

%624 

2627 

%630 

2633 

2636 

%639 

2642 

2645 

2648 

2650 

652 x112*° 
8654 #1156 
3656 x115° 


09494700 
09424800 
09424900 
09125000 
09125050 
09125100 
09125200 
09125300 
094254800 
09125500 
09125600 
09125700 
09125800 
09125900 
09126000 
09126100 
09126200 
09126300 
09126400 
09126500 
09426600 
09126700 
09126800 
09126900 
09427000 
09127100 
09127200 
09127300 
09127400 
09127500 
09127600 
09127700 
09127600 
09427900 
09128000 
09128100 
09128200 
09128300 
09428400 
09128500 
09128600 
09428700 
09128800 
09428900 
09429000 
09129100 
09429200 
09429300 
091294800 
09429500 
09129600 
09429700 
09129800 
09129900 
09430000 
091430100 
09130200 


AA BRM HHH OSH HAA A A A HA tt to a st oe ss tt 


00731002884 
00738002834 
007340026%4 
00733002883 
00730026814 
00738002814 
00731002831 
00731002881 
00731002834 
00731002834 
00738002881 
007318002881 
00731002834 
00731002614 
00731002884 
00731002834 
00738002684 
00731002834 
00738002881 
00731002884 
0073!002634 
00738002684 
00731002814 
00738002614 
00731002614 
007318002811 
00731002684 
OO738002884 
00731002881 
007380026'1 
00731002811 
00731002831 
00738002834 
00731002831 
00738002814 
00731002881 
00731002811 
00731002614 
00731002884 
00733002813 
00731002814 
00731002834 
00731002881 
00731002614 
007310026h1 
00731002831 
00738002614 
00731002814 
0073100281; 
00731002814 
00731002884 
00731002834 
00731002684 
007318002884 
00731002831 
00738002684 
007310026114 


0; % END OF NFO FILL. 


FOR GT2¢256 STEP GTISLINK WHILE NOT BOOLEAN(GT1,FORMAL) DO 
PUTCCGTLSTAKECGT2))&G6T203583581319GT2)3 

FOR GT1*#GT2 STEP GT2,LINK WHILE GT2eLINK#0 pO . 
PUTCCGT2+TAKE CGT D&STACKHEADCGT 3¢TAKECGTI41 9.012336) 


COMMENT TwIS TS THE FILL FOR THE SPECIAL CHARACTORS3 


FILL SPECTALEC®) WITH 
0€T1200000000200000, 


0¢T0000000000000000, 
0CT1370440450002763, 
0CT1400440200000000, 
0€T1220000000060000. 
0¢71250000000000000. 
0¢T137045045000357 1, 
0¢T1410441000000000, 
0¢T0000000000040000, 
0¢T1400440600000000, 
0¢T0650000000000000, 
0C6T0000000000000000, 


COMMENT 


COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 


oa} 


0€T0000000000100000, 


0€71160000000120000, 
0€71370440250002662, 
0CT0000000000000000, 
0€71210000000000000, 
0CT0450000000000000 
0¢71330601040000000, 
0€T0000000000000000, 
0CT0470000000000000, 
0cT1240000000460000, 
00T1370480250003470, 
0071440442000000000. 


MOD 2253035835913) 2STACKHEADEGT3I]¢GT1)3 


COMMENT 


COMMENT 
COMMENT 


COMMENT 
COMMENT 
COMMENT 


COMMENT 
COMMENT 
COMMENT 
COMMENT 


76 18 


09130300 
09130400 
09430500 
09430600 
09430700 
09430800 
09430900 
09131000 
09131100 
09131200 
09431300 
09131400 
09431500 
09431600 
09131700 
09131800 
09131900 
09132000 
09132100 
09132200 
094132300 
09132400 
09132500 
09132600 
09132700 
09132800 
09132900 
09133000 
09433100 
09133200 
09433300 
09133400 
09433450 
09433500 
09433600 
091433700 


147 LONG 


09433800 
09133900 
09134000 
09134100 
09134200 
09197000 
09498000 
09499000 


START OF SEGMENT 


09200000 
09201000 
09202000 
09203000 
09204000 
09205000 
09206000 
09207000 
09208000 
09209000 
09210000 


AA HHH ANH HAA Ht ot tt st HSH 


Se ee ee ee eee 


0073100261834 
007310028814 
00733002881 
00731002634 
00738002684 
00738002881 
0073100206881 
0073300263) 
00733002881 
00733002634 
007310026314 
007320028314 
00738002834 
00738002684 
00733002811 
00731002614 
00738002631 
00731002624 
00731002834 
00731002884 
00738002834 
00738002684 
00738002884 
00738002684 
00731002684 
00731002681 
00738002684 
007320028634 
00731002684 
00738002624 
00733002631 
0073180026114 
00731002881 
007320028314 
00731002883 
007318002684 


NEXT SEG 73 


00733002831 
007348003480 
00738004030 
00731004513 
00731004912 
007348008382 
00738005332 
007390053#3 


eeeeeeene 77 


00731005484 
00734005414 
00738005411 
00738005404 
00733005431 
00731005484 
00738005414 
00732005481 
00731005414 
00731005414 
00738005484 


& g 
@ é 
0CT1170000000000000» COMMENT +#% 0C6T0000000000020000» COMMENT &3 09241000 T 0073100544 
007T13704419050002564. COMMENT #3 0C71370451050002460, COMMENT) w83 09212000 T 0073:80054t4 
] 0CT1230000000000000» COMMENT J  0CT0000000000180000. COMMENT "™3 09213000 T 00731005414 @ 
0°03 09214000 T 007310054034 
77, 1S 32 LONGe NEXT SEG 73 
@ FILL MacROCe) WITH 09215000 T 0073:005484 e 
OcTO134» COMMENT SFS A 00 ; 09216000 T 00731005582 
START OF SEGMENT #4u088e¥ OH 78 
@ OCTOL16>» COMMENT SFD A 01 ! 09217000 T 00731005614 e 
OcT0000» COMMENT SYNTAX ERRORO2 ; 09218000 T 00731005614 
OCT0140» COMMENT INC A 03 i 09219000 t 00738005684 
@ OcT0130, COMMENT SRS A 04 } 09220000 T 00731005614 6 
OCcTO1I7» COMMENT SRD A 05 : 09221000 T 00731005684 
OCT0000. COMMENT SYNTAX ERROROG ; 09222000 T 00733005681 
@ OcTO000, COMMENT SYNTAX ERROROT ; 09223000 T 00731005684 e 
0¢T00310143. COMMENT CRF Ae SFS 008 ; 09224000 T 00731005684 
00700160143» COMMENT CRF As SFD 009 ; 09225000 T 00731005684 
e 06700470143. COMMENT CRF Ap JFW O } 09226000 T 00731005614 e 
07700400143, COMMENT CRF As INC 011 3 09227000 T 0073800568) 
0¢T00300143, COMMENT CRF Ae SRS 012 i 09298000 T 00738005641 
® 0cT0017014 3% COMMENT CRF As SRD 043 ' 09229000 T OO7380056"4 @ 
0cT0000, COMMENT SYNTAX ERRORIG } 09230000 T 00731008614 
OCT0000, COMMENT SYNTAX ERROR{5 ; 09231000 T 00738005614 
 ] 0CT0153> COMMENT RSA A 16 ; 09232000 T 00731005614 @ 
ocTO104, COMMENT RDA A 17 i 09233000 T 00738005614 
OCT0450>» COMMENT RCA A 18 ; 09938000 T 007310056'4 
@ 0CT004201430042, COMMENT SEC O» CRF Ap ; 09935000 Y 00731005634 e 
OcTO122° COMMENT SES A 20 : 09236000 T 00731005614 
OCT0106, COMMENT SED A 21 } 09237000 7 00731005681 
@ OcT0000. COMMENT SYNTAX ERROR22 ; 09238000 T 00731005611 ] 
OCTO000» COMMENT SYNTAX ERROR23 ' 09239000 T 00731008611 
OcT0056, COMMENT TSA 0 24 ; 09240000 T 00731005684 
e@ OcT0000, COMMENT SYNTAX ERROR25 ; 09241000 T 007330056%4 ® 
OCTO000, COMMENT SYNTAX ERROR26 j 09242000 T 00731005644 
0cT0000, COMMENT SYNTAX ERRORD27 ; 09243000 T 00731005684 
@ OCT0000, COMMENT SYNTAX ERROR2S ; 09944000 T 00731005684 @ 
0cT0007, COMMENT TDA 0 29 i 09248000 T 00731005694 
OcTO000» COMMENT SYNTAX ERROR30 ; 09246000 T 00731005684 
e orT0000, COMMENT SYNTAX ERROR34 ; 09247000 T 00731005684 @ 
OcT0115» COMMENT SSA A 32 ; 09248000 Y 00731005614 
OcTOL1de COMMENT SDA A 33 ; 09249000 T 00731005684 
@ Or T0154,» COMMENT SCA A 34 ' 09250000 T 00731005614 
OrTOL4ds COMMENT STC A 35 ; 09251000 T 00731005684 
78 1S 36 LONGe NEXT SEG 73 
@ FILL OPTTIONS®*) WITH "SCHECK",0, % Ot 09251208 T 00731005614 ® 
START OF SEGMENT ##aeeeeete 79 
"6DEBUG",0, % 203 09251212 T 00731005810 
@ "4DECKO™, 0, 4.5 09281214 T 00738005830 e 
"GFORMA™,0, & ba? 09251216 T 00732005810 
"OINTRIN,O, % 8.9 09251218 T 00731005810 
@ "SLISTA", 0, ¥ 10! 09251220 T 007380088t0 @ 
"GLISTO™ sO» ¥ 12933 09251224 T 00738005810 
"SLISTP",0, ¥ 14,15 09251228 T 00731005810 
@ "3MCPO0", 0, % 16017 09251230 T 00731005810 e 
"GTAPEO".O, % 18519 09251232 T 0073:005830 
"ANESTO",0, % 20021 09251234 T 00731005810 
@ 3NEWN00"» Oy % 22023 09251236 T 00731005810 ] 
S @ 


"7NEWIN' 2 Oe % 24025 
“AOMIT0O",0, % 26,27 
"180000",0, % 28029 
“3PRT00",0, % 30,31 
*SPUNCH",0, % 3233 
“"SPURGE™, 0» % 34,35 
"4SEGS0",0, % 36,37 
"3SEQ00",0, % 38,39 
“6SEQER",0> ¥ 4041 
"6SINGL™,0, % 42,43 
*SSTUFF'.O. x 44,45 
fayv0rpo".0, % 46.47 
*S5VOIDT™.0, % 48,49 
"4BENHDO*,0, 50, 5! £106= 
W4XREFO", 0, % 52, 53 %108@ 
Os 
79 «IS 
NO UNTIL STEP] = BEGINV3 
GTi «= wy 
INTOG © INTOG AND TRUE3 & 
NMISKADR ¢ TF INTOG THEN INTRINSICADR ELSE 23 
MDESCCGTI + INFOLCLASTSEQROWsLASTSEQUENCE))3 
MNESCCGT1ie INFOLLASTSEQROW*LASTSEQUENCE? 1) )3 
MDESCCGTIs INFOCLASTSEQROWsLASTSEFQUENCE#2))3 
STMT3 
LOCK¢CSTUFF)3 
CLOSE CCARD*» RELEASE)? 
IF LASTUSED # 1 THEN CLOSECTAPEsRELEASE)3 
IF NEWTOG THEN LOCKCNEWTAPE, ¥)3 
IF Tecthe+3 DIV 4) + CORADR > 4080 THEN FLAGC040)3 
IF NOT NOHEADING THEN % PRINT THESE THINGS IF ANY 
BEGIN % LISTING HAS BEEN DONE, 
STREAM PROCEDURE PANCTsFIEL»NER»LSQ)$ VALUF NERSTS 


PRT¢662) = *SEGMENT DESCRYPTOR* 


PRT¢663) = PAN 


PRT(664) «© PEN 


99251240 
09251244 
09251248 
09251252 
09251256 
09251260 
09251264 
09251268 
09251272 
09251276 
09251278 
09251260 
09251284 
09251285 
09251286 
09251288 


55 LONG 


09252000 
09253000 
09253050 
09253100 
09253500 
09254000 
09255000 
09275000 
09281000 
09281500 
09282000 
09282500 
09282600 
09362000 
09363000 
09364000 


START OF SEGMENT 


BEGIN DI + FIEL$ 44¢DSeaL1T" "93 
* LSQs DS « WOSs Sy eFIELS DS + 3 WOS3 
« FIFL$ DSe 28 LIT*NUMBER OF ERRORS DETECTED 2 “3 


$] 
DY 
S$] 
S$! 


¢ L.0C NER# DS «+ 3 NECs DS + 22 LIT *, 


« LOC T3 


COMPILATION TIME e& *3 


DS « 4 DEcs OS « 9 LIT ™ SECONDS,"3 ENDS 


STREAM PROCEDURE PFNCFILePRTS1Z,BASF CORE ,D1SK)3 


VALUE PRTS1Z,BASE» CORES DISK3 


BEGIN DIeFILS DS « 9 LITMPRT SIZEs"s SteLOC PRTSIZ3 
DS « 3 DECS DSe44 LIT" BASE ADDRESS&*3 
S}*LOC BASES DSe4 DECS DSe#1O LIT" CORE REQm*3 
ST¢L0C CORE? DSe4 DECS DSe#10 LIT” DISK REQaw3 
St*LOC DISKS DSe5 DEC3 DSe61 LIT * 3 


END 


PEN3 


STREAM PROCEDURE FINALAXCLINGeNsSEQ)3 VALUE N3 


09365000 
09366000 
09367000 
09368000 
09369000 


09370000 


09371000 
09372000 
09373000 
09374000 
09375000 
09376000 
09377000 


09378000 


AA HHH HAH at HOO Ha tt 


Trertt iit 


ass 


SL 


00738005880 
00733005830 
0073530058!0 
0073!005810 
00733005810 
007330058:0 
007310056830 
00738005810 
0073:0056!0 
0073:0058!0 
00733005830 
00731005810 
00731005610 
0073:0058:0 
0073005830 
00732005810 


NEXT SEG 73 


007310056:0 
007320060381 
00733006133 
00738006430 
0073:0067383 
00731006983 
00731007210 
00738007481 
0073:007582 
00738007618} 
007318007681 
007310081383 
007380084814 
00731008881 
00738008932 
00731009983 


0080:0000t0 
006010001%2 
00802000210 
0080:000610 
0080:000923 


00803001210 


0060#00;290 
00801001290 
00802004480 
00860!001630 
00801001810 
00804002010 
008018002614 


008010029! 2 


80 


PRT¢(665) = FINALAX 
BFGIN DI ¢ LINE? 15¢08 «¢ B LIT ™ "93 


Dy « LINES DS « 31 LIT "NUMBER OF ACCIDENTAL ENTRIES » "3 
St ¢ LOC N3 DS « 3 DECS DI «+ DI4B} 


St « SEQs ST «+ Ste163 DS + 6 CHR) 
ENDS 


1F AXNUM #€0 THEN 
BEGIN 


FYNALAXCLINGO}sAXNUMe TNFOLLASTSEQROWsLASTSEQUENCE))3 


WRITELINE? 
END} 
SCRAM t= (TIME C1) #TIMEy)/603 


PANCSCRAMsLINCI OJ *ERRORCOUNTs INFOLLASTSEQROWs LASTSEQUENCE®= 41) 


; 
WRITELINES 


PENCLINGOJSPRTIMAXo TI BC L+3INIV Se TISCORADRET, 


CCT#29)N TV 304+D1SKADRIx30)3 
WRITELINES 
LOCKCLINEsRELEASF)3 ENDS 
PRT(666) = «SEGMENT DESCRIPTOR* 


1F FRRORCOUNT # 0 THEN y*0/0 FLSE 
BEGIN 
ARRAY SAVINFOC0334202255], 
PRT(667) = *SEGMENT DESCRIPTOR*# 


STACKCFs2) = SAVINFO 

INFOCO!200,0!255)3 % FOR LARGE MCP"S, 
STACK(F 43) = INFO 

INTEGER SAVNDX»sNONSAVNDXsN3$ 

STACK¢(Fe4) = SAVNDX 
STACK¢F45) 2 NONSAVNDX 
STACK¢Fs6) 2 N 

INTEGER Qe JpKaM? 
STACK¢(Fae7) = Q 
STACK¢EFs10) & J 
STACK¢Fe11) = K 
STACKCF4i12) = M 

BOOLEAN TSSTOG} REAL T3 
STACK(F 413) = TSST0G 
STACK¢F414) = T 


REAL PROCEDURE PUSHER(CGRINCH»sGOT»sXMAS)$ VALUE XMAS} REAL XMAS3 


PRT¢670) «= PUSHER 


ARRAY GOTEO]3 ARRAY GRINCH [000)3 


BEGIN 
REAL WHOeWHATS 


STACK¢Fse3) =» WHO 
STACK¢F 44) = WHAT 
DEFINE LINKR = (3238 #3 
% 
tPF WHOSmXMAS,LINKC < 295 THEN 
BEGIN 


09379000 
09360000 
09381000 
09382000 
09383000 


444-44 


09384000 
09384050 
09384100 
09384500 
09384600 
09385000 
09386000 
09386500 
09387000 
09388000 
09389000 
09389500 
09390000 


ttt tt ae se et 


80 71S B87 LONG, 
09391000 T 
09392000 T 
09392300 T 


START OF SEGMENT x#eeekuene 


09392500 T 
09393000 T 


09393010 T 


09393020 T 


09393050 T 


09393060 T 
09393070 T 
09393080 T 
START OF SEGMENT * 


09393090 
09393100 
09393110 
09393120 


444-4 


TLL 


0060!0029t2a 
00801003182 
00601003533 
0080200360 
006080037%2 


008010037%2 
00801003614 
00808003912 
0080004113 
00601005210 
00601008210 
00801005410 
00801005782 
00801005713 
00801006713 
00801007133 
00801007410 
00801008484 


NEXT SEG 73 


00738009210 
007380094 
00731009510 


00861:0003!2 
00811000583 


00811000533 


0061000513 


00614000533 


00615000513 
00864:000583 
00843000533 


008621000080 
0082'0000!0 
00621000010 
00682:0001!3 


81 


82 


MOVEC 30eGRINCHEXMAS«LINKRe WHOI*+GOTLO))3 
PUSHFRIZXMAS 4 303 
END 

FLSE BEGIN 
MOVECHHATS®256°WHOsGRINCHE XMAS sLINKRe WHO] 2GOTL0I)3 
XMASteEXMAS + WHATS 
MOVECWHOS@30"@WHATs GRINCHLXMAS,LINKRsO]2 GOTCWHAT))$ 
PUSHERISXMAS + WHO3 
ENDS 

FNOD PUSHER} 


PROCEDURE PUSHEECGRINCH»NsBsY)$ VALUE NeBo YS REAL No BoY3 
PRT(671) = PUSHEE 
ARRAY GRINCHL0,0]3 
BEGIN 
REAL lYaeJeX3 


STACK(F42) «= | 
STACK¢F+3) = J 
STACKeFe4) 2 X 
NEFINE LINKR = £3228)48}3 
Jiny3 
rt2RB + N3 
WHILE B < 7 DO 
BEGIN 
IF YtsB,LINKC ¢ 225 THEN 
BEGIN 
MOVE C30eCODE CU) sGRINCHIB,LINKRsYIJ)3 
JisJ + 303 
BtsB + 303 
END 
FLSE BEGIN 
MOVECKX8@256"y,CODECJ) ,GRINCHIB LINKReYI)2 
BisB « X3 
Ji#aJd + Xx} 
MOVECY te 30"X,CODE CU) eGRINCHEB,.LINKR»0])3 
BtsB + Y3 
Jtal + Y2 
END? 
FNODS 
FND PUSHEF3) 


STREAM PROCENURE FIXHORCFeN)3 VALUE N3 
PRT¢672) = FIXHOR 
BEGIN SleF? SyeSt"243 DleLOC FR DSeWDS3 
STeF3 14¢S]eS148)3 DleLOC FS DSeWDS?3 
DIieF? DleDI+382 Ste LOC N3 
SleSts73 DSeCHRS 
END FIXHDRS 


82 18 


09393130 
09393140 
09393150 
09393160 
09393170 
09393180 
09393190 
09393200 
09393220 
09393230 


20 LONG 


09393240 


09393250 
09393260 
09393270 


START OF SEGMENT 


83 1S 


09393280 
09393290 
09393300 
09393310 
09393320 
09393330 
09393340 
09393350 
09393360 
09393370 
09393380 
09393390 
09393400 
09393410 
09393420 
09393430 
09393440 
09393450 
09393460 
09393470 
09393480 


35 LONG 


09393700 


09393740 
09393720 
09393730 
09393740 
09393750 


T 
T 
ul 
T 
T 
T 
T 
T 
T 
YT 
o 


Ss AA HHH HTH HH ot 


— 


~4aH 


Teri tit. 


00821000210 
00862:0005!2 
008623000684 
006218000614 
00823000722 
00829001192 
00621004210 
00823004680 
00821001713 
0062:0047!3 


NEXT SEG $1 


00843000513 


008110005! 3 
00811000533 
008641000583 


00831000010 
00831000030 
00838000084 
00838000210 
00831000312 
00831000382 
00833000512 
00831000513 
0083004132 
00831004210 
0083#004383 
00833004333 
00831004410 
00831002084 
00838002183 
00831002382 
00831002983 
00832003084 
00831003210 
00831003280 
00831003284 


NEXT SEG 81 


00811000583 


00611000513 
008118000712 
00611000881 
008110009t2 
00818000913 


83 


LABEL FOF3 
Ip NOT INTOG THEN 
BEGIN 
Le(L+3)p7V 43 COMMENT LeNUM, OF WORDS IN OUTER BLOCK} 
FILL SAVINFOrOs*) WITH 
0€6T7700000000000015, 


0¢T0253010477527705, 
0¢T0051000000000000, 
0¢7T04410700010000623 


Q « 13 
PUSHEECSAVINEGOsL2405)3 
SAVNOXteL3 
ENDS 
REWIND (COD?SK)3 
nO BEGIN IF REED=O0 THEN GO TO FOFS 
NeFETCHCMKABS(CODE(O)) "13 
TF BOOLEANCFETCHCMKABS(CODE(1)))2) THEN 
BEGIN 
PUSHEECSAVINFO»N»SAVNDXo1)3 
SAVNDX!tSSAVNDX 4N3 
END ELSE BEGIN 
IF DECKTOG THEN 
STACKHEAD[Q¢Q41] « 1O024xXNONSAVNDX4N3 
PUSHEECINFOeNs NONSAVNDX 59123 
NONSAVNDXt eC ¢NONSAVNDX + N # 29)DIV 30)303 
ENDS 
END UNTIL .FALSES 
FOF: Ne CSAVNDX499) DIV 303 COMMENT NUMBER OF DISK SEGMENTS 
OCCUPIED BY SAVE PROCEDURES AND ARRAYS3 
IF INTOG AND NOT DECKTOG THEN 
BEGIN ¥ INTRINSIC FUNCTION OPTION 
FOR JisUSFROPINX STEP 2 UNTIL OPARSIZE DO % 1S TIMESHARING SET 
IF OPTYONSr J] = "@TIMES" THEN 
REGIN TSSTOG?#BOOLEANCOPTITONSrJ41))% JtsOPARS1ZE ENDS 
1 «+ PRTIBASE + 4% J « O03 
DO IF GT1 « PRICI) #0 THEN 
BEGIN 
Joe Jet} 
SAVINFOCJeLINKRedeLINKC] © 
0&6T1(838210) 
&GT1033818815)3 
END UNTIL yee! +1 2 PRTIMAXS 
SAVINFOLOL0] © Us 2 # OF INTRINSICS 
SAVNDX «© MAXINTRINSIC3 
END ELSE BEGIN 
1*PRTBASES DO IF GTi*PRTC1)#40 THEN 
BEGIN IF GT1.,C1:5)4L0FS THEN 
BEGIN TF CGlieGTy8¢G7T1.0633915946b)£33233915)),(682)43 THEN 
GTreaTiaceli,r1681514N) 61883381533 
END3 
MDESCCGT1eSAVINFOCT .LINKReT,LINKCI)3 
END ELSE SAVINFOCTeLINKReTeLINKC)#a0 UNTIL Tt wel41>PRTIMAXS 
MOESCCOR1L 2247814) »SAVINFOLOsPRTIBASE?11)3 


09394000 
09394100 
09394200 
09395000 
09395100 
09395200 


START OF SEGMENT 


84 18 


09395300 
09395400 
09395500 


4 LONG 


09395700 
09396000 
09397000 
09397300 
09398000 
09399000 
09400000 
09401000 
09402000 
09402100 
09403000 
09404000 
09405000 
09405500 
09406000 
09407000 
09408000 
09412000 
09413000 
0941414000 
09414010 
09474020 
09414022 
09414024 
09414026 
09414030 
09414040 
09444050 
09444060 
09414070 
09414080 
09444090 
09434100 
09414110 
094144120 
094144130 
09415000 
09415500 
09416000 
09417000 
09417500 
09418000 
09419000 
09419100 


At HH HH HM HA HA A tH te Ha HA 


Perret re tit) 


0081!0040:0 
00811003020 
008110041!2 
006148004183 
00841004312 
00843004490 


00841001512 
0081!00158%2 
00849004582 


NEXT SEG. 81 


0061480015182 
008110016!0 
0084:0048!84 
008110014932 
0081100349!2 
0081100291!2 
00814002213 
0081:0028!1 
00818003383 
00841003430 
00841003680 
008180037183 
00811003630 
0081:003884 
00831004214 
006,8004aty 
00841004783 
00841004783 
00611004810 
008611005084 
00811005081 
0081:005294 
006110083:2 
00811:0055!2 
0081!005610 
0081:006;3!2 
00848006382 
00811006582 
008141006583 
0084:0066!4 
00814%0069!2 
00841007010 
00811007112 
0061007383 
00641007513 
00811007610 
008141007830 
00811008132 
0084008214 
00611008684 
00811008982 
00842008922 
00861:0092:0 
0081%0097!2 


84 


SAVNDX « 30 «x N3 
ENDS 
1 ¢ OF J # W413 


IF NOT DECKTOG THEN 


TSsPUSHERCSAVINFOSELBAT «123 

JiaJd + 43) 

WRITECDISK, 300 EL BATE *I)3 
END UNTIL IT 2 SAVNDX3 


yix03 
WHILE {| < NONSAVNDX DO 
RFGIN 
TisPUSHERCYNFOSELBAT eI )3 
Jtad + 7? 
WRITECOISK, 300 ELBATC*I)3 
END3 
Ne«IF INTOG THEN IF TSSTOG THEN 
TSSINTYPE ELSE DCINTYPE ELSE MCPTYPES 
FIXHDR(DISKsN)3 
LOCKCDISKe#)3 
END ELSE 


REGIN ELBATLOJ¢O3 14163 
DO BEGIN MOVECB,SAVINFOrT ,LINKReT LINKCISELBAT F193 
ELBATF91¢B2n614+96)815119479118 0149690238358 9)3 
WRITECDECKsL0eELBATE #123 
END UNTIL Tey*+O82SAVNDX3 
FILL ELBATC#e] WITH O» 


0¢T75000000000000190, 
0¢70004535530611765, 
0077006000404210435, 
0¢T7700000000000015> 
0¢7T0253010477527705, 
0270051000004410046» 
0-7T0441070001000062,. 
0¢70040413100000000, 
0cT000140000000001043 


WRITECDECKs10°ELBATEL*))3 
FLBATCO) #O0&REALCOECKT0G)(1219817)3 
FOR 1 + O STEP 1 UNTIL @ DO 
BEGIN K « STACKHEADLI),C23815]) 
M « STACKHEADCI),£38810)3 
FOR J « O STEP 8 UNTIL M DO BEGIN 
MOVECBsINFOL CUHK) sLEINKRe CUHK), LINKC I)» 
ELBAT rij)>3 
ELBATCI] + B20CUIAM3I10"F 193199773 
WRITECDECK» 10eELBATE*)) ENDS 
END3 
END END END PROGRAMS 
PRY(673) = *SEGMENT DESCRIPTOR® 


START OF SEGMENT 


85 18 


81 1S 
73°18 


09420000 
09420010 
09420020 
09420100 
09421000 
09421500 
09422000 
09423000 
09424000 
09425000 
09425900 
09426000 
09427000 
09427100 
09427200 
09427500 
09428000 
09499000 
09430000 
09430080 
09430060 
09430075 
09430100 
09431000 
09432000 
09433000 
09434000 
09435000 
09436000 
09437000 


09438000 
09439000 
09440000 
09441000 
09442000 
09443000 
09444000 
09445000 
09486000 
10 LONG 
09447000 
09447010 
09447020 
09447030 
09447040 
09447050 
09447060 
09447070 
09447060 
09447090 
09447100 
094468000 


At ts Ht Ht oh A Ht HH tt tt tH Ht 


186 LONG» 
101 LONG, 


SHERECESS 


00811010433 
0081:030284 
008141010281 
008618010481 
0081190104084 
00641010583 
0081!010680 
0061#0106!0 
0081!0106!90 
00813010982 
00842013030 
00618014484 
00613033513 
0061011681 
00611914880 
00638044880 
00818012482 
008118049281 
0081!03196%4 
0061:0127!2 
00818019884 
00849043443 
008643043281 
00815043484 
008378013484 
0086110437!2 
008480144084 
00843034532 
00848074983 
00611045153 


00840145383 
00843015383 
00618015383 
00613015313 
00813035383 
00811015383 
00619045313 
008410145333 
00842035333 
NEXT SEG 8 
00811015383 
00618015713 
OOByIOL6O8) 
00811016210 
00864016333 
00618016532 
008120166:0 
00848046983 
0063:017084 
00811017332 
008148047983 
00613048200 


NEXT SEG 73 


NEXT SEG 


85 


| 


3 


PRT¢674) 


PRT(675) 
PRT(676) 


PRT(677) 


PRT¢700) 


COMMENT THIS SFCTION CONTAINS GENERATORS USED BY THE BLOCK ROUTINES 10000000 
PROCEDURF DEFINEGENCMACRO,J)$ VALUF MACROsys BOOLEAN MACROS REAL y3 10228000 

NEF INEGEN 
BEGIN 10229000 
OWN INTEGER CHARCOUNTs REMCOUNTS 10230000 


START OF SEGMENT 


CHARCOUNT 
REMCOUNT 
COMMENT CHARCOUNT CONTAINS NUMBER OFCHARACTORS OF THE DEFINE THAT WE 10231000 
HAVE PUT INTO INFO REMCOUNT CONTAINS NUMBER OF CHARACT®# 19232000 
ORS REMAINING IN THIS ROW OF INFOS 10233000 
PROCEDURE PUTOGETHERCCHAR)$ REAL CHARS 10234000 
PUTOGETHER 
BEGIN 10235000 
STREAM PROCEDURE PACKINFOCINFO,ISKIP,COUNT,ASKIP,ACCUM)S 19236000 


START OF SEGMENT 


STACK¢F42) = COUNT 
STACK¢F43) « SKIPCOUNT 


PACKINFO 
VALUE ISKIPsCOUNT,ASKIP3 10237000 
BEGIN DI « INFOS DI ¢ DIFISKIPS 10238000 
S1 + ACCUMSS!] « SI+#ASKIP? SI « S]+33 10239000 
DS « COUNT CHR END PACKINFO3 10240000 
INTEGER COUNTeSKIPCOUNT3 10241000 
IF CCOUNT © CHAR,£1226)) + CHARCOUNT > 2047 10242000 
THEN BEGIN FLAG(142)3 TBy* TRUE END 10243000 
ELSE BEGIN 10244000 
IF COUNT > REMCOUNT 10245000 
THEN BEGIN 10246000 
SKTPCOUNT # COUNT=(COUNT*REMCOUNT)3 10247000 
REMCOUNT * 2047 END 19248000 
ELSE REMCOUNT « REMCOUNT=COUNT3 10249000 
GT1 «+ CHARCOUNT pnIV 8 + NEXTINFOS 10250000 
PACKINFOCINFOCGT1 sLINKRsGT1,LINKCJ] sCHARCOUNT, a5ead 19251000 
COUNT» OsCHARDS 19252000 
1F SKIPCOUNT # 0 THEN 10253000 
PACKINFOCINFOCNEXTINFO.LINKR+ Le 0] eOeSKIPCOUNT» 10254000 
COUNT, CHAR) 190255000 
CHARCOUNT « CHARCOUNT+SKIPCOUNTS4COUNT END 10256000 
END PUTOGETHERS? 10257000 


87 1S 32 LONG 


PRT¢C701) © SCAN 


4-4 


00038050583 
00038050533 


000310505t3 
000380505t3 


ee 86 


0086000030 
00861000010 
008610000!0 
00861000010 


0066000010 
008620000!0 


Tt e. 87 


444-4 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
® 


STREAM PROCEDURE SCANCD*SsQeNoJ)! VALUE JeNeQ} 10257100 T 
BEGIN DleDsNpeD lL 4113STeS#SreSr+33 10257200 T 

te N SCzDC THEN 10257300 T 

IF Sc>"O" THEN 10957400 T 

10257500 T 


BEGIN DleLOC Uys DyeDI473 


008710000!0 
00871000010 
0087:0000!4 
008718000143 


00871000281 


008710002034 
00873000481 
00871000782 
0087:0009t2@ 
00878000912 
008672001070 
0087:001280 
0087!0012!4 
00874001680 
0087:0018:0 
00878002; t2 
00873002210 
008710023!2 
00678002634 
00873002782 
008730029382 


NEXT SEG 86 


0086!000010 


00861000030 
0086:0001!2 
0086!0004!3 
00868000214 


@9oeoeeeeeeseesteewese 


STACK¢F42) 


STACK¢F43) 
STACK¢F 44) 
STACK¢F45) 


“uo o8~ 


IF SCSD0C THEN 
BEGIN JeSIsDyeJsSTeLOC QsSTeST+6sD0SeCHRI 
Dl eSspleDI+25DS¢CHRE 
FND END ENDS 


INTEGER LASTRESULT? 


LASTRESULT 
REAL KeNsoELCLASSS 
K 
N 
ELCLASS 
DEFINE I*NXTELBT#? 
LABEL FINALSPACKINS 
LABEL BACK#SKSC,EXITS 
TBie FALSE 
CHARCOUNT#CNEXTINFOM@LASTINEO) x83 
DEFINECTR «© 43 LASTRESULT «© 923 
REMCOUNT « (256 = NEXTINFO MOD 256) x 83 
NEXTINFOS*LASTINGOS 
pate THEN Ne TAKECLASTINFOS1), 6129633 
KeO3 
BACK! STOPDFFINE*TRUES 
ELCLASS+¢TABLECNXTELBT)3 
SKSCt NXTELBTeNXTELBT@=13 
tF MAGRO THEN 
BEGIN IF ELCLASS=COMMA THEN 
IF K=O THEN 
FINALS REGIN PUTORGETHERC"{#0000")3 GO TO EXIT END 
FLSE GO PAcKyN3 
1F ELCLASSeLEFTPAREN OR ELCLASSsLFTBRKET THEN 
BEGIN Kek+43 GO TO PACKIN END3 
IF ELCLASSsRTPAREN OR ELCLASSSRTBRKET THEN 
IF KeK=4<0 THEN GO FINAL ELSE GO PACKINS 
IF ELCLASSeSEMICOLON THEN 
BEGIN FLAG(142)% GO TO FINAL END ELSE Go PACKIN 
ENDS 
IF J#0 THEN 
TF ACCUME17.(1286]"18N THEN 
SCANCINFOLLASTINFO, LINKR »sLASTINFO, LINKC), 
ACCUME 1] eN+770,NeJ)3 
PACKINg 
IF RESULT = 4 
THEN BEGIN 
COMMENT INSERT "* MARKS = 2430706432 1S DECIMAL FOR 1700003 


PUTOGETHER(2130706432)3 
PUTOGETHERCACCUML1])3 
PUTOGETHER(C 2130706432) END 
FLSE BEGIN 
IF BOOLFANCRESULT) AND BOOLEANCLASTRESULT) 
THEN PUTOGETHERC™1 O000%)3 COMMENT INSERT BLANKS 
PUTOGETHFRCACCUM(E1]) ENDS 
1F TB1 THEN GO TO EXITS 
LASTRESULT «# RESULT! 
1F MACRO THEN GO BACKS 
IF ELCLASSaDECLARATORS AND ELBATEI}, ADDRESS «= DEFINEV 


19257600 
10257700 
10257800 
10257900 


10258000 


19258100 


10258200 
19258300 
10259000 
10260000 
10261000 
10262000 
10263000 
19263100 
19263110 
19263200 
10263300 
190263400 
10263500 
10263600 
10263700 
10263800 
19263900 
10264000 
19264100 
10264200 
19264300 
19264400 
19264410 
10264420 
10264500 
10264600 
10264700 
10264800 
10264900 
10264910 
10265000 
19266000 
19267000 
19268000 
10269000 
10270000 
19271000 
10272000 


10273000 


10274000 
19275000 
10276000 
19276500 
10277000 


Se ee Mee Eee 


AA MAA HA HHA Ht tt tt 


0086!0003!3 
0086%000410 
00861!0006!0 
00861000634 


008648000732 


008680007382 


0086:0007%t2 
008680007!2 
0086!0007!2 
0066:0007%2 
0086:000783 
00861000933 
00868004182 
0066:001332 
00863004420 
00863004733 
00861001880 
00861004983 
00861002112 
0086:002230 
00863002281 
00861002333 
00861002582 
0086:0029%2 
0086002982 
00868003084 
0086!0033%2 
00861003484 
00861003810 
0086:003884 
00861004081 
00661004084 
00863004132 
00861004383 
00861004684 
00863004634 
00863004982 
00868004982 
00863005010 
0086#0050:0 
008610051#2 
00861005210 
00661005284 
00861005532 
00863005532 
00861008712 
00861005810 
008610059t2 
008661005913 
00868006084 


STACK¢F42) = § 
STACK¢(F43) = T 


EXIT! 


PROCEDURE DBLSTMT3 


Lis 


BEGIN 
REAL S.T3 


THEN BEGIN DEFINECIR « DEFINECTR#$3 GO BACK ENDS 
IF ELCLASS # CROSSHATCH THEN GO BACKS 
IF DEFINECTR # 4 
THEN BEGIN STOPDEFINE ¢ TRUE3 
IF ELCLASS*+TABLECT)#COMMA THEN 
DEFINECTR*DEFINECTR13 GO SKSC END} 
DEFINECTRe O3 
NEXTINFO #C(CHARCOUNT$7) DIV B4NEXTINEOS 
FND DEFINEGENS 


LABEL LisL2eL3,EXyT3 


§«03 
1F STEPI#LEFTPAREN THEN ERR(281) 
ELSE 
BEGIN 
IF STEP]SCOMMA THEN 
BEGIN 
DPTOG«+TRUE} 


IF STEPTSADOP THEN STEPYT3 
EMITNUMOENLO)D3 
EMITNUMCIF ELBATCI@1)., ADDRESS =SUB THEN “NHI ELSE NHID3 
DPTOGeFALSE3 
STEPYT3 


END3 


a0 TO Las 


IF TABLECT+12=COMMA THEN 


BEGIN 


IF ELCLASSSADOP 


BEGIN 


OR ELCLASS#MULOP THEN 


EMITOCELBAT(1),ADDORESS41)3 
IF Se#S™450 THEN FLAG(282)3 STEPIT? 
GO TO L33 


ENDS 


IF ELCLASS#ASSIGNOP THEN 


BEGIN 
IF S#4 
00 
BEGIN 
IF ELCLASS 
STEPITS 


THEN FLAG(263)53 SO} STEPITs 


¥COMMA THEN BEGIN ERR(284)3G0O EXIT END) 


IF ELCLASS<INTID AND ELCLASS2REALID THEN 


BEGIN 


EMITNCELBATC1J,ADDRESS)! STEPIT END 
ELSE VARTABLECFL,)3 
EMITOCSTD) END UNTIL SeSeyu2 3 


IF ELCLASS#RTPAREN THEN ERR(285) ELSE STEPYTS 
GO TO ExIT3 


END3 


86 IS 


10278000 
19279000 
10280000 
10281000 
10282000 
19283000 
102848000 
10285000 
19286000 


81 LONG 


12002000 
12003000 
12004000 


START OF SEGMENT 


12005000 
12006000 
12007000 
12008000 
12009000 
12010000 
12011000 
12012000 
12013000 
12014000 
12015000 
12016000 
12017000 
12018000 
12019000 
12020000 
12021000 
12022000 
12023000 
12024000 
12025000 
12026000 
12027000 
12028000 
12029000 
12030000 
12031000 
12032000 
12033000 
12034000 
12035000 
12036000 
12037000 
12038000 
12039000 
12040000 
12041000 


AAA AN HH to to 


T 
T 
T 
T 
1 
T 
T 
T 
T 
f ] 


T 
T 
T 
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0086:0062%)4 
0086!0067!t2 
00861006810 
00868006881 
00861007030 
00668007210 
008610074:0 
0086!007583 
00861007880 
NEXT SEG 


00038050583 
00032050583 
00038050583 


0088100000 
00883000030 
00883000084 
0088:0002%) 
00881000382 
0086t0004:0 
0088:0005%2 
00881000523 
00888000610 
00881000810 
0088:000932 
00882001382 
0088:004430 
0088:00,484 
00881001452 
00886:00;5!2 
00882004684 
00883004782 
00868!0019%2 
00862001983 
0088:0021%3 
0068t0025!2 
0088:002533 
00882002533 
0088!0026!0 
00681002611 
00883003010 
00881003080 
00681003010 
0068!0032%) 
008810033t2 
008820038t4 
00881003782 
0068:0036814 


00882004413. 


0086:004484 
006810045t2 


88 


STACK EF 43) 


STACK¢F ed). 


STACK ¢F 45) 
STACK(CF 46) 
STACKOCF 47) 


PRT¢C702) & 


IF renee genes AND ELCLASS2BO0ID THEN 
CHECKER¢TeE,,BATCI})3 
STEPITISTEPTIT3 
AEXP3 
EMITVcT, ADDRESS); 
GO TO Lo} 
ENDS 
END 3 
AEXP3 
IF ELCLASS#COMMA THEN BEGIN ERRC284)3G0 FXIT 
END3 
STEPITS AEXPS EMITOCXCH)3 
L2s SoeS443 
L33 IF ELCLASS#COMMA THEN BEGIN FRR(984)3G60 TO EXIT ENDS 
GO TO Li 
EXIT&END 
END OBLSTMTS 


REAL PROCFOURE FIXDEFINEINFO*T)$ VALUE TS REAL TS 
BEGIN REAL Ke SePe Je EL3 


Ha 6 8 8 
Mo UVUNA 


STREAM PROCEDURE SETCSsDeKeF)$ VALUE KoE3 


BEGIN SieSsSreSlo1isHreDID eDI+3SD0SeK CHR 
SreLOC ES SyoSy46t DS? CHR3 
ENDS 


MACROJD«eTRUES 

PeCFIXDEFINEINFO*T) sADDRESS} 

KeCOUNTS 

S#SCRAM3 

STREAMTOGeTRUE & STREAMTOGL123245) 3 

STOPOFFINEeTRUES 

ELe©TABLECNXTELBT)3 

NXTELBTeNXTELBT #13 

IF ELSLEFTPAREN AND EL¥LFTBRKET THEN 
-FLAGC141) 

ELSE DO BEGIN JeJet3 
SETCINFOCT LINKReTLINKC] »ACCUME 1) 0K oe 64XJ412)3 
ACCUML17,£1286]¢K423 
ACCUMEO)¢03 
ACCUM(0],CLASS*DEFINEDIOSZ 
COUNT#Ke23 
SCRAM*ACCUME 4] MOD 1253 


88 1S 


12042000 
12043000 
12044000 
12045000 
12046000 
12047000 
12048000 
12049000 
12050000 
12051000 
12052000 
12053000 
12054000 
12055000 
12056000 
12057000 
12058000 
12059000 


65 LONG 


12101000 
12102000 


START OF SEGMENT 


12103000 


12104000 
12105000 
12106000 


12107000 
12108000 
12109000 
12110000 
12110100 
12111000 
12112000 
12113000 
12114000 
12145000 
124116000 
12447000 
12118000 
12119000 


12120000 


12121000 
12122000 


T 
T 
T 
T 
T 
T 
tT 
T 
T 
T 
T 
tT 
T 
T 
T 
T 
T 
T 
® 


T 
T 


TTT rit 


—_ 


a+44 
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008810045!2 
00881004684 
00883004732 
00888004824 
00888004983 
00881008080 
008820085143 
008810052:0 
0088:0082t0 
0088!0052!0 
008610052414 
0088!0055!2 
00868t0055!92 
00868!0056%4 
008810058:0 
00881006133 
008810062!0 
00881006220 
NEXT SEG 


00031050583 
00031050583 


0089%0000380 


00891000010 
00893000143 
00894000230 


0089%0002t4 
00891000333 
0089!0005t3 
00891000630 
00891000782 
008698000834 
008919000983 
00891001084 
00898004280 
00893004373 
00891004484 
008910047!82 
00891002210 
0086980025!2 
00891002680 
008910028684 
00891003010 


3 


89 


Es 
DEFINEGENCTRUE®0)3 


END UNTIL ELeELBATENXTELBTI],CLASS#COMMAS 
IF EL¥RTPAREN AND EL#¥RTBRKET OR J#P THEN FLAG(14193 


MACROIDe FALSE? 
STREAMTOGe+STREAMTOG,£1245) 3 
END3 


PROCEDURE SCATTERELBAT3 
BEGIN 
RFAL T3 


STACK¢F42) = T 

T + ELBATCIY3 
KLASSF « T,CLASS) 
FORMALF «+ BOOLEAN(T.«FORMAL)3 
VONF « BOOLEANCT,VO)3 
LEVELF « TeLVL3 
ADORSF « T,ADORESS3) 
INCRE « T,INCR} 
LINKe © T,WINK3 

ENO SCATTERELBATS 


PROCEDURE CHKSOB3 
PRT¢703) = CHKSOB 
rF GTAGCUeJ@=¢1#0 THEN FLAGC23)3 


DEFINE 
ADNC#S32460#, 
SUBC#1581056#, 
FMYTSTORESEMITPAIRES 
PROCEDURE PURGE(STOPPER) 
VALUF STOPPERS 
REAL STOPPER 
BEGIN 
INTEGER POINTERS 


STACKeFs2) = POINTER 
LABEL RECOV) DEFINE ELCLASS « KLASSF#;3 
REAL JeNeOCR,TL,ADDS 


STACK(F43) a J 
STACKER 44) » N 
STACK¢F 45) = OCR 
STACK(F 46) a TL 
STACK¢F 47) = ADD 


POINTEReLASTING OS 


12123000 YT 008980031183 
12124000 T 00891003230 
12125000 T 00891003312 
12126000 T 00891003533 
12127000 YT 00698003983 
12127100 T 008938004010 
12128000 T 00891004210 
89 1S 46 LONG» NEXT SEG 3 
13197000 T 00038050583 
13198000 T 00031050523 
13199000 fF 00031050513 
START OF SEGMENT *4eeeeeuee 90 
13200000 T 0090#000080 
13201000 T 0090:0001:2 
13202000 T 009080002!0 
13203000 T 0090000383 
13204000 T 00905000014 
13205000 T 0090!0006:0 
13206000 T 0090!0007t2 
13207000 T 00908000884 
13208000 T 00901000933 
90 18 12 LONGse NEXT SEG 3 
13209000 TFT 00033050533 
13210000 T 00031050533 
13211000 FT 00038050983 
13242000 T 00031050913 
13213000 T 00031050983 
13214000 T 00038050933 
132135000 T 0003:!0509%3 
13216000 T 00033050983 
13217000 T 00038050913 
13218000 T 00031050993 
13219000 T 00031050913 
START OF SEGMENT *aeeeeeee 91 
13220000 T 0091!0000!0 
13221000 T 0094100000 
13222000 T 


00912000010 


WHILE POINTER > STOPPER 
DO 


BFGIN 


RECOV? 


IF ELCLASS*©(GTLeTAKECPOINTER)),CLASSSNONLI TNO 
THEN BEGIN 
NCITeNCIIO13 
EMITNUMCTAKECPOINTER#1))3 
FMITSTORECMAXSTACKsSTD)3 
MAXSTACKe (GeMAXSTACK 413 
JeLs LeGTi,LINK3 
po 
BEGIN 
GT4+GFT¢L)3 
EMITV¢G) 
END 
UNTIL (LeGT4)=#40953 
Leu} 
POINTER@*PORNTER#@GT1.,INCR 
END 
ELSE 
BEGIN 
IF NOT BOOLEAN(GT1,FORMAL) 
THEN BEGIN 
IF ELCLASS = LABFLID 
THEN BEGIN 
ADD «© @T1,ADDRESS3 
IF NOT BOOLEANCOCRe TAKE CGITCPOINTER))),£121) 
THEN YF OCR,C36212) # 0 OR ADD # 0 
THEN BFGIN GT1 «+ 1603 GO TO RECOV END? 
IF ADD # O THEN 
PROGDESCBLDOR¢eADDe TRUE, OCR, 364101» LDES) END 
ELSE 1F FALSE 
THEN BEGIN 
IF TAKECPOINTER#1) «< O 
THEN BEGIN GT1 © £623 GO TO RECOV END; 
OCR e¢J © TAKECGITCPOINTER))),C24%12)3 
N ¢ GETC CUedef36212))¢4)3 TL © LB 
IF ADD « GT1.ADDRESS # 0 
THEN BEGIN 


IF OCR # O 


THEN BEGIN LeOCR™2? CALLSWITCHCPOINTER)S EMITOCBFW)SENDS 


LeJ+¢1e EMITLOL5)3 EMITOCRITS)! 
FOR J * 4 STEP 4&4 UNTIL N 
nO BEGIN 
EMITLCGNATCGETCLI*40964GET(L41))93 
EMITOCRTS) END END 
ELSE BEGIN 
Loe J#133 
FOR J «© 4 STEP & UNTIL N 
nO BEGIN 
GT1 « GETCLIxX40964GFTC(LO1)3 
GOGENCGT1eBFW) ENDSENDS 
lL « TL END 


ELSE IF ELCLASS 2 PROCID AND ELCLASS ¢ INTPROCID 


THEN Ie Taker cPOINTEFRe1) < 0 
THEN BEGIN GTy « 1613 


MOVE COeTNFOPPOINTER .LINKRePOINTER,LINKC Je ACCUM) 3 


13223000 
13224000 
13225000 
13226000 
13227000 
13228000 
13229000 
13230000 
13231000 
13232000 
13233000 
13234000 
13235000 
13236000 
13237000 
13238000 
13239000 
13240000 
13241000 
13242000 
13243000 
13244000 
13245000 
13246000 
13247000 
13248000 
13249000 
13250000 
13251000 
13252000 
13252500 
13253000 
13254000 
13255000 
13256000 
13257000 
13258000 
13259000 
13260000 
13261000 
13262000 
13263000 
13264000 
13265000 
13266000 
13267000 
13268000 
13269000 
13270000 
13271000 
13272000 
13273000 
13274000 
13277000 
13278000 
13279000 
13280000 
13281000 


AA HAA AHHH Ht tH RA tH A tH A A A tH 


00918000011 
00948000182 
00918000280 
00911000210 
00918000424 
00918000583 
00914000681 
009430008684 
00918000983 
009478004182 
00948004332 
00943004420 
009110044380 
00941004582 
0094:004523 
00914001680 
00944004743 
009430014884 
00918004634 
009410090010 
0091100200 
00943009210 
00943002230 
00948009383 
00914#0029333 
009148000434 
0091#002630 
0094:0026:0 
0091:003011 
0094#0033!2 
00941003383 
0091 30036:0 
009130037192 
00948003713 
00912003814 
00912008132 
00911004313 
0091:0047!2 
0093:00488t4 
00911004913 
00943004923 
0091:004933 
00941 :005333 
009141005610 
00918005640 
0091:0057t2 
00943006014 
009144006313 
00911006690 
00918006782 
00941006782 
009110068:0 
009148007182 
00918007484 
0094,1007S!#2 
00918007630 
0094:008084 
00911008210 


@ « ACCUMC1)3 FLAGCGTL)3 ERRORTOG « TRUE END 


END3 
XREFDUMPCPOINTER)3 ® NUMP XREF INFO Z110- 
GT2+TAKECPOINTER+1)3 
GT3*«GT2,PURPTS 

STACKHEAD( CO&GT2£128121363)M0D 125) ¢TAKECPOINTER) LINKS 
POYNTERePOPNTER#GT3 
END 
END 3 
LASTINFOe*POINTERS 
NEXTYNFO*STOPPER 
ENDS 
PROCEDURE F3 
COMMENT 
F tS THE PROCEQURE WHICH PLACES AN ENTRY IN INFO AND 
HOOKS 17 INTO STACKHEAD. THE PREVIOUS STACKHEAD LINK 
1S SAVED IN THE LINK OF THE ELBAT WORD IN THE NEW ENTRY 
— PREVENTS AN ENTRY FROM OVERFLOWING A ROWsSTARTING AT THE 
BEGINNING OF THE NEXT ROW IF NECESSARY ; 


BEGIN 
REAL WORDCOUNT,RINXS 


STACK¢F42) = WORDCOUNT 
STACK¢Fs3) = RINX 
TF RINX*(NEXTINFO+WORDCOUNT#¢CCOUNT+182DI1V 8 
NEXTINFO,LINKR 
THEN BEGIN PUTCY25&¢CRINXX256"NEXTINGO)C272402 BJ eNEXTINF ODS 
NEXTINFO*#256xRINX END} 
1F SPECTOG THEN 
IF NOT MACROIN THEN 
UNHOOK3 


deLINKR # 


ACCUMEO],1NCReWORDCOUNT? 
TF NOT ITNLINETOG OR MACROID THEN BEGIN 
ACCUMFOJ, LINK *STACKHEADESCRAMI]SSTACKHEADECSCRAMIJ@NEXTYINFOS 


ENO3 
ACCUMF1),PURPT¢NEXTINFO@LASTINGOS 
MOVECWORDCOUNT¢ ACCUMs INFOCNEXTINFO.LINKRoNEXTINFO,LINKC) 3 


TF XREF THEN & MAKE DECLARATION REFERENCE £110. 

¥ 1F cCACCUMFO},CLASS # DEFINEDID OR NOT %110" 
% BOOLEANCACCUMEO) FORMAL?) THEN % NOT DEFINE PARAMETERS110¢ 
BEGIN %110« 
XREFINFOCNEXTINFO] te %110- 

IF SPECTOG THEN £110 
XREFINFOCELBATCIII 2110 


ELSE . %110 


CCXLUN $= XLUN + 1) & SGNO SEGNOF)3 21108 

IF SPECTOG THEN & JUST GO HACK AND FIX UP XREF ENTRY 81102 
XMARK(CDECLREF ) $110- 
ELSE 110% 


XREFITCNEXTINFOsCARDNUMBER,IF PTOG AND NOT STREAMT0G8110= 
THEN NORMALREF ELSE DECLREF)3 ¥110- 


91 15 


13262000 
13283000 
13263500 
13284000 
13285000 
13286000 
13267000 
13288000 
13289000 
13290000 
13291000 
13292000 


105 LONG 


13293000 
13294000 
13295000 
13296000 
13297000 
132998000 
13299000 
13300000 
13301000 


START OF SEGMENT 


13302000 
13303000 
13304000 
13305000 
13305100 
13305200 
13305300 
13306000 
13307000 
13307500 
13308000 
13308500 
13309000 
13310000 
13310050 
13340075 
13310080 
13310100 
13310200 
13310300 
13310350 
13310400 
13310450 
13310500 
13310525 
13310550 
13340575 
13310580 


ie i ree 


AAMNANOIANOAMANONA OOO AAAs HH A 


Pree ret 


00911008610 
0091418008912 
00948008982 
009120091412 
00948009284 
00912009410 
009480090713 
00918009810 
00948009980 
00932009913 
00912010030 
009148010080 
NEXT SEG 


00038050983 
00031050933 
00033050933 
00031050983 
00032050933 
00031050933 
00038050913 
00031050983 
00032050983 


00928000030 
00921000312 
00928000382 
00923000733 
00921000982 
009210009%2 
00925004010 
009210014312 
0092:004182 
009210014383 
009240013532 
0092100;982 
009210019t2 
009218002210 
00928002583 
00921002684 
00928002614 
0092:0026%; 
0092%:002732 
00921002983 
00921003030 
0092100393:3 
00921003410 
009228003712 
009210037!2 
00921004210 
00928004230 
009218004210 


3 


92 


END %110« 
¥ FLSE & DEFINE PARAMFTERS = DONT CROSS REF. %110= 
4 XREFINFOCNEXTINEO] te 0 %¥110° 

ELSE %110= 

IF DEFINING. C184) THEN & WE ARE DOING XREFING #1109 

XREFINFOLNEXTINFO) te 03 #110 
LASTINFOeNFXTINFOS 


NEXTINFOeNEXTINFO+WORDCOUNT 
ENDS 


PROCEDURE FNTRYCTYPE)D3 
VALUE TYPES 
REAL TYPES 
COMMENT 
ENTRY ASSUMFS THAT 1 IS POINTING AT AN TDENTIFTER WHICH 
1S BEING DECLARED AND MAKES UP THE ELBAT ENTRY FOR IT 
ACCORD TO TYPE IF THE ENTRY +S AN ARRAY AND NOT 
A SPECIFICATION THEN A DESCRYPTOR 1S PLACED IN THE STACK 
: FOR THE UPCoMING COMMUNICATE To GET STORAGE FOR THE ARRAY(S) 3 
EGIN 
JeQsfotnyt 
Do 
REGIN 
STOPDEFINE «TRUES STEPITS SCATTERELBATS 
IF FORMALF*SPECTOG 
THEN 
BEGIN 
IF ELCLASS#SFCRET 
THEN FLAG(002)3 
BUP+BUP4+1 
5 KLASSFeTYPESMAKEUPACCUMS Es JeJel13 
END 
ELSF 
BEGIN 
IF FLCLASS>1pMaAX AND ELCLASS<MULOP ¥112= 
THEN IF ELCLASS@ POLTSHV THEN ELCLASS*TYPE ELSE FLAGC3)3 
IF LEVE LP eLEVEL 
THEN FLAGCO04)3 
VONFeP23 
FORMALF«PTOG3 
1F XREF AND NOT SPECTOG THEN % FRASE PREVIOUS XREF ENTRY, 
XREFPTeXREFPTPREALCELBATCLCIJ#0)3 & GET RID OF LAST CREF 
KLASSFeTYPES MAKEUPACCUMSE) JeJe13 
IF CCFORMALFePTOG) ORCSTREAMTOG AND NOT STOPGSP)) AND NOT Pp? 
THEN ADORSFoPJePJ+1 
FLSE IF STOPGSP 
THEN ADDRSFs0 
ELSE ADDRSFSeGETSPACECP2sLASTINFOO1)3 
PUTCTAKECLASTINFOJ& ADDRSFCIGS37THLLIOLASTINGO)S 
ENn END 


UNTTL STEPT#COMMA OR STOPENTRYS GTAICOJeJ 
END3 


92 1S 


13310600 ¢ 
13340700 c 
13310750 ¢ 
133190800 ¢ 
13310900 ¢ 
13310950 ¢ 
13311000 T 
13312000 T 
13313000 T 
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13314000 
13315000 
13316000 
13317000 
13318000 
13319000 
13320000 
13321000 
13322000 
13323000 
13324000 
13325000 
13326000 
43327000 
13328000 
13329000 
13330000 
13331000 
13332000 
13333000 
13333500 
13334000 
13335000 
13336000 
13337000 
13338000 
13339000 
13340000 
13341000 
13341100 
13341200 
13341300 
13342000 
13343000 
13344000 
13345000 
13346000 
13347000 
13348000 
13349000 
13350000 
13351000 
13352000 


AA AH HHH OO A HAH AA A HT TR oA tH tt 


00921004782 
009280047t2 
0092:0047%2 
00928004732 
00928008782 
00928004881 
0092100523 4 
009280083t2 
00928005313 
NEXT SEG 


00038050983 
0003#0509%83 
00033050933 
00038050983 
00033050933 
00033050913 
00031050913 
00034050933 
00031050933 
0003050983 
00032050933 
00031054230 


3 


000330513230 - 


00031051210 
000310514383 
00031051383 
000310544084 
000330515382 
00033054512 
000380547382 
00031051782 
00038052192 
0003:052112 
00031052182 
00038052483 
00033052231 
00031052782 
00031052733 
00038052982 
00038053030 
000310530314 
00033053220 
00031053484 
00031053733 
00031053983 
00038054112 
00031054312 
000310844380 
00032054782 
00038054983 
00031054913 
00033054983 
00038055210 


PROCENURE UNHOOK} 
COMMENT 
UNHOOK ASSUMES THAT THE WORD IN FLBAT(I] POINTS TO A PSUFDO ENTRY 
FOR aPARAMETER,1TS JOB 1S TO UNHOOK THAT FALSE ENTRY SO THAT 
F WILL WORK AS NORMAL. } 
BEGIN 
REAL LINKTeAsLINKP3 


STACK¢Fse2) = LINKT 
STACK¢F43) a A 
STACK¢F44) = LINKP 
LABFL L3 
LINKTeSTACKHEADESCRAM) 3 LINKP*ELBATECID,LINKS 
IF LINKTSLINKP THEN STACKWEADESCRAMIJ©TAKECLINKT) «LINK 
ELSE 
Lt IF A#TAKECLINKT) »LINK#LINKP 
THEN PUTCCTAKECLINKTII&CTAKE CAD C3528 35213] eLINKT) 
ELSE BEGIN LINKT#*A3 GO TO L END) 
END3 


PROCEDURE MAKEUPACCUM3 
BEGIN 
IF PTOG 
THEN GTLeLEVELF ELSE GTLeLEVEL3 
ACCUMrO)* ABSCELBATCI) & KLASSFLA84127) & REALCFORMALFI(98473143 
& REALCVONF)£1094794) & GT161184335) &ADDRSF 16837011) 
) 
END} 


PROCEDURE ARRAE? 
PRT¢704) & ARRAE 
BEGIN 
INTEGER SAVEINFOS 


STACK¢F 42) = SAVEINFO 
LAREL BETALS3 
TYPE VeREALARRAYID3 
TF TreGTAtCJeJ74)20 THEN JeJel 
ELSE 
IF TisOWNV THEN 
BEGIN 
P2eTRUESIF SPECTOG THEN 
FLAGC!3) 
END 
ELSE 
TYPEV*REALARRAYID+TI*REALVE 


93 1S 


13353000 
13354000 
13355000 
13356000 
13357000 
13358000 
13359000 


START OF SEGMENT 


13360000 
13361000 
13362000 
13363000 
13364000 
13365000 
13366000 
13367000 


{7 LONG 


13368000 
13369000 
13370000 
13371000 
13372000 
13373000 
13374000 
13375000 


13376000 


13377000 
13378000 


START OF SEGMENT 


13379000 
13380000 
13381000 
13382000 
13383000 
13384000 
13385000 
13386000 
13387000 
13388000 
13389000 


a 


T 
T 
T 
T 
T 
T 
T 
T 
J 


ee 


T 


T 
T 


000380553%2 
0003205532 
00031055382 
000310553t2 
00032055382 
00031055312 
0003'0553%2 


He a ee 9 


009318000080 
00938000010 
00938000281 
00931000513 
00938000680 
009380008354 
0093004210 
00938004484 
NEXT SEG 


000310553t2 
00031055382 
0003:055312 
0003!0554t0 
00031055614 
00031055933 
00038056210 
000310562t4 


00031056383 


00038056333 
0003!056333 


ke Oe 9 


ia ee rr | 


00948000010 
009410000:0 
00941000004 
00941000410 
00941000512 
00941000610 
00941000684 
00941000783 
00941000814 
00941000912 
00941000912 


3 


3 


4 


@eeoeeeoe%eeeeeeeeeeeeeeeeeeeee@ 


BETAL® ENTERCTYPEYV)3 
1F FLCLASS#LFTBRKET TWEN ERG EHO) 
TF STEPTeLITNO THEN 
BEGIN 
SAVEINFO+ELBATFI),ADDRESS3 
IF STEPI¥RTBRKET THEN FLAG¢53)3 


FILLSTMTCSAVEINFO)3 
SAVE INFoOet13 
END 
ELSE 
BFGIN JF ELCLASS#ASTRISK THEN FLAGC56)3 


SAVEINFO«t} 
WHILE STEPI#FRTBRKET DO 
BEGIN IF ELCLASS#COMMA AND 
STEPIAASTRISK THEN FLAG(56)3 
SAVE INFO*SAVEINFE O41 


ENDSSTEPIT; 
END: PUTCTAKECLASTINFO)&SAVEINFOL27 #4028}, LASTINFODS 
J« 13 GTA1(0} « O 3 
IF ELCLASS#COMMA THEN BEGIN STEPIT3G0 TO BETA1 END 


END ARRAE3 


PROCEDURE PUTNBUMPCX)3 
VALUE X3 
REAL X3 
BEGIN 
INFOCNEXTINFO,LINKReNEXTINFOeLINKC]¢X3 
NEXTINFO*NEXTINFO+] 
END 3 


PROCEDURE JUMPCHKX3 

COMMENT Tw1S PROCENURE IS CALLED AT THE START OF ANY EXECUTABLE cOpr 
WHICH THE BLOCK MIGHT EMIT. IT DETERMINES WHETHER ANY JUMPS 
ARROUND NONEXECUTABLE CODE MAY BE WAITING AND WHETHER IT 
1S THE FIRST EXECUTAB).E CODES 

IF NOT SPECTOG THEN 


BEGIN 
IF AgUMP 
THFN 
BEGIN ADJUSTS 
FMITBCBFWsSAVELeL) 
END FLSE 
te FIRSTX#4095 
THEN 
BEGIN 
ADJUSTS 
FIRSTXeL3 
END3 


AJUMPeFALSE 


94 18 


13390000 
13391000 
13392000 
13393000 
13394000 
13395000 
13396000 
13397000 
13398000 
13399000 
13400000 
13401000 
13402000 
13403000 
13404000 
13405000 
13406000 
13407000 
13408000 
13408500 
13409000 
13410000 


41 LONG 


13589000 
13590000 
13591000 
13592000 
13593000 
13594000 
13595000 


13596000 
13597000 
13598000 
13599000 
13600000 
13601000 
13602000 
13603000 
13604000 
13605000 
13606000 
13607000 
13608000 
13609000 
13610000 
13611000 


13612000. 


136143000 
13614000 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
td 


Se 


et tt st to st 


00948004182 
00943001294 
00943004484 
00941004513 
0094!00;610 
00941004783 
00948002080 
0094800204 
009480021193 
00948002133 
00941002183 
00948002410 
0094300248} 
00943002681 
009480027%2 
009410099183 
00948003080 
00948003280 
00941003210 
009410034384 
009480036184 
009430038384 
NEXT SEG 


00033056333 
000310563183 
00031056313 
00031056383 
00032056333 
0003!056732 
00038056732 


00033056834 
0003305683; 
00032056884 
000310568!4 
0003!'056814 
00038086684 
00031056983 
0003!087030 
0003:057010 
00038057080 
000310571482 
0003:0572:0 
000380572%1 
0003:0573!2 
00033057383 
00038057410 


3 


00033057434. 


00033057513 
00032057583 


PRT(705) # PRINT 


ENDS 


PROCEDURF JUMPCHKNX} 
COMMENT JUMPCHKNX DETERMINES WHETHER ANY EXECUTABLE CODE HAS BEFN 
EMITTED AND {F SO WHETHER 1T WAS JUST PREV]OUS TO THE 
NON EXECUTABLE ABOUT TO BE EMITTED. IF BOTH THEN L IS BUMPED 
AND SAVED FOR A LATER BRANCH3 
IF NOT SPECTOG THEN 


BEGIN 
IF FYRSTX#4095 
THEN 
BFGIN 
TF NOT AJUMP 
THEN 
SAVELeRUMPL3 
AJUMPs TRUE 
ENDS ADJUST 
ENDS 


PROCEDURF SEGMENTSTARTCSAVFCONE)S VALUF SAVECODES BOOLEAN SAVFCODF3 
BEGIN 
STREAM PROCEDURE PRINTCSAVECODE,ADReFIEL)3 VALUE SAVECODEs ADR? 


BEGIN 
LABEL Lis 
OLisFIELs DStseB LIT" "3 
STSeFIELS OSte9 WOSs Dr steDy=33 . 
SAVECODECOS!a#38 Lit wSTART OF SAVE SEGMENT3 BASE ADDRESS s *3 
JUMP OUT TO L193 
0S$%e38 LIT * START OF REL SEGMENT? DISK ADDRESS « *} 
Lit 
S1t=L0c ADRS NS*35 Orcs 
FND PRINT} 


MOVE C1 eSAVECODEs CODEC 0) 3 
IF SAVECODE AND INTOG AND NOT DFCKTOG THEN FLAGC57)3 
IF LISTER OR SeGSTOG THEN 
BEGIN 
PRINTCSAVECODE,IF SAVECODE THEN CORADR ELSE DISKADReLINE*3)3 
IF NOHEADING THEN DATIME? WRITELINES 
ENDS 
END SEGMENTSTARTS 


PROCEDURE SEGMENTCSIZEeFR)3 VALUE SIZEeFRS INTEGER SIZEeFRS 


13615000 


13616000 
13617000 
13618000 
13619000 
13620000 
13621000 
13622000 
13623000 
13624000 
13625000 
13626000 
13627000 
13628000 
13629000 
13630000 
13631000 


13632000 
13632100 
13633000 


START OF SEGMENT 
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13634000 
13635000 
13636000 
13637000 
13638000 
13639000 
13640000 
13641000 
13642000 
13643000 


13651000 
13651100 
136532000 
13652500 
13653000 
13653500 
13654000 
13655000 


40 LONG 


13657000 


AH AH HHH A 


T 
T 
T 
* 


i ee 


T 
T 
T 
T 
T 
T 
T 
T 
i) 


T 


eek ee eke 


00033057533 


00033057810 
00033057830 
00033057830 
000380578680 
00031057810 
00031057810 
00034057834 
000380579%2 
00038057982 
00038057983 
0003:0580!0 
000310580!0 
00038056081 
000380583t2 
00031058382 
0003:0583:3 


000310586!0 
0003:0586t0 
0003:0586#0 


00951000010 
00951000010 
00952000010 
00951000183 
00954000210 
00951000810 
00951000912 
00951004410 
00951004410 
00958004484 


00953004414 
009510039%2 
00951002241 
00958002400 
00981002411 
00951009783 
00951003919 
00958003912 
NEXT SEG 


000330586t0 | 


95 


PRT¢706) = PRINT 


PRTC707) = norT 


BEGIN 
STREAM PROCFDURFE PRINTCSIZESFIEL)$3 VALUE S{ZE3 


BEGIN 

OLteFIELs OSteB LIT" &3 

SJitsFIELs DSte14 wOS3 

DiteDl=163 DSts6 LITWSyZEe "3 

Srt=LOc SIZEs pStea4 pnFEcs DSt=6 LIT" WORDS" 
FNO PRINT) 


STREAM PROCEDURE DOITCCoAst oSoFeW3 VALUE CoAsFoW$ 


BEGIN LOCAL N$ 
N1teSs OSteB LIT® #3 SytaSs YStad wOSs 
DIteDI#83 STtsLOC Ws DSt=#4 DECI 


Syteys SptwSy+qOspytaLoc Ns DI t#O1e73 DSt=CHRs 
NyseSs STteLOC Fs STteSl+73 OS#wCHRs STeeLOc C3 
DSts3 DECS OSts4 DECsSy tals SlteSi411sDSt=N CHRE 


FND DOTS 


IF LISTER OR SegST0OG THEN 


BEGIN 
PRINTCSIZE LING *) 93 
TF NOHEADING THEN DATIME? WRITELINES 
ENDS 

IF STUFFTOG THEN IF FR>O THEN IF LEVEL>1 THEN 
BEGIN 


KLASSFRsTAKECPROINFO).CLASS3 
IF FR > 1024 THEN FReFR=10243 


DOITCKLASSFeF Re INFOLPROINFOsLINKRe PROINFO,LINKC] 9 


TWXALOT+SAFeSIZF)} 
WRITECSTUFF e105 TWXAL 4] )3 
ENDS 
IF SIZF>SEGSIZEMAX THEN SEGSIZEMAX!sS{ZE3 
END SEGMENTS 


STREAM PROCEDURE MOVECODECEDOC+TEDOC)3 


PRTC710) = MOVECODE 


BEGIN LOCAL T1+T2,-T33 


SjerDOciTieSi3 
Sl#TEDOC#HT2¢S]3 
SjeLOc EDOC3 
SroS+33 

Dre+LOc T33 
Drenre53 

SKIP 3 DB3 


13660000 
13661000 


START OF SEGMENT 


13663000 
13665000 
13667000 
13668000 
13670000 
13673000 


13673100 


13673150 
13673200 
13673250 
13673300 
13673350 
13673400 
13673450 


13674000 
13674500 
13675000 
13676000 
13677000 
13677100 
13677150 
13677200 
13677250 
13677300 
13677400 
13677500 
13677600 
13678000 
13681000 


47 LONG 


13683000 


13684000 
13685000 
13686000 
13687000 
13688000 
13689000 
13690000 
13691000 


T 
T 


KEKKKHKKKSE 


ans 


a 


T 
T 
T 
T 
T 
7 
T 
T 
T 
T 
T 
T 
T 
T 
T 
id 


~4 


4a att 


0003#0586!0 
00032058610 


0096:0000!0 
0096000080 
0096000183 
0096:000280 
009610003382 
00968000484 


00961000512 


0096180005t2 
00961000512 
0096:0007%2 
00968000783 
009680009t2 
00968004020 
00961001183 


00968004210 
00962001382 
009620013!3 
00961004582 
00968002684 
0096002634 
00961002913 
00963003080 
00968003280 
00968003481 
009610037383 
00968003932 
0096:0043ta2 
00961004312 
0096!0045!2 
NEXT SEG 


00031058610 


000310586!0 
000380586!0 
00033058631 
00033958782 
00031058712 
00038058713 
00038058783 
00038058810 


96 


3 


15¢1F SA THEN OSe 1 SET ELSF pSe1 RESETSSKIP 1 SB)3 
Ste LOC F£DO0C3 
Die LOc Ta} 
DS* 5 CHR} 
3¢1e SR THEN DSei SET FLSp pSe1 RESETSSKIP 1 SB)3 
DieT33 
Ste,oc 23 
DSeWDS3 
Dye lOc 133 
Diefh 1453 
SKIP 3 DB3 
St*_LOc TEDOC!S 
SleS1¢33 
1SCIF SR THEN DSe1 SET ELSE DS 1 RESETSSKIP 1 SB)3 
St+ LOC TEDOC3 


Dj*e LOC Ti3 
DSe 5 CHR) 
3¢tF SB THEN O0Se1 SET ELSE DS! RESETSSKIP + SB)? 
DieT33 
Ste10c 1413 
DSewDS 
END} 


PROCEDURE ENTERCTYPE)3 
VALUF TYPE 


RFAL TYPE) 
BEGIN 
GeGTAICJeJ=41)3 
1F NOT SPECTOG 
THEN 
BEGIN 
IF NOT P2 
THEN IF P2¢CGROWNV) 
THEN GeGTALCJeJ"113 
Ip NOT P3 
THEN IF P3*eCGsSAVEV) 
THEN GeGTALCJeJ"1) 
END! 
tF G40 THEN FLAGC25) FLSE ENTRYCTYPE) 
END? 


PROCEDURE HTTEOAPCGOTSTORAGE pRELADsSTOPPERsPRTAD)S 
PRYC7¢1) = wYTEOQAP 
VALUE GOTSTORAGEORFLADsSTOPPERsPRTADS 
BOOLEAN GOTSTORAGES 
REAL RELADsSTOPPER,PRTADS 
BEGIN 
IF FUNCTOG 
THEN 
BEGIN 
EMITVC513)3 


13692000 
13693000 
13694000 
13695000 
13696000 
13697000 
13698000 
13699000 
13700000 
13701000 
13702000 
13703000 
13704000 
13705000 
13706000 
13707000 
13708000 
13709000 
13710000 
13711000 
13712000 
137413000 


13714000 
13715000 
13716000 
13717000 
13718000 
13719000 
13720000 
13721000 
13722000 
13723000 
13724000 
13725000 
13726000 
13727000 
13728000 
13729000 
13730000 


13731000 


13732000 
13733000 
13734000 
13735000 
13736000 
13737000 
13738000 
13739000 


Se ee ee ee ee ee | 


AAAs AHH 


-—4 


Se i | 


0003:0586:0 
00032059010 
00038059034 
00031089081 
000330591!2 
00031059312 
00038059382 
00038059313 
000330593793 
00038059430 
00032059480 
00031059441 
000310594314 
000310595!2 
00038059732 
00038059712 
00031059733 
00038059733 
0003105998 3 
0003!0600!0 
0003!060080 
00038060084 


00030600381 
00032060084 
00031060084 
00038060084 
00032060011 
0003106032 
00031060382 
00032060313 
000310604!0 
00038060410 
00031060532 
00038060884 
00033060881 
00031061010 
00033061214 
00031064313 


00031064610 


00033:0617:82 


00038061782 
00038061752 
00038064712 
00031064712 
0003106,712 
00038064712 
00031064782 
00031064783 


EMITOCRTN) 
END 
ELSE 
EMITOCXyT)3 

CONSTANTCLEANS 

PURGE (STOPPER) 3 
MOVECS sCONFECO)sZ2)3 PROGDFSCBLORCPRTIAD» BOOLEANCZ)eCL43)DIV 4ePNES)3 
ENn HTTEOAPS 


PROCEDURE  NLINES 
BEGIN 
INTEGER SNeLNePol, Sod? BOOLEAN MKST3 


STACK(F 42) m SN 
STACK¢F +3) = LN 
STACK¢F 44) = P 
STACK(F45) 2 LS 
STACKEFs46) = J 
STACK¢F47) = MKST 


. BOOLEAN FLYPFLOPS 
STACK¢F 410) = FLIPFLOP 
INTEGER PN 
STACK¢F 411) = PN 
LABEL Lish2eLg3 
PNey J 
FLIPFLOP*INLINETOG+TRUE SPOS MKSTeFALSESLSeLIEMITOCNOP)3 
IF STEPT#LEFTPAREN THEN FLAG(59)3 
IF TABLECI+#1)#COLON THEN BEGYN STEPITSGO TO L2 END 3 
Lit IF STEPI>IDMAX THEN BEGIN FLAG(G65)% GO TO L2 END 3 
AcCUMS 0) ©08P(16837911 J8LOCLIOL 284187 JRSCRAM(35335313]3 
FSIF FLIPFLOP THEN BFGIN FLIPFLOP*FALSESLNGSNeLASTINEO ENDS 
1F STEPISCOMMA OR FLOLASS@#cOLON OR ELCLASS#RTPAREN 
THEN BEGIN [err2eSTEPIT END 
FLSE IF ELCLASS#ASSIGNOP THEN FLAG(60) ELSE STEPIT3 
AFXP! 
Lb?! JF ELCLASS#COLON THEN 
BEGIN IF MKST THEN FLAGC99)3 MKST¢TRUES EMITOCMKS)3 PePoo3 
IF TABLECIT#¢41)#RTPAREN THEN GO TO Li? STEPIT 
IPNe?} 
END ELSE PeP4143 
Tf ELCLASS@COMMA THEN GO TO L13 
If ELCLASS#RTPAREN THEN FLAG(61)3 
trp NOT MKST THEN 
BFGIN JeL3LeLSEEMyTOCMKS)$ Leu END? 
IF STEP! # SEMICOLON THEN FLAG(62)3 
EMIT0¢(584)3 


L3tELRATECIJeTAKECSNIISCATTERELBATS ADDRSF«P*ADDRSF 3 
PUTCFELBATFII&ADDRSFL168378 41 JES TACKHEADCLINKFIC33833815),SN)3 
STACKHFADELINKF ]eSN3 SNeSN+INCRES 
IF ADORSF#PN THEN GO TO L3 3 
INLINETOGe FALSES 


13740000 
13741000 
13742000 
13743000 
13744000 
13745000 
13746000 
13747000 


13748000 
13749000 
13750000 


START OF SEGMENT 


tte tt 


T 
T 
T 
* 


13750500 T 


13750600 


13751000 
13751100 
13752000 
13753000 
13753100 
13754000 
13755000 
13755500 
13756000 
13757000 
13758000 
13759000 
13760000 
13761000 
13761100 
13761110 
13761200 
13762000 
13763000 
13764000 
13765000 
13766000 
13766400 
13766200 
13766300 
13766400 
13766500 
13767000 
13768000 


13769000. 


13770000 
13770500 


—_ 


AM H HAH HH HHH A A Ht A tO 


HRREERRKE 


00033064834 
000330648! 4 
0003806;49t2 
00038064912 
00034062033 
00032062432 
00038062183 
00033062810 


00031062884 
00031062814 
000318062814 


00978000030 
0097000030 


009780000!0 
00971000010 
00978000031 
009718000512 
0097180007!2 
00978001084 
00973004333 
00973003830 
0097380021482 
00971002333 
009710026114 
00971003030 
009710030t4 
009710031%3 
009710036814 
009730038%4 
0097:004080 
00973004113 
009780043%2 
00971004582 
00973004533 
0097tO0adia 
009710081 !2 
00971008210 
00978005230 
00978005220 
00973:005230 
00971005230 
00971005583 
00973005834 
00971006172 
009738006210 
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STACK(F #2) 


STACK¢F43) 
STACK EF +44) 


STACKCF 45) 
STACK ¢F 46) 
STACK EF 47) 
STACK¢F 410) 
STACK¢Fet1) 
STACK CF 412) 


STACK¢F 413) 
STACK EF 414) 
STACK¢F 415) 
STACK (F416) 


ie ce ie 


END INL 


COMMEN 


PNeNEXTINFO!? 

STREAMTOGseTRUESSTREAMWORDSSIF STEPL#BEGINV THEN STREAMSTMT 
FLSE BEGIN STEPITSCOMPOUNDTAIL END3 
STREAMTOGeFALSEF PURGE CPN) FSTREAMWORDSS PURGE CLNDSEMITLO16)3 


TNES 


T THIS SECTION CONTAINS THE BLOCK ROUTINE 3 


PROCEDURE BLOCK¢SOP)3 


COMMENT 


BEGIN 
LABEL 


LAB 
SW] 


GOTSCHK eFIELDDEC sAUXMEMERR» 


SWITCH 


DEFINE 


BOOLEAN 


GOTSTORAGE 


INTEGE 


PINFOO 
BLKAD 


REAL MA 


MAXSTACKO 
LASTINFOT 
RELAD 

LO 


TSUBLEVEL 

STACKCTRO 
INTEGER 

SGNO0 


LOLD 


SAVELO 


PRTI0O 


VALUE SOP3 

BOOLEAN SOP3 
SoP [S TRUE IF THE BLOCK WAS CALLED BY ITSELF THROUGH THE 
PROCFDURE DECLARATION@OTHERWISE IT WAS CALLED BY STATEMENT, 
THE BLOCK ROUTINE 1S RESPONSIBLE FOR HANDLING THE BLOCK 
STRUCTURE OF AN ALGOL PROGRAM@=SEGMENTING EACH BLOCK» HANDLING 
ALL DECLARATIONS»DOING NECESSARY BOOKKEEPING REGARDING FACH 
BLOCK» AND SUPPLYING THE SCANNER WITH ALL NECESSARY INFORMATION 
ABOUT DECLARED IDENTIFIERS, 
1T ALSO WRITES EACH SEGMENT ONTO THE PCT? 


OWNERR s SAVERR » BOOLEANDEC »REAL,DEC sALPHADEC es INTEGERDEC, 


FLDECeDUMPDEC»SUBDEC»OUTNECs INDEC*MONITORDEC? 
TCHDEC sPROCEDUREDEC pARRAYDEC sNAMEDEC eFILEDEC?e 
Zii2e 

STREAMERR® DEF INEDEC »CALLSTATEMENT «HF ep STARTS 

DFCLSW « OWNFRReSAVERR ee BOOLEANDEC »REALDEC pINTEGERDEC sp ALPHADEC? 
LABELDEC sDUMPDEC » SUBDEC SOUTDECe INDEC»s MONI TORDEC, 
SWITCHDECsPROCEDURFDECs ARRAYDECeNAMEDEC*FILEDEC? 

STREAMERR DEF INEDEC eAUXMEMERReFIELDDECS 

NLOCS=10#*+LOCBEGINaPRTY#, 

LBPel36t1218» 

SPACEITDOWN @ WRITECLINECPAGE)) #3 


z112« 


%9028 
GOTSTORAGE 
R PINFOO+BLKAD} 

COMMENT LOCAL TO BLOCK To SAVE WHERE A PROCEDURE 1S FMTERED 


IN INFOS 
XSTACKOsSLASTINFOTeRELANe LO» TSUBLEVELe STACKCTROS 


SGNOOsLOLD pSAVELOsPRTIOpNINFOOS 


97 1S 


START OF SEGMENT 


13770600 
13771000 
13772000 
13773000 
13773500 
13774000 

76 LONGs 


aaa 4-4 


14000000 
14001000 
14002000 
14003000 
14004000 
14005000 
14006000 
14007000 
14008000 
14009000 
14010000 
14011000 
14042000 
14013000 


14014000 
14015000 
14046000 
14017000 
14018000 
14049000 
14020000 
14021000 
14022000 
14023000 
14023100 
14024000 
14025000 


AAVHAHVH HHH UHH REA 


~“ 


14026000 


14027000 
14028000 
14029000 


+--+ -4 


14030000 T 


ea ee 


0097:20063!2 
00971006313 
00971006684 
00978006641 
00978007210 
00978007210 
NEXT SEG 


000380628681 
000310620614 
00038062884 
00031062684 
00033062986! 4 
00031062814 
00033062844 
00038062684 
00031062611 
00038062684 
00038062834 
00031062684 
00031060884 
00031062634 


0098%0000180 
00981000010 
00981000010 
00981000010 
00981000010 
0098!0002%1 
009820002314 
00981000214 
00981004393 
0098%00,3%3 
00981001313 
00981004383 
00988004313 


00981004333 


00981001333 
00961001313 
00961004383 


00988001383 


3 


98 


STACK¢F417) 
STACK¢( F420) 
STACK¢(F 421) 
STACK¢F 422) 


STACK¢F 423) 
STACK¢(F 424) 


NINFOO 
INTEGFR NCYIOS 
NCTIO 
INTEGER PROAD 3 
PROAD 
INTEGFR FIRSTXOS 
FIRSTXO 
BOOLEAN FUNCTOGOsAJUMPO; 
FUNCTOGO 
AJUMPO 
BFGINCTR*BEGINCTRo13 
1F SOP 
THEN BEGIN BLKAD*#PROADO} 
IF LASTENTRY # O 
THEN BEGIN GT1¢BUMPL3 
CONSTANTCLEANS 
EMITBCBFWsGT19L) 
END 
FND 
ELSE BEGIN BLKADSeGETSPACECTRUE»@6)3 & SEG. DESCR, 
END3 
FIRSTXOeFIRSTX3 
FIRSTX«03 
LEVELeLEVFL4+13 


LOLDelLsFUNCTOGO*FUNCTOGFAUUMPOCAJUMPSPRTTO*PRTISSGNOO*+SGNO3 
SAVELO+SAVELSAJUMPeFALSES LeOsNINFOOSNEXTINFOS 

NCTTOeNCIT? 

NCI] 1¢03 

STACKCTRO@STACKCTR?} 


ELBATL 1). CLASS«SEMICOLONS 
START? 1F TABLEC] )#SEMICOLON 
THEN 
BEGIN 
FLAGCODS 
Tere! 
ENDS 
TALL Oe Ue} 
1F SPECTOG 
THEN 
BEGIN 
IF BUP=PJ 
THEN 
BEGIN 
BEGIN LABEL GETLP3 


PRTC742) = *SEGMFNT DESCRIPTOR* 


1F STREAMTOG THEN FeO ELSE 
FerFZERO3 
BUPeLASTINFOS 
po 


14031000 
14032000 
14033000 


14034000 


14035000 
14036000 
14037000 
14038000 
14039000 
14040000 
14041000 
14042000 
14043000 
14044000 
14045000 
14046000 
14047000 
14048000 
14049000 
44050000 
14051000 
14052000 
14053000 
14054000 
14055000 
14056000 
14057000 
14058000 
14059000 
14061000 
14062000 
14063000 
14064000 
14065000 
14066000 
14067000 
14068000 
14069000 
14070000 
14071000 
14072000 
14073000 
14074000 
14075000 
14076000 


START OF SEGMENT 


14077000 
14078000 
14079000 
14080000 


AMM HH A HA Ht tt at st st ts 


Tre TET itt) 


T 
T 
T 
T 


00988004383 
00983004333 
00981004333 
00963004383 


009834004383 
00988007582 
00981004532 
009880046! 4 
0098:00147!2 
00983004983 
009810020!0 
009830029%!%2 
00983000113 
00983002133 
00988002313 
009830023383 
0098:009333 
0098!002383 
00981009333 
00988002383 
00963009313 
0098000414 
00981002512 
0098!002611 
0098:003010 
00988003332 
00982003410 
00981003431 
00961003583 
00982003533 
00983003533 
00988003880 
0098:0036!4 
0098:0039%2 
0098:003983 
009830049031 
0098:004014 
0098300413 
00961004333 
00981004313 
00968004383 
00981004410 
00981004414 
009810045382 
00961004533 


00998000020 
009918000133 
00993000281 
00998000383 


99 


! 


BEGIN 
IF NOT STREAMTOG THEN 
BUPeLASTINFOS 
GETLP! GeTAKECBUP)S 
IF keG,ADDRESS#PY 
THEN 
BEGIN 
IF BUP # BUPSsBUP= TAKE(BUP 4 1),PURPT THEN 
GO TO GETLP 
. END: 
TYPrFVeG.CLASS3 
GeADDRESS«F oF et} 
PUT¢CGsBUP)S G,INCReGTL3 
PUT ¢GeMARK+PJ) 
SBUP*e+BUP@TAKE (CBUP4+1),PURPT 
END 
UNTIL PuePJ= 720 
ENDS 


PRT(713) = *SEGMENT DESCRIPTOR* 


SPECTOG*FALSE; 
60 TO HF 
FND 
ENDS 
STACKCT « 03 
WHILE STEPTeENECI,ARATORS 
DO 
BEGIN 
GTAIC Ue Jel JeELBATOCIJ.ADDRESSS 
STOPDEFINE*ERRORTOG+TRUE} 
ENn3 
1F J #0 THEN GO TO CALLSTATEMENTS 
P2¢P3eFALSE3 
GO TO DECLSWEGTAI(UII3 
OWNERRIEELAG(C20)8 JeJ413G0 TO REALDECS 
SAVERRIFLAGC21)3UeJ4+13G0 TO RFALDECS 
AUXMEMERR?FLAGC618) 3 JtaJ+13G0 TO REALDECS 
STREAMERRS TF €LCLASS = LEFTPARFN THEN 
REGIN 
le 7" 1 
GO TO CALLSTATEMENTS 
ENDS 
FLAG(22)3 
J @# J + 13 
60 TO PROCEDURFOFC? 
REALDECS P3«TRUFSENTERCREALIDI3G0 TO STARTS 
ALPHADEC 8P3+¢TRUESENTERCALFAID)3GO TO START! 
BOOLEANNECIP3«TRUEJENTERCBOOID)3GO TO START} 
INTEGERDECIP3+¢TRUESENTERCINTID)3GO TO STARTS 
MONITORDECIIF SPECTOG 


THEN BEGIN COMMENT ERROR 463 MEANS THAT A MONITOR 


¥102= 


BQ FZ DE IE BQ OE 2G DQ 


DECLARATION APPEARS IN THE. SPECIFICATION 


PART OF A PROCEDURE? 
FLAGC463)3 
ENDS 
DO UNTIL FALSE3 
NUMPDEC? TF SPECTOG 


—_ 


AA DBA ADD @NM 


99 1S 


14081000 
14082000 
14083000 
14084000 
14085000 
140866000 
14087000 
14088000 
14089000 
14090000 
140914000 
14113000 
14116000 
14147000 
144168000 
14119000 
14120000 
14121000 


AA HHA HUH 


27 LONG? 
14122000 
14423000 
14424000 
14425000 
14425500 
14126000 
141427000 
14428000 
14129000 
14130000 
14131000 
14132000 
14133000 
14134000 
14435000 
14436000 
14136100 
14437000 
144137100 
14437200 
14137300 
14437400 
14137500 
14137600 
14137700 
14138000 
14439000 
14480000 
14141000 
14442000 
14443000 
14444000 
14445000 
14146000 
14147000 
14448000 
14149000 


AHH AHHH HA A Ot te ts 


00991000410 
00998000480 
00994000484 
00991000583 
00998000782 
00991000894 
00998000982 
00991000983 
00993003214 
00993004231 
00991004382 
00998004494 
00991004782 
00993002030 
00991002084 
00998002313 
009918002410 
00993002533 


NEXT SEG 98 


00984004610 
00988004684 
00981004712 
00983004782 
0098t004TI2 
00981004880 
0098:00a48%4 
00981004983 
00981004993 
0098:0052!14 
00981005383 
00984005420 
00988005533 
00983008634 
0098:0059%t2 
0098%0061!3 
0098:006411 
00981006733 
00981006864 
0098100692 
00968007034 
00983007182 
009880071382 
00986:007133 
00988007382 
00981007313 
00983007680 
00981007810 
0098:0080!0 
009810082!0 
00981008280 
0096 3:0062:4 
009880062!1 
0098800821, 
00983008383 
00984008313 
00988008484 


THEN BEGIN COMMENT ERROR 464 MEANS A DUMP DECLARATION 
APPEARS IN THE SPECIFICATION PART OF A 
PROCEDURES 
FLAG(464)3 
ENDS 
Do UNTIL FALSE: 
ARRAYDEc! ARRAES GO TO START3 
FILEDEC! yNNEC!? OUTDFC! 
GOTSCHKIGOTSTORAGE* NOT SPECTOG OR GOTSTORAGE!GO TO START3 
NAMEDECS YF TieGTAGpJeJ@LIAARRAYV THEN Jegey3 
TYPEVeNAMEID3S 
IF TteGTAG( JeJU71)80 THEN Jegel 
ELSE 
IF T1=0OWNV 
THEN 
BEGIN 
P2eTRUES IF SPECTOG THEN 
FLAGCO13) 
END 
ELSE 


TYPEVeNAMEIOSTI*REALV3 
ENTERCTYPEV)S GO TO STARTS 
SUBDEC? 
BEGrN REAL TYPEVeT3 
PRT¢744) s *SEGMENT DESCRIPTOR#* 


STACK¢F 425) = TYPEV 
STACK¢F 426) 2 T 
IF GTAICJeJ*LIMREALVY THEN TYPEVeREALSUBID ELSE TYPEVeSUBID? 
STOPGSP.TRUE! 
JUMPCHKNXSENTRYCTYPEVOSIF ELCLASS#SEMICOLON THEN FLAGC57)93 
STOPGSP+FALSE3 
STrPrt; 
TeNEXTINE OS 
PUTNBUMPC(L)3 STMT EMITOCLFU)3 IF TYPEVeREALSUBID THEN 
1F GETCL*2)#4533 THEN FLAGCSB8)FPUTCTAKECTI&L(248368123,T)3 
CONSTANTCLFAN3S 
END} 
PRTC715) w@ #SEGMENT DESCRIPTOR® 


GO TO START3 


START OF SEGMENT 


100 1S 


14950000 y 0098#0085t2 
14151000 T 009810085!3 
14152000 T 00968008533 
14453000 T 0096:0085!3 
14154000 T 00986!0086'4 
14455000 TF 00961008614 
141456000 T 00981008733 
14458000 T 00988008982 
14160000 Tt 0098:0089%2 
144641000 T 0098!00913%2 
14461010 T 00988009582 
141461020 YT 009831009610 
14161030 T 0098:0099%0a 
14161040 T 00981010080 
14461050 T 0098%010132 
14161060 T 00988040483 
14461070 T 00981010210 
14161080 T 00981010382 
14161090 T 0098010383 
14161100 T 00981010430 
14161110 T 00988010410 
14161120 T 00968010410 
14162000 Tf 0098:010684 
14163000 FT 00981030783 
14163500 T 0098:0308:0 
eeeeeeeeke = 100 
14164000 T 041008000030 
14164500 T 041008000491 
14165000 T 010080005%2 
14166 T 041008000884 
14166000 T 04008000982 
14466500 T 010010009383 
141367000 T 01001003014 
14468000 T 01002004332 
14168500 FT 0100180049182 
14469000 T 01008004933 
21 LONGe NEXT SEG 96 
14170000 T 00988010982 
14171000 T 00981010083 
14172000 T 00963010983 
14173000 7 00982010983 
14174000 T 00981030933 
14175000 T 00961010983 
14176000 T 00983010983 
14477000 T 00961040083 
14178000 T 00968010933 
14179000 T 00981010983 
14480000 T 0098801410983 
14481000 TF 00961010913 
14162000 T 009810109183 
14183000 T 00988010033 
14184000 T 00981010983 
144185000 T 


00968010983 


LABFLDFeC3 TF SPECTOG AND FUNCTOG THEN FLAGC(24)3 
STOPFENTRYe¢STOPGSP«TRUES 
ferry3 
no 

BEGIN 
STOPHNEFINE*TRUES 
STEPITS 
ENTRYCLABELID)3 
PUTNBUMP(O) 
END 
UNTIL ELCLASS#COMMA3 
STOPENTRY«STOPGSPeFALSES 
GO TO START} 
SWYTCHOFC! 
BEGIN 
LABEL STARTS 
PRT(746) = *#SEGMENT DESCREPTOR*® 


START OF SEGMENT 


INTEGER GT1eGT2eGT4,GTS53 
STACK¢F 425) 


= GTt 
STACK¢F 426) =& GT2 
STACK¢(F427) = GT4 
STACK¢F 430) = GT5 


BOOLEAN T8183 
STACK¢F 431) = TAY 
STOPENTRY*NOT SPECTOG3STOPGSP+TRUES 
SCATTERELBAT? GT1¢03 TBI*FALSES 
ENTRYCSWITCHID)3 
GT2¢NEXTINFOS PUTNBUMPC0)3 
po 
BEGIN 
1F STEPIALABELTD OR ELBATCII,LVL#ELEVEL THEN FLAG(63)3 
PUTNBUMPCELBATIIJ)3GT1¢GTi+1 
END 
COMMENT 
UNTIL STEPIACOMMAS 


PuTeGT1»GT2)3 
STOPENTRY « STOPGSP « FALSES 
END SWITCHDECS) 
PRYC747) = «SEGMENT DESCRIPTOR* 
104 15S 
GO TO START} 
DEFINFDEC? 
BEGIN LABEL START} 
PRT¢720) = «SEGMENT DESCRYPTOR* 


START OF SEGMENT 


REAL Jaki 
STACKCFs25) = J 
STACK¢(F 426) = K 
BOOLEAN STREAM PROCEDURE PARMCSsDeKeJ)2 VALUE KaJ3 
PRTC721) # PARM 
BEGIN SleSsSleS1+23 HleDsIDTeDI+23 

Ip K SC¥DC THEN TALLYe13 

DreLOc J3DleDLT 473 } 

IF Sc#DC THEN TALLYot3 


14186000 T 00968010983 
14187000 T 009810109183 
14188000 T 00962011210 
14489000 T 00981014312 
14490000 T 0098204344184 
14491000 T 00981041512 
14192000 T 0098101452 
141493000 fT 00981014533 
14194000 T 00982011610 
14195000 TFT 009880417182 
141496000 7 00988091782 
14497000 T 009868043783 
14198000 T 00986:0449%2 
141499000 T 009838032010 
14200000 T 009880120114 
142701000 T O09880;2182 
14202000 T 00986:0121%2 
eeeeeneeee 104 
14203000 T 041018000010 
14204000 T 0401:0000!0 
14205000 T 01011000030 
14206000 T 010114000183 
14207000 T 041018000383 
14217000 T 01011000484 
14218000 T 01011000630 
14219000 T 01018000680 
14220000 T 01011000630 
14221000 T 0401800;0t0 
14222000 T 041011004182 
14222500 T 010348003280 
14223000 T 01012004210 
14223500 T 01018001383 
14224000 T 01018004333 
94251000 T 04038004484 
14252000 TF 031031003630 
17 LONGs NEXT SEG 98 
14253000 T 00981012210 
14254000 Y 0096880122!41 
14254050 T 009810;23%2 
CeREERERER 8102 
14254100 T 04021000010 
14254200 T 01022000010 
14294300 T 04023000010 
14254400 T 04028000182 
14254500 T 010280002:0 
T 


14254600 


010280002514 


STACK¢F 425) 
STACK ¢F 426) 
STACKeFs27) 


STACK (F430) 


END3 


PARMeTALLY3 


STOPENTRY*+STOPGSPeTRUES Tey nys 
DEFINING se BOOLEANCREALCOFFINING) & 404784784))3 


DO 


BFGIN 


STOPNHEFINE «TRUE? 


STEPITS MOVECS#ACCUMF13+GTAIDS 
KeCOUNT#13 JeGTAIrO}s ENTRYCDEFINEDID)3 


GTALCOVed 41 00000K3 


Je0}3 


IF ELCLASSeLEFTPAREN OR ELCLASS@LFTBRKET THEN 
REGIN 


DO BEGIN STOPDEFINE*TRUES 
STEPIT3 
IF CJ#Je1)>9 OR PARMCACCUM(YJ+GTALsKoewd) OR 
K>62 THEN BEGIN ERR¢(141)3 GO TO START END) 
STOPDEF INE «#TRUES 
END UNTIL STEPI¥COMMAS 
IF ELCLASS#RTPAREN ANN ELCLASS#RIBRKET THEN ERRC14193 
STOPDEFINE*TRUES 
STEPYT! 
PUTCTAKECLASTINEGO)&IE168378411eLASTINEO)S 


END: 
IF ELCLASS#RELOP 
THEN 
BEGIN 


END 


FLAGC30)5 
leleis 


ENDS 


MACROINeTRUES 
DEFINEGENCFALSEeJ)5 
MACROIN«FALSE3 


UNTIL STEPT#COMMAS 

DEFINING ts BOOLEANCREALCDEFINING) & Of47847841)5 
STARTt STOPENTRY*STOPGSP+FALSES ENDS GO TO STARTS 
PRT¢722) = *SEGMENT DESCRIPTOR* 


FIELDDEct 


BEGIN 
REAL SAVEINF Os SB» NB} 
PRT(723) «= *SEGMFNT DESCRYIPTOR® 


¥108 


¥108= 


¥i12« 
¥i12° 
files 


¥112° 
Zil2e 
Z112° 


SAVE INFO 
$B 
NB 
BOo..EAN FOUNDLB;s % TRUE IF LEFT=BRACKET WAS USED IN FIELD SPEC, 1120 
FOUNDLB 
LABEL EXITe SAVEITS 
STOPENTRY fm STOPGSP tx TRUE} 
J je 7 ™ ¥3 
Do 


Z1i12- 


14254700 T 01021000382 
14254800 T 041023000383 
14255000 T 04028000481 
14255500 C 01022000783 
14256000 T 010280009! 
14257000 T 04028004030 
14258000 T 01021004010 
14259000 T 04028004084 
19259010 TF 01021001382 
14259015 T 010210046!0 
14259020 T 03028003884 
14259030 T 04024002080 
14259060 T 01021002084 
14259070 T 04028002313 
14259080 T 01023002210 
14259090 T 01028002684 
14259100 T 014028003182 
14259110 T 01028003433 
14259120 YT 01021003312 
14259430 T 07024003610 
14259140 T 010240037132 
14259150 T 04021003733 
142959160 T 03028006030 
14260000 T 01021004030 
14261000 TFT 010248004010 
14262000 T 01023004081 
14243000 T 041022004132 
14264000 T 01021004230 
14265000 T 010210043382 
14265900 T 01028004332 
14266000 T 01028004610 
14266100 T 04021004852 
14267000 T 010210045:3 
14268000 T 010280046533 
14268500 C 0140210047!2 
14269000 T 0402:0049t2 
102 15 51 LONGe NEXT SEG 98 
T 00986032481 
14269020 c 00981012404 
14269040 cc 0098t0425!2 
14269060 ¢ 0098301425t2 
START OF SEGMENT *ee0eee8ee 8103 
14269080 ¢ 01033000090 
14269100 c 01031000010 
19269120 C 01031000020 
14269140 C 01038000412 
14269160 ¢ 


010330002114 


BFGIN 
STOPDEF INE s=# TRUES 
STEPITS 
ENTRYCFIELOINIS 
SAVEINFO te LASTINEOS 
IF renee z RELOP AND ACCUM(C1) = "10000" THEN 
REG! 
IF STEP] & LFTBRKFT THEN & REMEMBER THYS 
BEGIN 
FOUNDLB t2 TRUE 
STFPITS 
END 
ELSE 
FOUNDLB t= FALSF3 
IF €LCLASS = FLELNID THEN 
BEGIN 
SB t= ELBATC(I],SBITFS 
NB te ELBATCII.NBITE 
GO TO SAVE{T? 
ENDS 
IF ELCLASS = LYTNO THEN 
Ip STEPY = COLON THEN 
IF STEP} = LITNO THEN 
IF (SB te ELBATCI"2),A0DRESS) x 
CNB te eLBAT£1],ADDRESS) # O AND 
SB + NB § 48 THEN 
BEGIN 
SAVEIT? 
PUTCTAKECSAVETNFO) & SB SBITF & NB NBITFe 
SAVEINFO)$ 
STEPITs 
IF FOUNDLB THEN % BETTER HAVE RIGHT BRACKFT, 
IF ELCLASS = RTBRKET THEN 


BEGIN 
STEPITS 
GO TO EXxiT3 
END 
ELSE x MISSING RIGHT BRACKET, 
ELSE 
GO TO EX!IT3 
END} 
END3 
FLAGC114)3 
DO STEPrT UNTIL ELCLASS = COMMA OR FLCLASS # SEMICOLON 
EXIT 
END 
UNTrL 


ELCLASS # COMMAS 
STOPENTRY te STOPGSP te FALSE3 
END) 
PRT(724) = «SEGMENT DESCRYIPTOR* 


GO TO START? 
PROCEDUREDEFC! 
BEGIN 
LABEL STARTsSTARTIS 
PRY(725) = *SEGMFNT DESCRIPTOR* 


Kite 
®iie- 
Fite- 
Kii2= 
Zii2e- 
Kite 
Z1i12° 
¥it2" 
®ii2= 
Sile= 
Bites 
Z112= 
Zi126 
Kii2* 
r112- 
Zitee 
Zii2- 
Zite- 
¥112° 
¥ii2- 
¥1i2* 
Z1ii2° 


Zi12- 


112° 
Z112° 
#112 
¥112=° 
Zi12= 
£1129 
¥i12° 
112 
ile 
1129 
¥112- 
£112= 
#1129 
112 
*1129 
¥112° 
Zii2e 
*ii2* 
112= 
Zil2=* 
Z112° 
112° 
Zii2= 
S112" 
Zii2= 
£1129 
Zii2- 


¥ii12° 


103 15s 


01038000382 


14269180 ¢ 

14269200 c 010380003t2 
14269220 cC 01033000333 
14269240 c 01038000480 
14269260 c 01038000532 
14269280 ¢ 01031000533 
14269300 c 01038000733 
14269320 c 0103:0006:0 
14269340 c 01032000902 
14269360 ¢ 01033000983 
14269380 c 041038004014 
14269400 c¢ 01031004112 
142694820 c 0410328004182 
14769440 Cc 01038003382 
14269442 c 01038004383 
14269444 C 04038004484 
14269446 ¢c 01038004512 
14269448 C 01031001611 
14269450 ¢c 01032300;6:0 
14269452 c 01031900;8%4 
14269460 ¢ 010330018681 
14269480 c 04038004932 
14269500 ¢ 043031002084 
14269520 c 01033002210 
14269540 c 04031800048)4 
14269560 c 04038000712 
14269580 c 0410380028384 
14769890 Cc 03038002912 
14269600 C 04031002982 
14269620 c 01038003210 
14269600 c 010380032181 
14269660 Cc 01031003332 
14269680 c 01032003312 
14269700 c 043031003483 
14269705 ¢ 01038003582 
14269710 c¢ 040380035383 
14269715 c 01031003680 
14269720 C 04038003680 
14269740 c 040380036:0 
14269760 ¢ 01038003681 
14269780 c 010341003684 
14269800 ¢ 04031003634 
14269820 c¢ 04031003684 
14269840 C 041031003782 
14269860 c 04038004084 
14269880 c 0103180001182 
142969900 c 0403800a14#2 
14269920 ¢ 01032004112 
14269940 Cc 01031004230 
14269960 c 0403%004383 

44 LONGs NEXT SEG 

14269980 ¢ 0098:0126!0 
14270000 T 00969012681 
14271000 T QO98s012a782 
14272000 T 00961042782 


98 


LABEL START?) 
BOOLEAN FWDOTOG? COMMENT THIS TOGGLE 1S THE FORWARD DEC JNDICATORS 
STACK¢Fs25) = FWDTOG 
1F NOT SPECTOG THEN FUNCTOGeFALSES 
FWDTOGeFALSE 3 
MAXSTACKOe MAXSTACK3 
IF GeGTAICJede1 JeSTREAMV 
THEN 
BEGIN STREAMTOG+eTRUES 
IF GeGTAIL JeJe1)50 THEN TYPE VeSTRPROCID 
FLSE , 
BFGIN 
IF TYPFVePROCID +G>INTSTRPROCID OR 
TYPEV <BOOSTRPROCID 
THEN FLAG(004)3 
IF NOT SPECTOG THEN 


FUNC TOG+TRUES 
CHKSOB 

END END 

ELSE 

IF GwSAVEV OR GeO THEN TyPeVePROCID 


FLSF 
IF TYPEVeREALSTRPROCID+G<BOOPROCID OR TYPEV>INTPROCTD 
THEN FLAGC005) 
FLSE BEGIN FUNCTOGeTRUESGeGTALCJeuHi}3 
END} 
IF NOT STREAMTOG THEN SEGMENTSTARTCGaRSAVEV)3 
SAF « G&SAVEV} 


MODE «MONE +13 

LO+PROYNFO3 

SCATTERFLBATS 

COMMENT CHECK TO Ser IF DECLARED FORWARD PREVYOUSLY 
IF LFVELFaLEVEL 
THEN 
REGIN 
IF GeTAKECLINKF41)20 
THEN FLAGCO06)3 


FWOTOGeTRUE? 
XMARK(DECLREF)$ & PROCEDURE DECLARED FORWARD, MARK LAST 2110 
% XREF ENTRY AS A DECLARATION, %110° 
PROAD*ADDRSF3 


PROINFOSELBATCSIIMARKeLINKF Ss INCREISTEPYT 
SPUTCeGaLINKFel 3 
FND 
ELSE 
BEGIN STOPENTRY*+TRUES p2eTRUE3 
STOPGSP*LEVEL>1 AND STREAMTOG) 


ENTRYCTYPEV)3 MARKeNEXTrNFOSPUTNBUMP(O)3 
STOPGSPeFALSES 
PROINFO+TAKECLASTINFOI& LASTINFOC 35% 35814373 PROADSADDRSES 
PaeSTOPENTRYsFALSE 
ENDS 


PJjeOs LEVELeLEVELes3 


START OF SEGMENT 


14273000 
14274000 


14275000 
14276000 
14277000 
14278000 
14279000 
14280000 
14281000 
14282000 
14283000 
14284000 
14285000 
14286000 
14287000 
14288000 
14289000 
14290000 
14291000 
14292000 
14293000 
14294000 
14295000 
14296000 
14297000 
14298000 
144299000 
14300000 
14301000 
14302000 
14303000 
14304600 
14305000 
14306000 
14307000 
44308000 
14309000 
14340000 
14311000 
14312000 
14312100 
14312101 
14313000 
14344000 
14315000 
14316000 
14347000 
14318000 
14318500 
14319000 
143149500 
14320000 
14321000 
14322000 
14323000 


PT TreTiT Tet 


~-4 


a HO OAH A tH oA HH A HR HA Ht tt ot at st Ht tt A HH 


01048!0000:0 
01041000030 


01041000030 
01041000113 
0104:000211 
0104!000312 
01041000582 
01043000533 
01048000732 
010620040380 
01048004034 
01041004382 
01042004332 
040480043182 
01043004532 
04043007533 
010410047182 
010430047182 
01048004733 
01042004733 
0104:002084 
0100100291382 
0104!002333 
01043002532 
0104:002884 
0104:002834 
010610031%2 
0404!:0032180 
01041003210 
014048003210 
01048003210 
01048003333 
010430034680 
01088003411 
09042003434 
01041003512 
01041003513 
010430036890 
01043003783 
01041003933 
01041004010 
0106:0040481 
010480044314 
049480045382 
01048004733 
01041004983 
04041004933 
010480049383 
0104300851383 
04048005333 
040410085583 
01091005634 
01042005933 
040418005933 
01048006081 


104 


1F STREAMTOG THEN STREAMWORDSS 
IF ELCLASSsSEMICOLON THEN GO TO STARTY3 
IF. ELCLASS#LEFTPAREN THEN FLAG¢007)3 
COMMENT® THE FOLLOWING 8 STATEMENTS FOOL THE SCANNER AND BLOCKsPUTTING 
FORMAL PARAMETER ENTRIES IN THE ZERO ROW OF INFOS 
RRY*NEXTINEOS 
LASTINFOT*LASTINFOS LASTINFO*NEXTINFO*L3 
PUTNBUMP(0)3 
PTOGeTRUES ler+43 
ENTRYCSECRET)3 
IF FWOHTOG THEN 
BEGIN 
TF GTiteTAKECMARK), (4016) ¢ PJ THEN FLAGCG6)3 & WRONG 
K NUMBER OF PARAMETERS,» WE DON*"T WANT TO CLOBBER INFO, 


END 
ELSE 
PUTC(P ye MARK) 
PePJ) 


IF FLCLASS#RTPAREN 
THEN FLAGCO08)3 
IF STEPI¥SEMICOLON 
THEN FLAGCO0993 
COMMENT MARK PARAMFTERS VALUE tf THrRE IS A VALUE PART} 
IF STEP eVALUEV 


TWEN 
BEGIN 
DO 
IF STEPI#SECRET 
THEN FLAGCO10) 
ELSE 
BEGIN 
IF G*ELBATE 1) ¢ADDRESS#0 OR G>PJ 
THEN 
FLAGCO10)3 
GeTAKECELBAT(II)3 
PUTCGRIfLO8A7411),ELBATI1I) 
END 
UNTIL 
STEPIACOMMAS 


IF ELCLASS#SEMI COLON 
THEN FLAGCO119 
FLSF STEPIT 

ENDITey"13 
IF STRFAMTOG 


THEN 
BFGIN 
BUPePJ3 SPECTOGeTRUEJGO TO START 
END 
FLSF 
BEGIN 
SPECTOGseTRUES 
BUP+03 


IF ELCLASS#0ECLARATORS 
THEN FLAGCO12) 
FNDS 
STARTIPTOGeFALSESLASTINFO*LASTINFOTSNEXTINFOSTF FWOTOG THEN RR ELSE 
MARK sPJ443 


14324000 
14325000 
14326000 
14327000 
14328000 
14329000 
14330000 
14331000 
14332000 
14333000 
14333100 
14333200 
14333300 
14333400 
14333500 
14333600 
14334000 
14335000 
14336000 
14337000 
14338000 
14339000 
14340000 
14341000 
14342000 
14343000 
14344000 
14345000 
14346000 
14347000 
14348000 
14349000 
14350000 
14351000 
14352000 
14353000 
14354000 
14355000 
14356000 
14387000 
14358000 
14359000 
14360000 
14361000 
14362000 
14363000 
14364000 
14365000 
14366000 
14367000 
14368000 
14369000 
14370000 
14371000 
14372000 
14373000 
14374000 


Aas HMM HA Ht A HA Ht A A A At tt a ot st st SH 


010480062314 
0104:006410 
01048006532 
0104%006732 
0404:1006712 
01041006732 
010410068:0 
010428007010 
01048007081 
0100:0072!14 
0104100731!3 
0149480073183 
01048007630 
01048007733 
01041007733 
01048007733 
01048007733 
01048007982 
01043008030 
01042008080 
01043008230 
01048008281 
0104:0084:0 
01041008410 
01041008414 
010480085t2 
010420085183 
01041008610 
01043008631 
01041008713 
0104:0088:0 
01043008834 
0104:0094:12 
01048009323 
01043009382 
01081009484 
010400960 
010480096!4 
01041009681 
04043009830 
01048009814 
01048009933 
01068010084 
01048010284 
01048010214 
01043010284 
010419040382 
0404#0;05t2 
010430;,0582 
01041010582 
01048010513 
04098010684 
0104980107182 
010480107383 
01043010834 
01048010982 
01041041382 


START{tP_NFOOeNEXTYNFOS 
START2! ENDS 
PRT¢796) = #SEGMENT DESCRYPTOR* 


1F SPECTOG OR STREAMTOG 


THEN 
GO TO START3 
COMMENT 1F SPECTOG 1S ON THEN THE BLOCK WILL PROCESS THE SPECIFICATION 
PART SIMILARY TO DECLARATIONS WITH A FEW NECESSARY VARIATIONS 
HF 3 
BEGIN 
LABEL START+STOPS 
PRT¢TO7) = *SEGMENT DESCRIPTOR* 


DEFINE TESTLEV = LEVEL>2 #3 
IF STREAMTOG 


THEN BEGIN 
IF TESTLEY THEN JUMPCHKNX ELSE SEGMENTSTARTCTRUED 3 PJeP? 
PTOG*FALSES 
PUTCTAKECGITCPROINFO)I&LE 28836912) sGITCPROINFO))3 
IF TESTLEV THEN BEGIN EM1T0(564)3 ENDS 
IF STEPJEBEGINV 
THEN 
BEGIN 
ae STEPTSEDECLARATORS OR ELCLASS@LOCALV 
0 
BEGIN 
IF ELBATCI1.-ADDRESSmLABELV 
THEN 
BEGIN 


STOPDEF INE*+STOPGSP+STOPENTRY*+TRUES 


DO BEGIN STOPDEFINE*TRUEFSTEPITSENTRYCSTLABID)SPUTNBUMPCO) END UNTIL 


ELCLASS#COMMASSTOPGSP+STOPENTRY «FALSE 


END 
ELSE 
BEGIN 
Telet3 
ENTRYCLOCLID) . 
END 
END: 


IF FUNCTOG THEN 
PUTCCZeTAKECPROINFO) QLOCLIOL 264197) & . 
CPJe2sREALCTESTLEV) 016837511] 2PROINFO)3 
COMPOUNNnTAIL 
END . 
ELSE 
BEGIN 
IF FUNCTOG THEN 
PUTCC ZeTAKECPROINFO))& LOCLID(294187)8& 
CPJe2¢REALCTESTLEV) (16837811) +PROINFO)] 
STREAMSTMTS 
END3 


COMMENT THE FOLLOWING BLOCK CONSTITUTES THE STREAM PROCEDURE. PURGES 


BEGIN 
_ REAL NLOCsNLABS 
PRTC730) =» *SEGMENT DESCRIPTOR* 


STACK¢F 425) © NLOC 


14375000 T 
14376000 T 


194 IS 117 LONG» 
14377000 
14378000 
14379000 
14380000 
14361000 
14382000 
14383000 
14364000 


oe a a | 


01041 
01043 
NEXT SEG 
00983012630 
00983042830 
00988012884 
00961012983 
009818012983 
00988032953 
00983043030 
00988043080 


START OF SEGMENT eenceeemee 640 


14384100 
14385000 
14386000 
14387000 
14388000 
14388100 
14389000 
14393000 
14394000 
14395000 
14396000 
14397000 
14398000 
14399000 
14400000 
14401000 
14402000 
14403000 
14404000 
14405000 
14406000 
14407000 
14408000 
14409000 
14410000 
14441000 
144411400 
14411200 
14411300 
14442000 
14413000 
14414000 
14415000 
14445100 
14415200 
14415300 
14415400 
14415500 
14416000 
14417000 
14418000 


AMAA AN AAA HHH Ht to a tt tt os 


START OF SEGMENT #ee eee ee me 


010519000010 
01053000010 
040530000380 
01054000081 
03059000884 
01052000582 
0105:0008%14 
01058007084 
01053004182 
04051004113 
019051004210 
01051004410 
043058001513 
01058004583 
01058003684 
01059004782 
041051001783 
010510019%2 
010510022t4 
01058002410 
014051009512 
010532002512 
010510029533 
01051002782 
0105800a7#2 
010518002733 
01054002830 
010510026384 
01051003183 
O1058003484 
04058003434 
01051003512 
01053003582 
01051003513 
01052003533 
01058003884 
0105:0041493 
010548004210 
0105:004280 
04057004210 
01051004210 


8 


5 


106 


STACK¢Fs26) = NLAB 


DEFINE SESw18¥sSEDm6#s TRWM5 8; 
DEFINE LOCw( 36812) #oLASTGTelogsior#s 
Je LASTINFOS 

NLOCeNLABeOS 


DO 
BEGIN 


IFCGTLSTAKEC JI) eCLASS*LOCLID THEN 


BEGIN 


IF BOOLEANCGTI FORMAL) THEN 


ELSE 


END 
FLSE 


BEGIN 
GT1,ADDRESS#0 THEN NLABeNLABS13 


IF 


BEGIN 

IF GT1<0O THEN 

PUTCTAKECGT2«¢MARK+P"GT1 -ADORESS#+1 AF ILEIOL2 84127) 
°GT2)3 

END 

NLOC*NLOCel3 


TECGT3*TAKECGITCJ)2)2LASTGT#¥0O AND GT3,L0C 20 THEN 


END: 


XREFDUMPCJ)8 % DUMP XREF INFO 


BEGIN 
MOVEC9s INFOLOed],ACCUM(O])3 
QeACCUME AIS 

FLAGC267)3 

ERRORTOGeTRUES 

ENDS 


£110" 


GeC(GT2¢TAKECJ+1)) PURPTS 
rF 6GT1,£298) # STLABIDx2+1 THEN 

STACKHEADE CORGT2£012412%36) MOD 125]¢TAKEC J), LINKS 
END UNTIL JeJUeGsts 


IF TESTLEV 


THEN BEGIN EMITCC100)% EMITOCBFW) END 
ELSE EMITCO)S 


PUTCTAKE (MARK ENLOCEIPA2I6 TELE 1683681218 LA08 4088] »MARK D3 
IF FUNCTOG THEN 
PUTCZs PROINFO)S 
STREAMWORDS3 
STREAMTOG+FALSE3 


IF NOT TESTLEV THEN BEGIN PROGHDESCBLDR¢PROADe TRUE SC L+3)DIV 4eCHAR)3 


SFGMENTCCLE#3 DIV 4ePROINFO, ADDRESS)? 
RIGHTCL)$ «03 


ENDS 
IF LISTER AND FORMATOG THEN SPACEITDOWNS 


ENDS 


PRT¢731) = #SEGMENT DESCRIPTOR* 


LASTINFO+LASTINFOTSNEXTINFOSMARKSP 413 


END 


ELSE 


BEGIN 


Ip STEPI*@FORWARDV 


THEN 
BFGIN 


XREFTTCPROINFOsOsFORWARDREF)3 % WE NEED THIS SO WE CAN FIND 


106 1S 


14419000 
14490000 
14421000 
14422000 
14423000 
14424000 
14425000 
14426000 
14427000 
14428000 
14429000 
14430000 
14431000 
14432000 
14433000 
14434000 
14435000 
14436000 
14437000 
14438000 
14439000 
14440000 
14441000 
14442000 
14443000 
14444000 
14445000 
14445100 
14446000 
14447000 
14448000 
14449000 
14450000 
14451000 
14451100 
14451200 
14452000 
14457000 
14460000 
14461000 
14461100 
14461200 
14461300 
14461400 
14461500 
14462000 


AHHH HHH SO a A HA ot tt ot st oe 


67 LONGes 


14463000 
14464000 
14465000 
14466000 
14467000 
14468000 
14469000 
14469100 


Oat 


01068000080 
0106!000080 
04068000010 
01061000081 
01061000210 
01061000230 
01068000210 
01064000410 
01068000484 
01063000533 
01068000630 
010610006124 
01068003183 
010680014210 
01068001230 
01061004410 
010610037410 
01061001410 
01068001434 
010620017383 
01062002133 
01061002230 
010680020484 
01068002533 
010680026281 
01061002732 
010680027182 
01068002712 
01068002932 
019061003230 
01061003420 
010630036384 
01061004084 
010610040184 
04068004383 
010610045182 
01068004983 
01068004933 
0106:0051!2 
01068005133 
01068005234 
01061005630 
010630058314 
01068006010 
010648906010 
01061006610 


NEXT SEG 105 


01054004312 
01054004583 
01058004583 
01051004533 
01058004610 
01058004641 
01058004712 
01052004733 


% THE FORWARD DECL,. DURING XREF 


PUTC@TAKECGePROINFO.LINKG122G23 
PURGECPINFOO)3 
STEPIT 
END 
ELSE 
RFGIN 
PROANO+PROAD} 


TSUBLE VELeSUBLEVFLISUBLEVEL*LEVEL SSTACKCTROeSTACKCTR} 
1F MONE®1 THEN FRSTLEVELeLEVELSSTACKCTRe5134+REALCFUNCTOG)3 


IF ELCLASS = BEGINV THEN 
BEGIN 
CALLINFO*CCALLXeCALLX#1)413 
NESTCTReSTACKCTRS 
BLOCKC TRUE) 
 PURGECPINFOO)S 
IF NESTOG THEN 
BEGIN GT1eTAKECPROINFO), ADDRESS} 


NESTPRICGTI J ¢OSPROINFOL 35335281378 CALLINFOL221358143)3 
CALLCCALLINFO@1 Je CTAKECGITCPROINFO) )+NESTCTRe511 98 


CALLX(22235213173 
END} 
Le} 
GO TO STOP ENDb!} 
BEGIN 
FLAG(052)}3 
RELADeL 3 
STMT} 
HTTEOAPCFALSE sRELADsPINFOOsPROAD)3 
ENDS 
STOPs 
SURLEVELeTSUBLEVELS3 
STACKCTReSTACKCTRO} 
1F LISTER AND FORMATOG THEN SPACEITDOWNS 
ENDS 
ENDS 
PROINFOeLO} 
Ip JUMPCTReLEVEL 
THEN 
JUMPCTReLEVEL@13 
LEVELeLEVEL 713 
MODE*MODE"13 
MAXSTACK*MAXSTACKOS 
STARTIENDS 
PRT¢732) © *SEGMENT DEScRYPTOR* 


GO TO START? 
CALLSTATEMENT! FOULED « L3 
JUMPCHKXI ITF SOP THEN BEGIN Z*STACKCTR@S133WHILE ZeZ"120 
00 EMITL¢O) END} 
IF SPECTOG THEN BEGIN 
FLAGC12)3GO TO HF 
END} 

RBEGINCTR « BEGINCTR#13 
IF ERRORTOG 

THEN COMPOUNDTAIL 

ELSE 


105 1S 


14469404 
14470000 
14471000 
14472000 
14473000 
14474000 
14475000 
14476000 
14477000 
14478000 
14479000 
14481000 
14481100 
14481200 
14482000 
14483000 
14483100 
14483200 
14483300 
14483400 
14483500 
14483600 
14483700 
14464000 
14485000 
14486000 
14487000 
14488000 
14489000 
14490000 
14491000 
14492000 
14493000 
14493500 
14494000 
14495000 
14496000 
14497000 
14498000 
14499000 
14500000 
14501000 
14502000 
14503000 


a a a mt a a a at a at at at a et a to st st st tO 


101 LONG. 


14504000 
14505000 
14506000 
14506500 
14507000 
14508000 
14509000 
14510000 
14841000 
14512000 
14513000 


ee Ree eee Bee ee 


0405#0050:0 
014058008030 
010540053192 
01054005410 
010540054a!:0 
010580054384 
01058005481 
0105800552 
01058005533 
01053005880 
01058006482 
01058006210 
0408006281 
01051006481 
010580065383 
01051006583 
041058006732 
01059006733 
010530070:0 
01058007313 
01053007932 
01053008034 
010518008084 
01051008113 
0105:00862:0 
01051008210 
01051008211 
01054008313 
019053008410 
01053008533 
01054006513 
0105008610 
01058006611 
04053008783 
010510093382 
0105:0093!2 
01051009332 
01051009430 
010580094180 
01058009434 
01058009684 
0105#t0097383 
010538009932 
01051009913 


NEXT SEG 98 


009610131482 
009848043183 
009880132914 
00968043782 
0098:0139%3 
009843014080 
009810441%3 
00984014143 
00963044234 
009810;42%4 
0098:'014333 


BEGIN 
STMT3 
IF ELCLASS*TABLECI+1)2DECLARATORS 
THEN 
BEGIN 
ELBATF1),CLASS*SEMICOLON3 
BEGINCTReBEGINCTR+13 
GO TO START 
END 
ELSE 
COMPOUNNTAIL 
ENDS 
FUNCTOGeFUNCTOGO! 
IF SOP THEN HTTEOAPCFALSEsFIRSTX»NINFOOsBLKAD) 
FLSF BEGIN IF NESTOG THEN SORTNEST$ PURGECNINFOO)S ENDS 
SEGMFNTCCL+3201V SsPROADO)3 
IF LEVEL>) THEN RIGHTCL)3 
IF LEVEL « LEVEL@4 © O THEN CONSTANTCLEANS 


AJUMPeAJUMPOS 
FIRSTXeFTRSTXOS 


SAVE LeSAVELOS 
STACKCTReSTACKCTRO} 


END BLOcK} 


COMMENT THIS SFCTTON CONTAINS THE VARIABLE ROUTINE AND ITS SIDEKICKSS 


98 1S 


14514000 
14515000 
14516000 
14517000 


44578000 


14519000 
14520000 
14521000 
14522000 
14523000 
14524000 
14525000 
14599000 
14600000 
14601000 
14602000 
14603000 
14604000 
14605000 
14606000 
14607000 
14608000 
14609000 
14610000 
14641000 
14612000 
14613000 


176 LONG 


15000000 
15001000 
15002000 
15003000 
15004000 
15005000 
15006000 
15007000 
15008000 
15009000 
150142000 
15013000 
150144000 
15015000 
15046000 
15017000 
150;8000 
15019000 
15020000 
13021000 
15022000 
15023000 
15024000 
15025000 
15026000 


T 
T 
T 
T 
T 
tT 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
6 


AHHH AM HH WHA Ht 


0098t044410 
00988044484 
0098:044512 
00981034681 
0098804 a7I2 
009640147183 
0098:015030 
00981015123 
00983015210 
00981045210 
00981045210 
009610145231 
00961045312 
00983015383 
00983045583 
009830459%2 
0096:016112 
00988016332 
00982016533 
0096:016533 
0098:30166!%4 
0098:046684 
00981016712 
009848016810 
00981016811 
0098:016634 
00981016884 
NEXT SEG 


0003'062884 
00031062841 
0003106263, 
00038062684 
0003106984 
00032062988; 
0003062834 
0003:062634 
0003:062814 
0003'062611 
00031062834 
00031062884 
00031062634 
000310628354 
00031062634 
00031062884 
00031042614 
000310626314 
000380626314 
00031062834 
00031062894 
000330628814 
00031062681 
000343062611 
00031062634 


3 


STACK(F 42) 
STACK (F 43) 
STACK¢F 44) 
STACK (CF 45) 
STACK ¢F 46) 


COMMENT 


PROCEDURE VARIABLECP1)3 


TALL 
T1 
T2 
J 
REAL 
REMEMBFERSFONO 


THF FOLLOWING BLOCK HANDLES THE FOLLOWING CASES 


Or SIMPLE VARYTABLES! 


1. Vi« EXP »sWHERE V 1S FORMAL®=CALL BY 
2, V « EXP eALL V EXCEPT FORMAL®#NAME, 
3, V,CS#L) © EXP sWHERE V 1S FORMAL®CALL BY 
4, V,CS#§L}] « EXP saALL V EXCEPT FORMAL*NAME, 
5, V,CS#L) eALL V, 
6, V eALL Vy 

CODE EMITED FOR THE ABOVE CASES 1S AS FOLLOWS! 
1. VNPEXP»M*sXCHee, 
26 EXPsM#,VL ge, 
3. VNoDUP,COCSEXPs TeM*oXCHoe, 
&, VVoEXPsTeMt eo Vive, 
5. ZEROLeVVeT , 
6, WV, 
WHERE VN # DeSc V 


OF Cou 
THE PA 
GLOBAL 
THE PA 
WHO CA 


EXPx ARITH, OR BOOLEAN EXPRESSIONSAS REQUIRED, 
® CALL ON MONITOR ROUTINESIF REQUIRED, 

VL & LITC V 
B 
s 


oPnc Vv 
STORE :YNSTRUCTIONCISDeISNeSND OR STD), 


T «= BIT TRANSFER CODECDIA+DIB, TRB), 
ZEROL x LITe 0 


DUP»COCsXCH = THE INSTRUCTIONS DUPsCOCsAND XCH, 
RSE» EXP WILL CAUSE RECURSION® IN GENERAL*® AND THUS 
RAMETER Pt AND THE LOCALS CAN NOT BE HANDLED IN A 


FASHION, 


RAMETER Pt 1S USED TO TELL THE VARIABLE ROUTINE 
SOME OF THE CODE GENERATION AND SOME 


LLED IT, 


NAME. 


NAME, 


SYNTAX CHECKS DEPEND UPON A PARTICULAR VALUE OF Pq , 


BEGIN 
REAL T 


T 
T 


J 


REMFMBFRSEQNO? & REMEMBERS SEQUENCE NUMBER OF VARIARLE $1108 


INTEGER Pie 


ALL» COMMENT ELBAT WORD FOR VARIABLES 


1 «2 COMMENT 4ST INTEGER OF PARTIAL WORD SyNnTAXs 
2 » COMMENT 2ND INTEGER OF PARTIAL WORD SYNTAX} 


$ COMMENT SUBSCRIPT COUNTER 3 


% ON LEFT HAND SIDE OF ASSIGNMENT SO WE x1106« 


% CAN XREF IT CORRECTLY, 


15027000 
15028000 
15029000 
15030000 
15031000 
15032000 
15033000 
15034000 
15035000 
15036000 
15037000 
15036000 
15039000 
15040000 
15041000 
15042000 
15043000 
13044000 
15045000 
15046000 
15047000 
15048000 
15049000 
15050000 
15051000 
15052000 
15053000 
15054000 
15055000 
15056000 
15057000 
15058000 
15059000 
15060000 
15061000 
15062000 
15063000 
15064000 
15065000 
15066000 


135067000 


15068000 
15069000 
15070000 
15071000 
15072000 


START OF SEGMENT 


15073000 
15074000 


15075000 


15075550 


15075551 
15075552 


T 
T 
T 
T 
T 
T 
T 
tT 
tT 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
5 
T 
T 
T 
T 
T 
T 
T 
T 
T 
tT 
T 
T 
T 
T 
is 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
* 


T 
T 
T 
Cc 


SRREBKS ES 


00033062884 
00033062804 
0003062684 
00031062684 
00033062884 
00038062834 
00031062614 
000310628314 
00031062834 
00031062834 
000310628814 
00038062614 
00038062881 
00038062834 
00031062604 
00031062834 
0003!0628%;4 
00031062611 
000380628314 
00038062884 
00031062684 
0003106281; 
00031069824 
0003180698314 
00031062884 
00031062884 
00032062884 


00038062814 


00032062634 
00031062611 
0003106283, 
00031062884 
00031062834 
00031062614 
0003106288, 
00038062884 
00039062814 
000330626184 
00038062644 
00032062834 
00033062834 
00031062814 
00038062883 
00031062834 
00033062834 
00031062884 


01078000030 
01078000030 
01078000010 


01074000030 


01071000010 
01071000080 
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STACK(F 47) = SPCLMON 


STACK¢F 410) = DUPIT 


COMMENT 


LABEL EX{Te NEXT» LASSS i114 
DEFINE 4114 
FORMALNAME = £932] = 2. F114 
LONGIOD @ NAMEID#e $114" 
PARTIALWORD # (T1 # O)#»® T1146 
ERREXITCNUM) # BEGIN ERRCNUM)$ GO TO EXITS END#} *1ii4= 
BOOLEAN R114 
SPCLMON®» Kii4= 


NUPITS & TRUF IF We ARE DOING UPDATE TYPE ASSIGN® %114* 


RB MENT» [T,E.e IT $® © & Ley R114 
TALLeELBATCID 3 
IF ELCLASS $ INTPROCID THEN 

BEGIN 
IF TALL,LINK #PROINFO,LINK THEN 
BEGIN ERRC241)8 GO TO EXIT ENDS 
211 VARTABLE*FUNCTION IDENTIFIER USEN OUTSIDE OF ITS SCOPE! 

TALLe TALL &CELCLASS+4)(204197) & 513¢16837811)3 


END 
FLSE CHECKERCTALL)S 

REMEMBERSEQNO %2 CARDNUMBERS %110° 

IF TALL.CLASS $ INTID THEN & SIMPLE VAR OR FORMAL NAME 
BEGIN 1146 
IF STEPT # ASSTGNOP THEN ¥1149 
IF Pi = FL THEN $114= 
BEGIN Zi1a- 
IF ELCLASS « AMPERSAND THEN Zi14d= 
EMITNCTALL ADDRESS) £1146 
ELSE £114= 
EMITVCTALLeADDRESS)3 Zii4e 
GO 10 EXITS Z114@ 
END %114 
ELSE 1149 
IF ELCLASS * PERIOD THEN & PARTIAL WORD Ziide 
IF DOTSYNTAXCT1*#T2) THEN &% ERROR Z114« 
GO TO EXIT £1140 
ELSE Z1i14a- 
STEPITS ¥11de 
IF ELCLASS = ASSIGNOP THEN ¥114° 
BEGIN 114" 
STACKCT te 13 ¥1i14= 
IF PARTTALWORH THEN & MAKE SURE LEFT@MOST 114° 
BEGIN ¥114° 
1F P1 # FS THEN & NOY LEFT=MOST x114« 
ERReX1T¢201)8 . Z114= 
XREFITCTALL »REMEMBERSEQNOsASSIGNREF J} wii4= 
END 114 
ELSE %114= 
XMARKCASSIGNREF 23 £114= 


IF TABLE (141) = ASTRISK THEN & MIGHT BE UPDATE 
IF CDUPYTt=cTABLEct+2) 2 FQVOP AND TABLECI42) 
$ MULOP) OR TABLEC142) = AMPERSAND) THEN 


STEPITS & STEP OVER ASTERISK T1146 

IF TALL,FORMALNAME THEN & FORMAL PARAMETER %i14@ 
BEGIN Zit4de« 
EMITN¢TALL,ADDRESS)3 %114= 


15076000 
15076100 
15076110 
15076120 
15076130 
15076140 
15076200 
15076300 


15076400 


15076500 
15077000 
15078000 
15079000 
15080000 
15081000 
15062000 
15083000 
15084000 
15085000 
15085100 
15085200 
15065400 
15085600 
15085800 
15086000 
15086200 
15086400 
15086600 
15086800 
15087000 
15087200 
15087400 
15087600 
15087800 
15068000 
15088200 
15088400 
150864600 
15086800 
15089000 
15089200 
15089400 
15089600 
15089800 
15090600 
15090800 
15091000 
15091200 
15091400 
15091600 
15091800 
15092000 
15092200 
15092400 
15992600 


oOo Vvoaoanaonotwv 
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01078000080 
01071000080 
010780000!0 
0107480000180 
01078000080 
010738000080 
01078000010 
01078000030 


01078000030 


01078000030 
010780000180 
010710001 :2 
01073000313 
01071000210 
01078000410 
0407180005383 
01078000583 
01078000982 
01071000982 
04073004030 
01071004192 
04071004210 
01078003234 
04071004383 
030781003582 
01073004533 
01078004610 
01078004783 
010710018610 
01071004933 
014078002080 
01071002080 
01072002030 
010780021483 
04071002382 
04072002332 
014078002332 
040780024:0 
04078002582 
01073002533 
01071002610 
01078009782 
01078002783 
014071002610 
01078003080 
01071003281 
01071003284 
01078003284 
014078003782 
01073003982 
01078004210 
04078004583 
01071008614 
010780048380 


07071004884 


IF PARTIALWORD OR DUPIT THEN ® NEED VALUES114= 


BEGIN 114 
EMITO¢DUP)S3 ®114 
EmiToccoc)s 7114e 

END} ¥114- 

ENO Z1ii4= 
ELSE % 1TS A SIMPLE VARIABLE K114« 
IF PARTIALWORD OR DUPIT THEN T1149 
EMITVCTALL, ADDRESS )3 114 

IF PARTTfALWORD AND DUPIT THEN Z114= 
BEGIN 4114" 
EMITOCOUP)S Kii4de 
EMITL(OoTy.T2)3 K114« 
END? %114= 
STACKCT t= REALCPARTIALWORD OR DUPIT)3 X1ii4e 
STEPIT3 "114 
IF DUPIT THEN % ALREADY GOT FIRST PRIMARY £1149 
SIMPARITH Z1140 
ELSE *ii4e@ 
AEXP3 2114 
EMITDC4B@T25T12T2)2 %114° 
STACKCT ts 03 ¥114« 
GT1 t# TF TALUeCLASS = INTID THEN 114" 
1F Py @ FS THEN %114« 

ISp 4114 

ELSE 1149 

ISN *114= 

FLSE 114° 

IF Pt #2 FS THEN 114 

STN #114 

FLSE £1149 

_ SNDS 41148 

IF TALLJFORMALNAME THEN %114= 
BEGIN Kiide 


EMITOCXCH)S & TO GET DESCRIPTOR ON TOP X1it4@ 
IF TALLeANDRESS > 1023 THEN & SET VARTANT#114@ 


EMITOCPRTE)3 %1140 
EMITOCGT1)3 114= 

END 4114" 

ELSE %114 

EMI TPAIRCTALL,ADDRESSeGT1)3 £1148 

END %¥114= 
FLSE & NOT aSSIGNMENT TO SIMPLE VARIABLE Zi14= 
BEGIN *1149 
IF Py # FP THEN & EXPECTED ASSIGNMENT ¥114= 
ERREX1T¢202)3 41148 
EMITICTALLeTi,T2)4 & EMIT OP CALL AND PARTIALS11 4 
ENDS % WORD CODE %114 
END OF SIMPLE VARIABLES i114 


ELSE 
IF TALL, CLASS¥LABELID THEN 
COMMENT THE FOLLOWING BLOCK HANDLES THESE CASES OF SUBSCRIPTED 


VARTABLES# 
1. Vow) »ROW DESIGNATOR FOR SINGLE@DIMFNSION, 
2. VER*) eROW DESIGNATOR FOR MULTI®DIMENSION, 


3. VcR] ARRAY ELEMENTs»NAME OR VALUE, 
4, VeR1,¢S#L} *PARTIAL WORD DESIGNATOR» VALUE, 


15092800 
15093000 
15093200 
15093400 
15093600 
15094800 
15095000 
15095400 
15095600 
15095700 
15095800 
15095900 
15096000 
15096100 
15096400 
15096600 
150968600 
15097000 
15097200 
15097400 
15097600 
15097800 
15098000 
15098200 
15098400 
15098600 
15098800 
15099000 
15099200 
15099400 
15099600 
15099800 
15100000 
15100200 
15100400 
15100600 
15100800 
15101000 
15101200 
15101400 
15101600 
135101800 
15102000 
15102200 
15102400 
15102600 
15103400 
15103600 


13103800. 


15128000 
15128100 
15129000 
15130000 
15131000 
15132000 
154133000 
15134000 


AAA AHH HAHNANAMNAMOMON DOONAN BWM MAV AnD WA BAMAOA BAIAAYION VDHAANAQABONAMAANBDANMAN AVA AAATWO 


01071004983 
01078005112 
01078005183 
01074008210 
01078008382 
01073005312 
010780053: 2 
010740053382 
010718005484 
010748005684 
01071005733 
01078008810 
01078008982 
01078006010 
0107100600 
01074006220 
01078006281 
01071006284 
0107800632 
01078006333 
01078006481 
010791006684 
01071006712 
010719006884 
010780069383 
010718007084 
010718007182 
01078007432 
01078007133 
010718007211 
01073007332 
0107:007383 
OL078007434 
01073007533 
01078007680 
01078007712 
01071007810 
01078007933 
010710080380 
01078008030 
01071008010 
010710048210 
01071008210 
01071008210 
010780082831 
01078008333 
01079008582 
01078008684 
O1O7100R68;4 
010710086314 
01078008684 
010780088:0 
01078008680 
0407480088:0 
0107 7008820 
01071008810 
01071008810 


5. VER) 


6, VER]. 


« eASSIGNMENT TO ARRAY ELEMENT, 
C[S3L] « eASSIGNMENT To PARTIAL WORD*LEFT=MOST, 


R 1S A K*ORDER SUBSCRIPT LISTel Es R® RieR2>eaatRKe 
IN THE CASE OF NO MONITORING ON Ve THE FOLLOWING CODE 


1S EMITTED 
1. 


26 


FOR THE ABOVE CASES! 
CASE #1 IS A SPECIAL CASE OF #22 NAMELY* SINGLE 
DIMENSION, THE CODE EMITTED 18% 

VLeLOD , . 
EXECUTTONS PLACES ARRAY DESCRIPTER IN REG A, 
THIS CODE 1S BASIC TO THE SUBSCRIPTION PROCESS, 
EACH SUBSCRIPT GENERATES THE FOLLOWING SEQUENCE 
OF CODE? 

AEXPeL*,IF FIRST SUBSCRIPT THEN VN FLSE CDC 

eLod, 

FOR A K*ORDER SUBSCRIPTIONeK#1 SEQUENCE ARE 
PRODUCED, THE AEXP IN EACH SEQUENCE REFERS TO 
THE CODE PRODUCED BY THE ARITHMETIC EXPRESSION 
PROCEDURE FOR THE ACTUAL SUBSCRIPT EXPRESSYONS, 
C* REFERS TO THE CODE PRODUCED FOR SUBTRACTING 
NON*ZERO LOWER BOUNDS FROM THE SUBSCRIPT 
EXPRESSTON(CL® YIELOS NO CODE FOR ZERO BOUNDS), 
EXECUTION! PLACES ARRAY ROW DESCRIPTOR IN REG A 

. THE SPECIFIC ROW DEPENDS UPON THE 

VALUES OF THE K=4 SUBSCRIPTS, 


FOR THE REMAINING CASES» 


3. 


4, 


6, 


SEQUENCES oF CODE ARE EMITED AS IN CASE #92, 
HOWEVER» THE ACTUAL SEQUENCES ARE? 
ONE SEQUENCE » CAEXPeL*)eFOR THE 1ST SUBSCRIPT, 
K*1 SEFQUENCESe CIF FIRST SUBSCRIPT THEN VN 
ELSE COCeLODsAEXP,L#)» FOR THE REMAINING 
SUBSCRIPTSeIF K>1, 
AT THIS POINT, CASES #36 ARE DIFFERENTIATED 
AND ADDITION CODEsPARTICULAR TO EACH CASEs]S 
EMITTED. 
ADD THE SEQUENCES 
IF FIRST SUBSCRIPT THEN VV ELSE coc, 
EXECUTION! THE ARRAY ELEMENT IS PUT IN REG A, 
ADD THE SEQUENCE? 
IF FIRST SUBSCRIPT THEN VV ELSE COC#ZEROLs 
XCHoT, 
ADD THe SEQUENCE? 
IF FIRST SUBSCRIPT THEN VN ELSE CDCHEXP.s 
XCHee, 
ADD THE SEQUENCE! 
IF FYRST SUBSCRIPT THEN VN ELSE CDCsQUPsLODe 
EXPeTe XCHoee, 


EXPeTeerZEROLe ETC, HAVE SAME MEANINGS AS DEFINED IN 


BEGIN 


SIMPLE VARIABLE BLOCK, ; 
IF STEP] # LFTBRKET THEN % ARRAY ITEM NOT FOLLOWED BY &%1148 
BEGIN % A SUBSCRIPT £1146 
IF ELCLASS = PERIOD THEN Z114- 
IF DOTSYNTAX(T1e12) THEN ® ERROR IN PARTIAL WORD &114= 
GO TO Ex1T Zilde 
ELSE £114" 
STEPITS Zii4= 


IF FLCLASS = ASSIGNOP THEN *114= 


15435000 
15136000 
15137000 
15138000 
15139000 
15140000 
15141000 
15142000 
15143000 
15144000 
15145000 
15146000 
15447000 
15148000 
15149000 
15150000 
15151000 
15152000 
15453000 
15454000 
15155000 
15156000 
15157000 
15158000 
15159000 
15160000 
15161000 
15162000 
15163000 
15164000 
15165000 
15166000 
15167000 
15168000 
15169000 
15470000 
15171000 
15172000 
15173000 
15174000 
15175000 
15176000 
15177000 
15178000 
15179000 
15180000 
15181000 
15182000 
15183000 
15183100 
15183200 
15183300 
15183400 
15183500 
15183600 
15183700 
15183800 


io Be 2 he is Be Bis Bis Bee Mo Bn Bae Me Ron Moe Boe Boe Bee Bee Bee Be oe ee ee ie ee i i en oe ee eee | 


01078008880 
0107#0088:0 
01071008810 
01071008810 
010748008810 
01078008810 
01073008810 
01078008610 
01071008830 
01071008810 
01071008830 
01078008810 
010710088!0 
01071008680 
01071008680 
01071008830 
01078008680 
01071008810 


04078008880 


01073008810 
0107800880 
01078004880 
01078008830 
01078008880 
040780088!0 
010741008830 
0140728008880 
01071008810 
010718008810 
01072008810 
01078008810 
0107141008880 
0140718008810 
01078008810 
0107t008B8t0 
07071008810 
01071008810 
010731008810 
01071008830 
01078008830 
01071008810 
010710086610 
04078008810 
03078008830 
014078008830 
010718008810 
040720088:0 
0107800880 
04071008810 
010730088814 
01071008983 
010718009010 
01074009182 
01079009281 
030780092314 
01078009234 
01071009333 


COMMENT 207 
NEXTS 


COMMENT 203 


COMMENT 204 
COMMENT 205 


BEG! 
IF 


N 
PARTIALWORD THEN 
BEGIN 


¥114° 
Fii4de 
gii4d@ 


IF Pi # FS THEN ® PARTYAL WORD NOT LEFT#MOST2114% 


ERREXIT(209)3 
XREFITCTALLe«REMEMBERSEQNOsASSIGNREF )3 
END 


FLSE & ASS}GNMENT TO ID WITH NO PARTIAL WORD 


1 


XMARKCASSIGNREF)3 
F TABLECH4+1) = ASTRISK THEN 


Bitde 
¥i14= 
¥114= 
T1146 
Z1149 
K114= 


IF CDUPET $# CTABLECI42) 2 EQVOP AND TABLECI+42) 


S$ MULOP) OR TABLEC1+2) = AMPERSAND) THEN 
STEPITS 


¥i14= 
B114d9 


IF PARTIALWORO OR DUPIT THEN % NEED VALUE ON STACK 
IF TALL CLASS < JNTARRAYID THEN & NOT NAME {TEM 


EMITPATRCTALL» ADORESS» LOD) ®114« 
ELSE ®ii4ae« 
EMITNCTALL ADDRESS) 3 $1148 
IF PARTIALWORD AND DUPTT THEN K114= 
BEGIN ¥114= 
EMITOCDUP D3 T1145 
EMITTCOoT1,T2)3 1146 
ENDS %114@ 
STACKCT t= STACKCT + REALCPARTIALWORD OR DUPIT)! 
STEPITS 1149 
IF DUP]T THEN & WE HANDLED FIRST PRIMARY £1149 
SIMPARTTH ¥114= 
ELSE ¥i14= 
AEXP3 $1148 
EMITDCO6HT2eT1,T2)3 114« 
EMITPAIRCTALL,ADDRESS»IF Pi = FS THEN STD FLSF&S1149 
SND)S 8114" 
STACKCT t= OF g A AND B ARE EMPTY Z1i14= 
END ¥114° 
ELSE & NOT ASS]|GNMENT 114" 
EMITICTALL» Ti eT2)3 #1148 
GO TO EXIT3 #1148 
END OF ASSIGNMENT TO NON SIMPLE NON SUBSCRIPTED T1i1d@ 
VARTABLE3 "1148 
J+ 03 
STACKCT «# 03 
VARTABLE*MISSING LEFTRRACKET ON SUBSCRIPTED VARIARLE #3 
te STeEPy = FACTOP THEN 
BEGIN 
IF J+i# TALL INCR THEN 
BEGIN ERR(203)8GO EXIT ENDS 
VARIABLE= THE NUMBER oF SUBSCRIPTS USED IN A ROW * 
ROW DESIGNATER DOES NOT MATCH THE ARRAY * 
DECLARATION, *} 
IF STePy # RTBRKET THEN 
BEGIN ERR(204)3GO EXIT ENDS 
VARIABLE™ COMPILER EXPECTS A 1 IN A ROW DESIGNATER #3 
VARTABLE® A ROW DFESIGNATER APPEARS OUTSIDE OF A FILL - 
STATEMENT OR ACTUAL PARAMETER LIST, *} 


IF Js THEN 
EMITPAIRCTALL,ADDRESSeL0D)!3 
STEPIT3 


15183900 
15184000 
15184100 
15184200 
15484300 
15184400 
15184500 
15184600 
15184700 
15184750 
15484800 
15184850 
15185000 
15185100 
15485200 
15185300 
15185400 
15185500 
15185600 
15185700 
151856800 
15185900 
15186000 
15186400 
15186200 
15186300 
15186400 
15186500 
15186600 
15186700 
15186800 
15186900 
15187000 
15187100 
15187200 
15187300 
15187400 
15187500 
15187600 
15234000 
15234500 
15235000 
15253000 
15254000 
15255000 
15256000 
15257000 
15258000 
15259000 
15260000 
15261000 
15262000 
15263000 
15264000 
18263000 
15266000 
15267000 
15274000 
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04071009084 
01078009582 
01071009583 
01078009680 
01078009782 
01071009894 
010741010182 
01073010132 
01078010182 
01078010680 
030790307183 
0140780494001 
01078014413 
01073044583 
04071014601 
010710949891 
04078042080 
04072012094 
01073012290 
010730423183 
01078042430 
01073032484 
04073049680 
0310741012610 
010710328180 
03074042884 
0107480429182 
01078012983 
01073013080 
01071023192 
01074013201 
010710435183 
01078043630 
01078013782 
04073043712 
010780743782 
01071043634 
010710139922 
01071013932 
01071013982 
01073014080 
01078014081 
01078034084 
04071034280 
04078014231 
04078014480 
01073074680 
01072014680 
0107t014610 
01078044630 
01O780,a7!82 
01071014684 
04078094884 
04071044834 
09071034681 
074078044884 
04078044983 
04078045183 


LASS! 


COMMENT 
IF J 


COMMENT 


COMMENT 


GO TO EXITS 
END OF ROW DESIGNATOR PORTION 3 


IF ELCLASSsLITNO AND ELBATLCI)¢ADDRESS&O AND TABLECI+41)aRTBRKET 


*e aK 


AND TALL sCLASSZNAMEID THEN 
BEGIN 
JTeled3 
Te STEPYSASSYTGNOP THEN BEGIN 
IF T1#0 THEN EMITVCTALL,ADORESS)3 
STEPTTS AFXPS FMITDCS8"T2,T1,T2)3 
EMLTNCTALL,ADDRESS)3 
EMITOCIF TALL eCLASS#NAMEID THEN 
IF PiwsFS THEN ISD ELSE ISN ELSE 
IF PisFS THEN STD ELSE SND)! 
STACKCT « 03 
GO TO EXIT END 
ELSE 
IF ELCLASS * PERIOD THEN BEGIN 
IF DOTSYNTAXCTisT2) THEN GO TO EXITS 
IF STEP? = ASSIGNOP THEN IF PisFS THEN GO TO LASS 
FLSE BEGIN ERRC20993 GO EXIT ENDS 
END3 
IF PysFS THEN BEGIN ERRCO219)% GO EXIT END} 


EMITICIF P1sFL THEN TALL ELSE TALL&REALID(2ta,87)eTteT2)8 


GO TO EXIT; 
ENDS 
AEXP3 
STACKCT « 13 
Je Je U3 
Ip FLCLASS * COMMA THEN 
BEGIN 
MON{TOR FUNCTION M4 GOES HERE 3 


ew 1 THEN EMITVCTALL.«ADDRESS) ELSE EMITOCCOC)S 


206 


GO TO NEXT3 
END OF SUBSCRIPT COMMA HANDLER 3 
IF ELCLASS # RTBRKET THEN BEGIN ERR(206)3G0 EXIT ENDS 
VARTABLE@™ MISSING RIGHT BRACKET ON SUBSCRIPTED VARIABLE*S3 


GT1eIF TALL«CLASS2NAME1D THEN 1 ELSE TALL, INCRI 
1fF J#6T1 THEN 


208 


BEGIN ERR¢C208)3G0 TO EXIT END? 


VARTABLE® NUMBER OF SUBSCRIPTS DOES NOT MATCH WITH * 
ARRAY DECLARATION, «} 
IF STEP! = PERIOD THEN & PARTTAL WORD x114« 
IF DOTSYNTAXCTIeT2) THEN % ERROR £114" 
GO TO EXxfT $114" 
ELSE Ziiae 
STEPIT3 %114= 
IF ELCLASS * ASSIGNOP THEN & ASSIGNMENT TO SUBSCRIPTED 

BEGIN % VARIABLE g114« 
IF PARTIALWORD THEN. *ip4ae 
IF Pi # FS THEN x114° 
ERREX1T¢209)3 & PARTIALWORD NOT LEFT=MOST e114= 
XREFITCTALL»REMEMBERSEQNO,ASSIGNREF)3 Z114= 
1F J 2 1 THEN & SINGLE*DIMENSIONED %114-= 
EMITNCTALL. ADDRESS) %114= 


15275000 
15276000 
15276010 
15276020 
15276030 
15276040 
15276050 
15276060 
15276070 
15276080 
15276090 
15276100 
15276410 
15276115 
15276120 
135276130 
15276140 
15276150 
13276160 
15276170 
15276180 
15276190 
15276200 
15276210 
15276220 
15276230 
15276240 
15277000 
15278000 
15280000 
15287000 
15288000 
15289000 
15290000 
15291000 
15292000 
15293000 
15294000 
15295000 
15295100 
15296000 
15297000 
15298000 
15299000 
15300000 
15300100 
15300200 
15300300 
15300400 
15300500 
15300600 
15300700 
15300800 
15300900 
15301000 
15301100 
15301200 


OO VAQMO NV AN NANO OVA AAAs AANA SH A Ht tH A a ts tt ta tt 


0107%0145230 
010780152814 
010718101521 
01071015610 
0107303581 
0107480185982 
01078016030 
04078016183 
0q4O78046aNY 
040730467842 
01071016831 
01078017080 
043078047322 
01071017583 
010780176814 
040780377182 
01078047792 
01078017684 
010781016084 
01078018281 
0107190184634 
01071048084 
0,O7tOqa7#2 
04078018712 
01078019182 
01073049132 
01073049133 
0107130149133 
01073019230 
0107180493:2 
01073049810 
04078049582 
01078049533 
01078039523 
040710199182 
010748019982 
01071019913 
01079019913 
01071020280 
01073020210 
04078020610 
01078020684 
01078020811 
01078000884 
014078020884 
01078020933 
01078029182 
01078023182 
01072024132 
01071021210 
0107021382 
04078024333 
0107480214:0 
01071024533 
010710217%2 
01073023983 
01078022084 


ELSE ¥114= 
EMITOCCDC)3 E114 
IF TALLeCLASS 2 LONGID THEN & EXPLICIT INDEX OP £114= 
EMITOC{NX)3 % REQUIRED ¥i14« 
IF Pi = FR THEN & CALLED FROM FOR STATEMENT $114« 
GO TO EXITS Zi14d9 
1F TABLECT41) = ASTRISK THEN ¥114= 


TF COUPTT&e¢TABLECI+2) 2 EQVOP AND TABLECI+2) g114= 
$ MULOP) OR TABLECI42) = AMPERSAND) THEN ¥114- 


STEPYT3 %114= 

IF PARTIALWORD OR DUPIT THEN & NEED VALUE ON STACK 
BEGIN Ki14= 
EMITOCDUP)3 £1140 
EMITOCLOD)S £1148 
END} Z114« 
TF PARTIALWORD AND DUPIT THEN K114= 
REGIN %¥114e 
EMITOCNUP)3 ¥i14= 
EMITICO,TIeT2)3 ¥1i149 
END3 £1149 
STEPIT3 "114= 
1F DUPIT THEN %1ii4e° 
SIMPARITH #1140 
FLSE %114= 
AEXP3 F114" 
FMITDC4SBeT2,T12T2)3 ¥114= 
EMITOCXCH)S ¥114-« 
IF TALL.ADDRESS > 1023 THEN %114 
EMITOCPRTF)3 2114" 
EMITOCIF TALL,CLASS MOD 2 = INTARRAYID MOD 2 THEN%114= 
IF Pi # FS THEN ISD ELSE ISN Z1i14d- 
ELSE yF P1 = FS THEN STO ELSE SND) ¥114= 
STACKCT t= OF ¥ A & B ARE EMPTY £114 
Pi tz OF i149 
END OF ASSYGNMENT TO SUBSCRIPTED VARIABLE ¥1140 
ELSE T1146 
BEGIN % HANDLING OF NO ASSIGNMENT CASE Ziide 
SPCLMON te P1 = FP OR PARTIALWORD OR ELCLASS > Kii4-9 
AMPERSAND3 £114 
1F J = 1 THEN & SINGLE DIMENSTONED %114= 
TF TALL.CLASS 2 LONGID THEN 3 NAME [TEM %114= 
BEGIN 1146 
EMS TN¢TALL,ADNRESS)3 1148 
EMITOCINX)S Z114= 
TF SPcLMON THEN Z114= 
EMITOcLOD)3 1148 
END Z1i146 
ELSE % REFERENCE TO SINGLE DIMENSIONED ARRAY Z114-" 
IF SPCLMON THEN $1145 
EMITVCTALLe ADDRESS) 1146 
ELSE Z114= 
EMITN¢ TALL. ADDRESS) ¥114= 
ELSE & MULTI@DIMENSIONED CASE Z1i14@ 
FMITOCIF SPCLMON THEN COC FLSE COC)3 R114" 
IF P1 # FS THEN ® EXPECTED AN ASSIGNMENT $1140 
ERREX1T¢240)3 *114= 


STACKCT t= 43 & BECAUSE REGISTERS ARE NON@EMPTY 449448 


15301300 
15301400 
15301500 
15301600 
15301700 
15301800 
15301900 
15302000 
15302100 
15302200 
15302300 
15302400 
15302500 
15302600 
15302700 
15302800 
15302900 
15303000 
15303100 
15303200 
15303300 
15303400 
15303500 
13303600 
15303700 
15303600 
15303900 
15304000 
15304100 
15304200 
15304300 
15304400 
15304500 
15304600 
15304700 
15304800 
15304900 
15305000 
15305100 
15305200 
15305300 
15303400 
15305500 
15305600 
15305700 
15305800 
15305900 
15306000 
13306100 
15306200 
15306300 
15306400 
135306500 
15306600 
15306700 
15306800 
15306900 


“ OEaranyoaranypsoanon AAIONMNOAAIANTOAHAYIAN AN OAM BOAIOOANMOVMAAAAHTBTASVANANMNM A AWA AN oO Onn 


01078022210 
01078022230 
01078022333 
010710299833 
010710226:0 
01078022681 
01078022712 
01073022982 
04078023210 
04078023583 
01073023681 
01073023830 
010720238334 
01073023932 
010781024080 
01073024010 
01074024182 
041071024193 


01078024211. 


01071024333 
014073024333 
01078024430 
01078024484 
010720240512 
010780245183 
01071024614 
01071024810 
01078024912 
010718028010 
010710281343 
01073025480 
01073025631 
010780285933 
010748026081 
01073026143 
01078026133 
01078026183 
01071026210 
01078026430 
0407302652 
01071026610 
010728026713 
04078026810 
01071026983 
01078027080 
O,O7sOarOsy 
03079027183 
010780271133 
01078027433 
010738027211 
01071027410 
019718027430 
01071027533 
01071027610 
04073027634 
0407130279183 
010780281382 


EXT 


IF PARTIALWORD THEN ¥1140 
REGIN £1148 
EMETICO,Ti»T2)3 2114 

P1 $= O03 %114*" 

END3 ¥114= 

FNn OF NO aSStGNMENT CASE3 %114= 


ene OF SUBSCRIPTED VARIABLES 
FLSE 
BEGIN COMMENT LABELID3 
TytsTAKECT2taGITCTALL) 23 
PUTCLeT2)3 
IF TyeO0 THEN TiteL3 
IF (TieL*T1) DIV & > 427 THEN BEGIN Ti#O3FLAG(50)3END3 
EMIT(Tixd3)3 
STEPITS 
END OF LABELID: 
t END OF THE VARIABLE ROUTINES 


COMMENT THtS SECTION GENERATES CODE FOR STREAM PROCEDURES? 


COMMENT 


DO LABEL DECS UPON APPEARANCE OF LABEL 3 


PROCEDURE DECLARELABEL 3 


PRT¢733) = NECLARELAREL 


BEGIN 

KLASSF « STLABIDS 

VONF « FORMALF « FALSF3 

ADDRSF «# 03 

MAKEUPACCUMS £3 PUTNBUMPCO)3 

FLBATCT) «© ACCUMPO)& LASTINF 073523521373 
END3 


PROCEDURF STREAMSTMT 3 


DEFINE 


BEGIN 
NEF INE LFETPAREN®LEFTPAREN#, LOCEL 36812) Fa LASTGT#( 20312) 4, 


LOCFLN#£&36836172#eLGTFLDe24t oar oR 
DFFINE LEVELSLVL#sADDOPSADOP#; 


JFW = 39%, COMMENT 7,5,5,1 JUMP FORWARD UNCONDITIONAL }3 
RCA = 40%, COMMENT 7.5.7.5 RECALL CONTROL ADORESS j 
JRV 3 47H, COMMENT 7,5,5.2 JUMP REVERSE UNCONDITIONAL 3 
CRF = 35%. COMMENT 7.5.19.6 CALL REPEAT FIELD ; 
BNS » 42%, COMMENT 7.5.5.5 BEGIN LOOP } 
NOP 2 1#» COMMENT 5 
ENS = &{#s COMMENT 7.50526 END LOOP , 
TAN = 30#2 COMMENT 7.5030? TEST FOR ALPHAMERIC ; 
BIT #& 34%+ COMMENT 7.50308 TEST BIT ; 
JFC @ 37%» COMMENT 7.50543 JUMP FORWARD CONDITIONAL ’ 
SFN 2 O06#» COMMENT 7.5.7.8 SET DESTINATION ADDRESS H 
RSA 2 43%, COMMENT 7.5.7.4 RECALL SOURCE ADDRESS $ 


TRANSFER PROGRAM CHARACTERS 


107 1S 


15307000 
15307100 
15307200 
15307300 
15307400 
15307500 
15376000 
15376100 
15376200 
15376300 
15376400 
15376500 
15376600 
15376700 
15376600 
15376900 
15377000 


302 LONG 


16000000 
16000050 
160004100 


16000200 
16000300 
16000400 
16000500 
16000600 
16000700 
16000800 


16001000 
16002000 
16003000 


START OF SEGMENT 


16004000 
16005000 
16006000 
16007000 
16008000 
16009000 
16010000 
16011000 
16012000 
16013000 
160414000 
16015000 
16016000 
16017000 
16018000 
16019000 


Pp 
Cc 
C 
Cc 
Cc 
Cc 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
® 


44-47 


AtAsHtoato4 


T 
T 
T 
* 
T 
T 
7 
T 
T 
T 
T 
T 
T 
T 
tf 
T 
T 
T 
T 
T 


04073028210 
0107:0282!14 
01071028382 
010798028434 
01073028533 
01071028533 
030718028513 
014071028513 
07071028583 
010780286:0 
01073026810 
010780289382 
01078029182 
0107802953 3 
01078029732 
01073029783 
01073029733 
NEXT SEG 


00031069884 
00031062684 
00031062884 


0003!062834 
00038062811 
00031062983 
000310631142 
00031063113 
00031063333 
00038063630 


00033063610 
00031063610 
00031063680 


KeeEREREH 10 


01089000010 
01081000080 
01081000080 
01081000080 
01081000010 
04081000080 
0108000080 
0;081000010 
01081000010 
04081000010 
01081000080 
01081000010 
01081000010 
01081000010 
01081000010 
0140841000010 


3 


8 


BSS 
BSD = 
SEC = 
JNS 2 


3%, 
Oke 
34%, 
388! 


PROCEDURE ADJUST33 


PRTC734) = ADJUST 


PRTC735) # FIXC 


STACK(F42) = SAVL 
STACK(CF43) = D 
STACK¢(Fs4) = F 


STACK¢F4+2) a T 
STACK¢Fs3) 3 D0 


STACK¢F +4) = ADDR 


COMMENT 


COMMENT FIXC EMITS 
OF INSTRUCTIONS INTERPTED AS JUMPS BECAUSE OF A CRF ON 


COMMENT 7.506, 

COMMENT 7.506, 
COMMENT Te501041 

COMMENT 72525¢ 


BASICLY FORWARD JUMPS, 


SET COUNT 


JUMP OUT LOOP 


HOWEVER 


6 SKIP SOURCE BIT 
5 SKIP DESTINATION BITS 
7 


IN THE CASE 


A VALUE = O AND THe JUMP 2 64 SYLLABLES A JFW 4 AND 
A RCA L CL IS STACK ADDRESS oF A PSEUDO LABEL WHICH 
MUST ALSO BE MANUFACTURED) IS EMITTED, 3 


BFGIN 


REAL SAVLoDeFs 


PROCEDURE FIXC¢S)$ VALUE S3 REAL S3 


IF De CSAVLeL) @& ¢LeS)"1 $ 63 THEN EMI Toe De GETC(S)) 


ELSE 
LeSAVL 3 


FND FYXC 3 


FLAGE700)3 


COMMENT EMITJUMP IS CALLED BY GOTOS AND JUMPCHAIN, 


THIS ROUTINE WILL EMIT A JUMP TF THE DISTANCE IS < 63 

1T GETS A PRT CELL ANDO STUFFS THE 
STACK ADDRESS {NTO THF LABEL FNTRY IN JNFO AND EMITS AN 
AT EXECUTION TIME ACTUAL PARAPART 
INSURES US THAT THIS CELL WILL CONATIN A LABEL DESCRIPTOR 


SYLLABLES »OTHERWISE> 


RCA ON THIS STACK CELL. 


POINTING TO OUR LABEL IN QUESTION, 3 


BEGIN 


REAL TsD3 


REAL ADDR} 


TF ABS¢ 


PROCEDURE EMITJUMPC FE)? VALUE E8 REAL ES 
PRTC736) = FMITJUMP 


NeCTeTAKECGITCEI) LOCI#L"19264 THEN 


FLAG(700) 


ELSE EMITCCDsIF D «<0 THEN JRV ELSE JFWI3 
END EMIT gUMP3 


WHEN JUMPCHAIN +S CALLED THERE IS A LINKEDLIST IN THE CODE 


START OF SEGMENT 


109 1S 


START OF SEGMENT 


110 1S 


16020000 T 0108:0000:0 
16021000 T 01088000010 
16027000 T 04088000010 
16023000 T 01088000030 
16023100 T 010830000:0 
16024000 T 01088000080 
16025000 YT 01081000030 
16026000 T 01064000030 
16027000 T 0108480000:0 
16028000 T 04084000030 
16029000 T 01084000080 
16030000 T 0108480000%0 
16031000 T 0108000010 
eeeeeeeeeen = 109 
16032000 T 01098000010 
16033000 T 01098000414 
16034000 T 01091000611 
16057000 T 01098000782 
10 LONGe NEXT SEG 108 
16058000 T 01064000030 
16059000 T 01087000080 
16060000 T 03085000010 
16061000 T 01081000080 
16062000 T 01088000010 
16063000 T 0108:0000:0 
16064000 T 010880000:0 
16065000 T 043061000010 
16066000 T 01088000080 
16067000 T 01081000030 
eeeeeeeeee 140 
16068000 T 01108000030 
16069000 T 01108000010 
16070000 ¥ 011080000!0 
16071000 T 01108000434 
16079000 T 014080005%2 
16080000 T 0410#0009%2 
12 LONGe NEXT SEG 106 
16081000 FT 010830000130 


ARRAY WHERE JFWS MUST BE PLACED, THE 1ST LINK IS POINTED 
To BY THE LOC FIELD OF EACH LABEL ENTRY IN INFO, THE LAST 
LINK 18 = 4096, 3 
PROCEDURE JUMPCHAINE £)% VALUE ESREAL ES 
PRT¢737) = JUMPCHAIN 
BEGIN 
REAL SAVL »LINK3 


STACK¢F42) 2 SAVL 
STACKEFe3) = LINK 
SAVL « lL} 
L « TAKECGITCE)) LASTGT 3 
WHILE L#¥ 4095 99 
BFGIN 
LINK « GETCL)3 
EMITJUMPC E)3 
Lo « LINK 
END} 
LeSAVL3 
END JUMPCHAIN 3 


COMMENT NESTS COMPILES THe NEST STATEMENT, 

A VARTABLE NEST INDEX CAUSES THE CODE. 

CRF Ve ANS O sNOPsNOPs TO BE GENERATED INITIALLY, 
AT THE RIGHT PAREN THe BNS 1S FIXED WITH THE LENGTH OF 
THE NEST CNUMBER oF SYLLABLES) IF THE LENGTH $63-0THERWISE 
IT IS FIXED WITH A {1 AND THE NOPS REPLACED WITH JFW 41> 
RCA P. THIS IS DONE BECAUSE THE VALUE OF V AT EXECUTION 
MAY = 0 AND THIS CODE CAUSES A JUMP AROUND THE NEST, 
JUMPOUT INFO IS REMEMRERED IN A RECURSIVE CELL AND 
NeST LEVEL INCREASED BY ONE, 
WHEN THE RIGHT PAREN 1S REACHEDs CIF THE STATEMENTS IN 
THE NEST COMPILED)» JOINFO 1S CHECKED FOR THE EXISTANCE 
OF JUMPOUT STATEMENTS IN THE NESToIF SOsTHE THE JUMPS 
ARE FIXED BY FAKING ToOTOS INTO COMPILING THE REQULRED 
JUMPS, 
FINALLY THE BNS IS FIXEDeIF REQUIRED»sAND NEST LEVEL, 
AND JOINFO RESTORED To THEIR ORIGINAL VALUESe 3 

PROCEDURE NESTS} 
PRTC740) = NESTS 
RBFEGIN 
LABEL FXITS 


REAL JOINTsBNSFIXS 
STACKECF4+2) = JOINT 
STACKCF 43) = BNSFIX 
IF ELCLASS#LITNO THEN 
BEGIN 
EMITCCELBATCIJ¢ADDRESS#CRFD3 BNSFIX® Ly 
EMITCBNS)$ 
ENO 
FLSE EMITCCELBATLI]«ADDRESS#BNS)$ 
IF STEP! #* LFTPAREN THEN BEGIN ERR( 26293 GO TO EXIT END} 


START OF SEGMENT 


111 1S 


START OF SEGMENT 


16082000 T 0106:000080 
16083000 T 01408:000030 
16084000 T 04081000010 
16085000 T 0308:000030 
16086000 T 0108!000010 
16087000 T 01083000010 

enbeeebee 111 


16088000 T 04118000080 
16089000 T 01118000084 
16090000 FT 01118000382 
16091000 T 01118000480 
16092000 T 01111000430 
16093000 T 014118000583 
16094000 T 01113000680 
16095000 T 041114000610 
16096000 T 01111000982 
16097000 T 0111000983 
12 LONGe NEXT SEG 108 
16098000 TF 01063000030 
16099000 T 010880000:0 
16100000 T 04088000080 
16101000 T 04082000030 
16102000 T 0108#000030 
16103000 T 0108000030 
16104000 T 01081000010 
16105000 T 0108:0000:0 
16106000 T 01083000030 
16107000 T 01088000010 
16108000 Y 01081000030 
16109000 T 01081000010 
16110000 T 04108:0000!10 
16111000 T 04081000010 
16112000 T 04088000010 
16113000 T 0108!000030 
16114000 T o0f08:80000t0 
16115000 T 01088000010 
16116000 fT 01088000080 
16117000 TF 04068000010 
KEKE EH 942 
16118000 T 04124000010 
16119000 T 01128000080 
16120000 T 01123000084 
16121000 T o1f22000102 
16122000 T 01128000333 
16123000 T 01128000431 
16124000 T 0112:000481 
16125000 T 01121000684 


NESTLEVELeNESTLEVEL + 13 
JOINT «#» JOTNFO3 
JOINFO © O03 
no BEGIN 
STFPIT! ERRORTOG « TRUE STREAMSTMT 
END UNTIL ELCLASS # SrMICOLON 3; 
1F ELCLASS # RTPAREN THEN REGIN ERR(26293G0 TO EXIT ENN 
EMIT € ENS)3 
IF JOINFO # O THEN 
BEGIN 
PREPARE TO CaLL JUMPCHAIN FORJUMPOUTS3 
ANJUST3 
PUTCTAKECGITCUOENFO) QLCLOCFLO I sGITCJOINFO))3 
JUMPCHAINCTAKECJOPNFO)Q@JOINFOl35335213))3 
END} 
TF BNSFIX # 0 THEN FYXCCBNSFIX)3 
NESTLEVEL « NESTLEVEL#13 
JOINFO « JOINT 3 
EXriT: ENO NeSTS 3 


COMMENT 


COMMENT LABELS HANDLES STREAM LABELS, 

ALL LABELS ARE ADJUSTED TO THE BEGINING OF THE NEXT 

WORD ¢IN THE PROGRAMSTREAM), 

1F A GO TO HAS NOT BEEN ENCOUNTERED BEFORE THE LABEL 

THEN THE NEST LEVEL FIELD IS ENTERED AND THE DEFINED BITe 
t1t¢)» SET To ONE, FOR DEFINED LABELSe IF WHERE A 60 To 
HAS APPEARED,» A CHECK IS MADE THAT THE CURRENT NEST LEVEL 
MATCHES THE LEVEL OF THE LABELe 

MULTIPLE OCCURANCES ARE ALSO CHECKED FOR AND FLAGGED, 
FINALLY» JUMPCHAIN IS CALLED To FIX UP ANY FORWARD GO TOS 
AND GET A PRT LOCATION FOR ANY JUMPS 264 SYLLABLES, 3 


PROCEDURE LABELS) 


PRTC741) = LABELS 


STACK¢F42) «= GT4 


BFGIN 
REAL GT1L3 


ADJUSTS 
GT1 + ELBATEIY3 
XMARKC(LBLREF)$ % MARK LABEL OCCURENCE FOR XREF 
IF STEPI # COLON THEN ERR(258) 
FLSE 
BEGIN 
IF TAKECGT2*GITCGT1)9.LOC # O THEN FLAGC259)3 
IF GT1>0 THEN 
BEGIN 
PUTC*CTAKECGTI &NESTLEVELL112493357),6T1)3 
PUTC@LeGT2) 
END 


%110° 


ELSE 
BEGIN 
IF GTIsLEVEL#NESTLEVEL THEN FLAGC257)3 
PUTCC*LISTAKECGT2)CLGTFLD1eGT2)! 
JUMPCHAINGGT4)3 


112 1S 


16126000 
16127000 
16128000 
16129000 
15130000 
16131000 
16132000 
16433000 
16134000 
16135000 
16436000 
16137000 
16138000 
16139000 
16140000 
16141000 
16142000 
16143000 
16144000 


34 LONG 


16145000 
16146000 
16147000 
164148000 
16149000 
16480000 
16151000 
16152000 
16153000 
16154000 
16155000 
16156000 


16157000 
16157100 


START OF SEGMENT 


16158000 
16159000 
16189100 
16160000 
16161000 
16162000 
16163000 
16164000 
16165000 
16166000 
16167000 
16168000 
16169000 
16170000 
16171000 
16172000 
16173000 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 


AHHH An aH 


T 
T 


01121000983 
01128001084 
01128004183 
01128001230 
01123001382 
01128004480 
01121001610 
01124100;884 
01128004982 
0112:002030 
01128002084 
01128002084 
011238002182 
01129002884 
01128002684 
01128002681 
01128002814 
0411240030180 
01129003084 


NEXT SEG 108 


01068000010 
01083000030 
01082000010 
01083000010 
010810000:0 
01088000010 
01084000030 
0108:0000:0 
0108#0000%0 
0108!000030 
010848000030 
01061000080 


010810000:0 
01088000080 


KeREKEEEE HE 1143 


i i ee ee er | 


01134000010 
01138000084 
01131000183 
01138000583 
011310007383 
011350900810 
01138000831 
01138001231 
01138004332 
01138003333 
01139004631 
O¢g38O0q7t2 
04132004783 
014131003733 
01131004830 
01131002081 
0413'002333 


e 
. 


PRT(742) © IFS 


STACKCF42) = ADDR 
STACK(F43) s FIX 
STACKCF 4a) = FIX9 


COMMENT 


PROCEDURE IFS3 


IFSC} 


IFSB; 
IFTOG: 


ENDS 
END 
s STEPITS 
FNO LABELS 3 


IFS COMPILES IF STATEMENTS, 

FIRST THE TEST +S COMPILED, NOTE THAT IN THE 

CONSTRUCTS SC RELOP OC" AND “SC RELOP STRING” THAT 
THE SYLLABLE EMITTED 1S FETCHED FROM ONE OF TWO FIELDS 
IN THE ELBAT WORD FOR THE RELATIONAL OPERATOR, OTHERWYSE 
THE CODE tS EMITTED STRAIGHTAWAY, 

A TEST 1S MADE TO SEE WHETHER THE STATEMENT AFTER THE 
"THEN® COULD POSS;SLY BE LONGER THAN 63 SYLLABLES» AND IF 
So» Z NOPS ARE EMITTED FOR FIXC IN CASE A RCA WILL HAVE 
To BE GENERATED, 

THIS PROCEDURE pOES NO OPTIMAZATION IN THE CASES 

IF THEN GO TO LoIF THEN STATEMENT ELSE GO TO Le OR 

IF ne : To Li ELSE GO TO Lo 3 

BEGIN 


DEFINE COMPARECODE@(42:61]#,TESTCODE SL 3626) #3 


LABEL IFSBeIFT9GSIFSC,EXITS 
SWITCH IFSW « ItFSBelFTOGeIFSC3 
REAL ADDRoFIXteFIX2 3 


ADDRe1 3 
GO TO [FSWCSTEPI =Spvei) 3 
IF ELCLASS#LOCLID THFN 

RFEGIN 

EMITCCELBATCI J eaADNRESSoCRE)3 

AnpReO} 

END 
ELSE 

IF ELCLASS#LITNO THEN ADDR « FLBATEIJ.ADDRESS 
ELSE BEGIN ERR¢250)3 Go TO EXIT END 
IF STEpI # SCV THEN BEGIN ERRC263)3GoO To EXIT END: 
IF STEPI # RELOP THEN BEGIN ERR(264)3G0 To EXIT ENDS 
IF STEPI = OCV THEN EMITCC ADDReELBATCI"™1]+COMPARECODE) 
ELSE 

IF ELCLASS ® STRNGCON THEN . 

EMITCCACCUME1 I eLISt6]eFLRBATCIML] ¢TESTCODE) 

FLSE . 
1F ELCLASS@LFTNO THEN FMITCCCOELBATCI@II,TESTCODE) ELSF 
TF ELCLASSSIDMAX AND Qe"SALPHA" THEN FMITCCL72 TAN) 
ELSE BEGIN ERR(265)3G0 TO EXIT ENDS 
Go To IFTOG 3 
EMITCC4eBIT)S 
IF STEP] # THENY THEN BEGIN ERR(266)3 GO TO EXIT END) 
FIX1 «+ L3 
EMITCUFC)}. 


113 18 


START OF SEGMENT 


16174000 T 0113180024830 
16175000 T 01438002410 
16176000 T 01131002410 
16177000 T 011348002014 
27 LONGs NEXT SEG 106 
16178000 YT 0108:!000030 
16179000 T 04082000030 
16180000 T 04081000010 
16181000 + 0108:000030 
16182000 T 0108800001t0 
16183000 T 01081000010 
16184000 T 0410880000:0 
16185000 T 01088000010 
16486000 T 01088000010 
16487000 T 01083000030 
16488000 T 04088000010 
16189000 T 0:108!0000:0 
16490000 T 04308!000030 
164191000 T 01088000010 
16192000 T 01081000080 
ekeeeeewee 914 
16193000 T 01148000030 
16194000 T 04141000010 
16195000 T 0414800048, 
16196000 T 01141000481 
16197000 T 01142000533 
16198000 T 011428000982 
16199000 T 014148000933 
16200000 fT 011423001020 
16201000 T 01148001280 
16202000 T 041148004231 
16203000 F 0444800;284 
16204000 T 01141004281 
16208000 T 04448004484 
16206000 T 01148003713 
16207000 T 021248002081 
16208000 T 01148002383 
16209000 T 011480026384 
16210000 T 011480027183 
16211000 T 01148002811 
16212000 F 01141003152 
16212500 T 01148003210 
16213000 T 01148003630 
16214000 T 04443003983 
16215000 T 03441004312 
16216000 T 04141004383 
16217000 T 0110:004582 
16218000 T 01148004733 
16219000 T 


01143004681 


PRTC743) * ROTOS 


IF STEPI#FLSEV THENS 

STREAMSTMTS 

TF ELCLASS® FLSEV THeN 
BEGIN 
FIX2 « L3 
FrxXCeryxXa)3 
STEPYIT3 
STREAMSTMT? 
FIXCCFIX2)3 
ENN 

ELSE FIXCCFIXL)3 

EXITIEND IFS 3 


eEMrT¢Jdrw)3 


COMMENT GOTOS HANDLES G0 TO AND THE LAST PART OF JUMP OUT To 
STATEMENTS, 
IF THE LABEL HAS BEEN ENCOUNTERED THEN EMITJUMP 1S CALLED 
An PRODUCES A ygRV OR RCA IN THE CASE OF JUMPS264 SYLLABL 
ES. OTHERWISE*® a LINK IS EMITTED POINTING ANY PREVIOUS 
Go ToS IN THE CASE OF FORWARD JUMPS, 
FINALLY» IF THE NEST LEVEL IS DEFINED THEN IT IS CHECKED 
AGAINST THE CURRENT LEVEL MINUS THE NUMBER OF LEVELS TO 
RE JUMPED OUT. OTHERWISE*NEST LEVEL IS DEFINED, 3 

PROCEDURF GOTOS} 


BEGIN 
LABEL FXIT3 


IF STEPY #TOV THEN Telod # 
IF STEP] # STLABID THEN IF ELCLASS $ IDMAX THEN 
DECLAREL ABEL ELSE BEGIN ERR(260)3 Go To EXIT ENDs 
IF CGT2e¢TAKECGITCGTI*ELBATECII9)) eMONFY 
OR GT2.LOC#¥O THEN EMI TUUMP(GT1) 
FLSE 
REGIN PUTCO8L( 24236812) °GITCGT1)93 
If GTi1>0 THEN 
REGIN 
PUTC@CTAKECGTII&CNESTLEVEL@JUMPLEVELICI1¢43°5)) eaTi)# 
EMITN(C 102398 


END 
ELSE 
BEGIN 
IF GlieLEVEL # NESTLEVEL*JUMPLEVEL THEN FLAG(C257)3 
EMITCGTO,LASTGT)3 
ENDS 
ENDS 
JUMPLEVELeO 3 
EXIT: FND GOTOS ; 
COMMENT RELFASES COMPILES THE STREAM RELEASE STATEMENT, 


114 71S 


115 18 


16220000 
16229000 
16230000 
16231000 
16232000 
16233000 
16234000 
16235000 
16236000 
16237000 
16238000 
16239000 


61 LONG 


16240000 
16241000 
16242000 
16243000 
16244000 
16245000 
16246000 
16247000 
16248000 
16249000 


16250000 
16251000 


START OF SEGMENT 


16752000 
16253000 
16253100 
16284000 
16255000 
16256000 
16257000 
16258000 
16259000 
16260000 
16261000 
16262000 
16263000 
16264000 
16265000 
16266000 
16267000 
16268000 
16269000 
16270000 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
a 


AA HHH HHH HAHA AA HEH OH AT tt Ht 


01141004912 
01141005010 
014428005122 
011480082!0 
01144200R2ty 
01148008480 
01148005484 
0114?0085!2 
01148005533 
01142008684 
011480056814 


01148008783 
NEXT SEG 108 


01081000030 
01088000030 
01088000080 
01081000080 
010890000!0 
01083000080 
01081000010 
01083000080 
01081000080 
01081000030 


01081000010 
01081000020 


eeeeeeeee 145 


0115!000020 
011580002184 
0115%000512 
01154000713 
01153001081 
01158001313 
01158001480 
01153001712 
011528003783 
0415800,8:0 
04153000482 
0118002210 
014153002230 
04151002280 
041858000284 
0115002583 
01158002782 
04452002782 
01152002712 
014151002733 


29 LONGe NEXT SEG 108 


16271000 


T 


01083000010 


PRIT¢C7Q4) « 


STACK ¢F 42) 
STACK ¢Fe3) 
STACK ¢F 44) 
STACK (CF 45) 


ae - 4-8. 


COMMENT 


THE CODE GENERATED IS 8 


SED FILE 


RSA 0, 


AT EXECUTION TIME THIS CAUSES AN INVALID ADORESS wHIcH IS 
INTERFETED BY THE MCP TO MEAN RELEASE THE FILE POINTED TO 
BY THE DESTINATION ADDRESS, 
THE MONTTOR BIT IS SET IN INFO FOR THE LOCAL VARIABLE SO 
THAT ACUTAL PARAPART MAY BE INFORMED LATER THAT A FILE 

MUST BE PASSED FoR THIS FORMAL PARAMETERS 


INDEXS 
OR LOCALIDS 


THREE CASES PRESENT THEMSELVES» 


LETING X BE EITHER OF 


CASE ! 
CASE II 
CASE I! 


I 


SyeDIeCl OR TALLY es 
LOCLIO «+ X 

X w X oe 

X # EITHER LOC, LOCLID.»SC OR DC, 


COMPILE STATEMENTS BEGINING WITH SIDI oCIlsTALLY 


THEY ARE! 


THE VARIABLE "INDEX" 7S COMPUTEDsDEPENDING UPON WHICH 
CASE EXISTS+SUCH THAT ARRAY ELEMENT *MACROEINDEXJ*CONTAINS 
THE CODE TO BE FMITTED, 


FACH FLEMENT OF MACRO HAS 
RIGHT TO LEFT» UNUSED SYLLABLES MUST = 0, 


MAY REQUIRE AT MOST ONE REPEAT PART, 
IN THIS PROCEDURE, INDFXSsTHE VARIABLE "ADDR® CONTAINS THE 
PROPER REPEAT PART BY THE TIME THE LABEL "GENERATE® 1S 
ENCOUNTERED. THF SYLLABLES ARE FETCHED FROM MACROFTYPE) 
ONE AT A TIME AND IF THE REPEAT PART # 0 THEN*ADDR® 15S 
USED AS THE REPEAT PART»THUS BUILDING A SYLLABLE WITH 


THE PROPER 


ADDRESS AnD OPERATOR , 


173 SYLLABLES ORDERED FROM 
EACH MACRO 


NOTE! IF MACROCTYPE) = 0 THEN THIS SIGNIFIES A SYNTAX 


ERROR, 


PROCEQURE INDEXS3 
INDEXS 


BEGIN 


LABEL EXITsGENERATEsLoL13 


INTEGER TCLASSsINDEXsADDRey! 


TCLASS « ELCLASS 3 


IF STEP! # ASSIGNOP THEN BEGIN ERR(251)! GO TO EXIT ENDS 
IF. TCLASS = LOCLID THEN 


BEGIN 


XMARKCASSIGNREF)?# 

Ip SIV>STEPI OR ELCLASS>TALLYV THEN GO To L3 
INDEX * 32 + ELGLASS#"SIV3 

ADDR « ELBAT& 172), ADDRESS! 


%110° 


16272000 
16273000 
16274000 
16275000 
16276000 
16277000 
16278000 
16279000 
16280000 
16281000 
16282000 
16283000 
16284000 
16285000 
16286000 
16287000 
16288000 
16289000 
16290000 
16291000 
16292000 
16293000 
16294000 
16295000 
16296000 
16297000 
16298000 
16299000 
16300000 
16301000 
16302000 
16303000 
16304000 
16305000 
16306000 
16307000 
16308000 
16309000 
16310000 
16311000 


16312000 
16313000 


START OF SEGMENT 


16314000 


16315000 
16316000 
16317000 
16318000 
16318500 
16319000 
16320000 
16321000 


AHN HAHAH HHA HHH HH HH tH 


T 


01081000010 
01061000010 
01081000080 
01061000010 
01081000010 
01088000010 
01084000010 
04081000080 
01081000000 
01083000010 
01084000010 
01081000010 
01081000010 
01088000010 
01081000010 
01083000030 
01081000030 
010830000t0 
01081000010 
01081000010 
01081000080 
01081000010 
01081000010 
01083000010 
01081000010 
04081000010 
01081000080 
01085000010 
04081000010 
01061000030 
01083000010 
01081000080 
01081000010 
01081000010 
04081000080 
04081000010 
01087000010 
01083000010 
0108!000010 
01081000010 


0108t000010 
01081000080 


eee eeeeene 116 


T 


AaHHO WAH 


01162000010 


011680000:0 
011468000084 
01161000333 
01161000410 
01168000484 
01161000982 
041691003193 
014162004333 


i 


PRT¢7a5) @ 


STACK EF 42) 
STACK¢F 43) 
STACK EF 44) 
STACKOF 45) 
STACK(F 46) 


GO TO GENERATE 
END: 
IF TCLASS = STEPY THEN 
BEGIN 
IF STEPI # ADNOP OR STEPI# LITNO AND ELCLASS # LOCLID THEN 
60 TO L3 
INDEX «© TCLASS#STV 
+REALCELBAT(C 171) ADDRESS=SUB) x 4 
+ REALCELCLASS #®LOCLID) x 83 
END 
FLSE 
BEGIN 
INDEX « TCLASS =S1V 
+ ( IF ELCLASS = LOCLID THEN 16 ELSE 
IF ELCLASS = LOCV THEN 20 ELSE 
IF ELCLASS = SCV THEN 24 ELSE 
IF ELCLASSm= pCV THEN 28 ELSE 25)3 
IF ELCLASS & LOcV THEN 
IF STEP] # LOCLID THEN GO TO L3 
IF ELCLASS = LITNO AND TCLASS = TALLYV THEN 
BEGIN EMI TCCELBATEITJ¢ADDRESS»SECI3GO TO EXIT ENDS 
END 3} 
ADDR «+ FLBATCIJ+ADDRESS3 
GENERATES 
IF MACROLINDEX}® O THEN 
L: BEGIN ERR¢250)3G0 TO EXIT ENDS 
J « BS TCLASS «0 3 
List MOVECHARACTERS(2>MACROL INDEX] »JeJ=aeTCLASS»®6 )3 
1F TCLASS#0 THEN 
BEGIN 
EMITCCTF TCLASS264 THEN ADDR ELSE OsTCLASS)3 
60 TO Li 
ENDS 


EXTITSEND INDEXS 3 


COMMENT DSS COMPILES DESTINATION STREAM STATEMENTS, 

DS* LIT*STRING" 1S HANDLED AS A SPECIAL CASE BECAUE THE 
STRING MUST BE SCANED FROM RIGHT TO LEFT REPEATEDLY IF 
NECESSARY» AND EMITTED TO THE PROGRAM STREAM, IN 

ALL OTHER CASES, THE ELBAT WORD CONTAINS THE OPERATOR IN 


THE OPCODE FIELD } 


PROCEDURE DSS3 


nss 


aT KO 


ADOR 


BEGIN 
INTEGER ADDReJdeKoLoT3 


LABEL EXITsLi3 
DFFINE OPCONEs(2716)#3 
IF STEP! # ASSTGNOP THEN BEGIN ERR¢251)% GO TO EXIT ENDS 


116 1& 


16322000 
16323000 
16324000 
16325000 
16326000 
16327000 
16328000 
16329000 
16330000 
16331000 
16332000 
16333000 
16334000 
16335000 
16336000 
16337000 
16338000 
16339000 
16340000 
16341000 
16342000 
16343000 
16344000 
16345000 
16346000 
16347000 
16348000 
16349000 
16350000 
16351000 
16352000 
16353000 
16354000 
16355000 


62 LONG 


16356000 
16357000 
16358000 
16359000 
16360000 
16361000 
16362000 


16363000 
16364000 


START OF SEGMENT 


16365000 
16366000 
16367000 


SAMA HHH HHH AHH HS I 


T 
T 
T 


04163004583 
0116!0016:0 
014168004610 
01162004712 
01168004733 
01161004933 
0116:0021:3 
01168002210 
01168002480 
011610027182 
0141620097!%2 
01161002782 
0116002783 
04161002830 
01164003080 
01161003280 
014164003430 
01163003782 
011640038380 
01162004030 
01168004183 
0141462004484 
01168004484 
0116#004630 
041680049610 
01168004712 
011620049182 
01168005081 
01161005410 
011610054914 
01163005582 
01168005870 
01161005831 
01168005884 


NEXT SEG 108 


01081000010 
01083000010 
01064000030 
01081000080 
01081000010 
014084000030 
0108000030 


020830000380 
010841000010 


eeekeeeee 447 


014178000030 
01178000080 
01174000010 


IF STEPI = LOCLID THEN 


FLSE 


ELSE 
tr 0 


BEGIN 
EMITCCELBATC1)¢ADDRESS*CRE )3 
ADDRe 03 

IF STEP] = LITV THEN GO TO U1 

END 

IF ELCLASS® LITNO THEN 

BEGIN 

ADDR « ELBATCIJ.ADDRESSS STEPYT 3 
END 

ANDR « 1 3 

2 "4F1LLO" THEN EMITCCADDRe10) ELSE 


TF ELCLASS = TRNSFER THEN FMITCCADDRoFLBATCI).0PCODE) 


ELSE 


IF FLCLASS = LITV THEN 


BEGIN 
EMITCCADDRe TRP)3 
IF STEPIT#STRNGCON THEN 
BEGIN ERR(255)5G0 TO EXIT ENDS 
IF ADDR MOD 2 # O THEN 


BEGIN 
EMITCACCUMri),C18%6))3 Je 13 
END 3 

FOR K eJ#2 STEP 2 UNTIL ADDR DO 
BEGIN 


FOR L #607 DO 


®E 


MOVECHARACTERSC1,ACCUME13524C1F JeJet>COUNT THEN Jel 


STACK¢F47) = *TEMPORARY STORAGE® 


FLSF 
L18 
EXITSEND 


COMMENT SKIPS 
TF THE REPEAT INDEX IS A LOCALID THEN A CRF IS EMITTED, 
A BSS OR BSD 1S THEN EMITTED FOR SKIP SOURCE BITS (SB) 


FLSE J)eTebl D8 
EMITCT)3 
END END 


ERR(250)3 
Ass 3 


COMPILES THE SKIP BIT STATEMENT, 


OR SKIP DESTINATION BITS (0B) RESPECTIVELY 3 


PROCEDURE SKIPS 3 


PRT¢746) = SKIPS 


BFGIN 


REAL 
STACKeFs2) = ADOR 


ADDR} 


YF STEPY = LOCLID THEN 


ELSE 


BEGIN 

EMITCCELBATLIJ,.ADDRESS#CRF I$ ADDR+O3 STEPITS 
END 

TF ELCLASS = LITNO THEN 

BEGIN. 

ADDRe ELBATECYJ.ADDRESS$ STEPIT 


FND 


117 1S 


16368000 
16369000 
16370000 
16371000 
16372000 
16373000 
16374000 
16375000 
16376000 
16377000 
16378000 
16378500 
16379000 
1638680000 
16381000 


16382000 © 


16383000 
16384000 
16384500 
16385000 
16386000 
16387000 
16388000 
16389000 
16390000 
16391000 
16392000 


16393000 
16394000 
16395000 
16396000 
16397000 
16398000 


52 LONG 


16399000 
16400000 
16401000 
16402000 
16403000 


16404000 
16405000 


START OF SEGMENT 


16406000 
16407000 
16408000 
16409000 
16410000 
16441000 
16412000 
16413000 


AANA HHH Ho a st st 


4-4 4 4-4-44 a | 


ttt at as st 


SeKEKEKEDE 


014178000284 
041780003383 
041718000430 
04471000610 
01170000684 
01178000733 
01178000830 
01172000933 
01178001030 
021780013220 
011730042180 
011760033!%2 
0141790045:3 
031178004982 
01178002080 
014479002182 
011730020183 
01178002214 
0417800283383 
011730025183 
011780020684 
01173002732 
0117180029183 
041710020983 
011710033183 
04171003313 
011730038690 


0417410044383 
01178004484 
011718000533 
0141730046:0 
01173004620 
0141738004733 


NEXT SEG 108 


01088000010 
0108000010 
01088000080 
01081000010 
01082000010 


014088000010 
01081000080 


01181000080 
011820004!2 
011880001433 
014861000484 
01416800043; 
0114810005183 
0418610006:!0 
011880007!3 


118 


PRT¢747) = JUMPS 


FLSE ANOR « 15 
1F FLCLASS =SBV THEN EMITCCADDR»BSS) 


ELSE 
IF FLCLASS =xDBV THEN 


EMITCCADOR,BSD) 


FLSE ERR¢C250)3 


END 


SKIPS 3 


COMMENT JUMPS COMPILES JUMP OUT AND JUMP OUT TO STATEMENTS, 


BFGIN 


JUMP OUT TO STATEMENTS CAUSE JUMP LEVEL TO BE SET TO 

THe NUMBER OF LeVFLS SPECIFIED. THEN THIS NUMBER OF 

JNS ARE EMITTED AND GOTOS IS CALLED TO COMPILE THE 

JUMP INSTRUCTION, 

SIMPLE JUMP OUTS ARE HANDLED BY EMITTING ONE JNSe ENTERING 
A PSEUDO STLABIN IN INFO AND SETTING ELBATCI] SUCH THAT 
THE GOTOS PROCEDURE WILL PERFORM THE ACTION OF SETTING 

Up THe LINKS FOR LATER FIX UPS, THE NEST STATEMENT CAUSES 
THESE FIX UPSCIF EMITTING OF JUMP INSTRUCTIONS) BY CALLING 
GO TOS WHEN THE RIGHT PAREN IS ENCOUNTERED, } 


PROCEDURE JUMPS3 


JUMPLEVELe{ 3 


IF STEPI¥DECLARATORS THEN IF ACCUM{L1)#"30UT00" THEN 
FLAGC261)3 


1F STEPY = LITNO THEN JUMPLEVELe ELBATEI],ADDRESS 
ELSE BEGIN 


COMMENT 


ENDS 


IF ELCLASS# TOV AND ELCLASS# STLABID THEN 
BEGIN 
SIMPLE JUMP OUT STATEMENTS 
tf JOYNFO = O THEN 
BEGIN 
JOINFO « NEXTINFO 3 
PUTNBUMPCSTACKHEAD(OJ].LINK&CSTLABIDK241 ) 
C2:a0:by&2ro72:409B 43)3 
PUTNBUMP (ORC JOINFO@LASTINFO 
PUTNBUMP (0)3 
LASTINFO « JOINFOS 
ENDS 
ELBATLI«® IJTetje 
ENDS reread 3 


Jo 4840%8))3 


TAKECJOINFODRJOINF OC 3523591373 


FOR GTi* 1 STEP 1 UNTIL JUMPLEVEL 00 


EMIT¢ JNS)3 


GOTOS! 
FND JUMPS} 


COMMENT STRFEAMSTMT 


ENVOKES THE APPROPRIATE PROCEDURE TO HANDLE 
THE VARTOUS AND SUNDRy STREAM PROCEDURE STATEMENTS, 
THE STATEMENTS aRe BROKEN DOWN AS FOLLOWS! 

IDENTIFSED By PROCEDURE ENVOKED 


118 IS 


16414000 
16415000 
16446000 
16447000 
16438000 
16449000 


18 LONG 


16420000 
16421000 
16422000 
16423000 
16424000 
16425000 
16426000 
16427000 
16428000 
16429000 
16430000 
16431000 


16432000 
16433000 
16434000 
16434100 
16435000 
16436000 
16437000 
16438000 
16439000 
16440000 
16441000 
16442000 
16443000 
16444000 
16445000 
16446000 
16447000 
16448000 
16449000 
16450000 
16451000 
16452000 
16453000 
16454000 
16455000 


16456000 
16457000 
16458000 
16459000 


es 44-41 


AAFW HA RH HAHAH HAA ttt A Ht tt st 


444 


014181000830 
01188000983 
041830041482 
04188004433 
01184001430 
01181004583 


NEXT SEG 108 


01088000080 
0108t000010 
010810000%0 
0108:000010 
074081000010 
01088000080 
01081000080 
014081000010 
01088000030 
01084000030 
0108:000080 
01081000010 


0108:0000!80 
04088000080 
0106!0001!3 
01089000430 
010868000583 
01063000712 
04061004010 
01083003183 
01082004210 
04088001280 
01088004312 
0490810033383 
01088001420 
0108:004684 
01083001814 
04088002132 
040810021183 
01083002284 
010880022113 
01083002610 
01088002713 
01083002783 
0108:0029%2 
01083003290 
01089003214 


01083003284 
0130880032314 
01088003254 
0108:003234 


END GO TO FINI 
SEMICOLON GO TO FINI 
) GO TO FINI 
IF IFS 
GO GoTos 
RELEASE RELEASES 
BEGIN COMPOUNDTATL 
STeDpeCyeTALLY»LOCALID I[NDEXS 
os pSs 
SK1P SKIPS 
JUMP JUMPS 
LABELID LABELS 
LITERAL NO,eLOCALIDC NESTS 


UPON FEXITING»STREAMSTMT ASSURES THAT "1" POINTS TO 
THE SEMICOLON sFND OR ) IN SYNTACICALLY CORRECT PROGRAMSS 


LABEL 


Lable bee baa baa Le bOsb7e Loe Lal LOeEXITe FINI es STARTS 


SWITCH TYPE © FINToLoFINE pL oboe LS oLOobT ob? oL7oL7 ol Bel Oo LIi03 


STARTS 


GO TO TYPEL ELCLASS*ENDV41)3 


IF ELCLASS® RTIPAREN THEN GO TO FINI 3 
IF ELCLASS* STLABID THEN GO TO L?2 3 


IF ELCLASS <IDMAX AND ELCLASS#LOCLID THEN BEGIN 
DECLARELABELS GO TO L23~ ENDS 
IF ELCLASS = LITNO OR ELCLASS = LOCLIN AND TABLECTI#e1) 


IF ELCLASS = LOCLID 


La FRR¢ 250 )% GO TO FINY 
Lat NeESTS3 
Lat LABELS! 
1.3! 1FS3 


43 GOTOS! GO TO ExIT3 
L53! 
L6! Tete1 * COMPOUNDTAILS! 
L771 INDEXS3 GO TO EXIT} 
63 0S$3 GO TO EXIT3 
9! SKIPS} GO TO ExT? 
Lio: JUMPS} GO TO EXITS 
EXyT! STEPTTS 
FINE? END STREAMSTMT3 


MOVE C1 et sCODECO))3 


TIMEL ¢ TIMEC1)$ PROGRAMS 


GO TO ExIT3 
GO TO START} 
GO TO FYNI3 


w LFTPAREN THEN GO TO L13 


GO TO L73 
$ 


GO TO FYNTS 


ENDOFITALLS $1088 
IF CXREF OR DEFININGs C1213) AND XLUN > O THEN Z110- 
BEGIN DEFINE LSS# <#eGTRer#eNEQ= #¥oL FOzc#} zoFB 
PRT(750) = «SEGMENT DESCRIPTOR* 
DEFINE. XREFINFOLINDEX) # INFOCCCINDEX).CF DIV 2),73387), | £1100 
CCINDEX),CF DIV 2),LINKCI#, £1108 
CF m £33!15)#e %110° 
FF m (18%45)#s 24408 


NEWIDEINDEX] = CIF BOOLEANCINDEX) THEN XREFINFOCINDEXI.FF 


ELSE XREFINFOCINDEX],CF #3 


¥110° 


108 1S 


16460000 
16461000 
16462000 
16463000 
16464000 
16465000 
16466000 
16467000 
16468000 
16469000 
16470000 
16471000 
16472000 
16473000 
16474000 
16475000 
16476000 
16477000 
16478000 
16481000 
16482000 
16482100 
16482200 
16482300 
16482400 
164862500 
16483000 
16484000 
16485000 
16486000 
164867000 
16488000 
16489000 
16490000 
16491000 
16492000 
16493000 
16494000 
16495000 


74 LONG 


16495100 
16495200 
16495210 
16495300 
17002000 


START OF SEGMENT 


17002005 
17002006 
17002007 
17002008 
17002009 


17002010 


T 
T 
t 
T 
tT 
T 
1 
T 
T 
T 
T 
T 
tT 
T 
43 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
, 


o vo-i—-4 


01061003284 
01408:003284 
01088003234 
0408:003234 
01088003284 
01088003204 
010820032384 
0108:0032!1 
040840032!1 
01083003231 
014088003284 
01088003281 
01081003231 
01083003234 
01081003281 
040680032! 
01081003284 
040880043!2 
010820047182 
010820046:0 
01083004933 
010880049133 
01081005183 
0108:0052!4 
0108:0055:2 
0108#005712 
01088005831 
010818006030 
01083006210 
01084100632 
0108180064:0 
01088006512 
01081006532 
010810067:82 
01088006982 
04088007080 
01088007142 
014081007290 
01081007284 
NEXT SEG 


000330636190 
0003!0641!2 
00033064204 
000310643392 
00031064513 


ee RETHEEEEE ff 


AOornaonrn 


01498000010 
01194000010 
01198000080 
01198000080 
01198000080 
01191000080 


3 


9 


PRT¢751) = TIMINGS 


PRTC752) & SAVETIMES 


STACK(Fs2) = J 


ARRAY TIMINGS(0!20023)3 ¥110° 
PROCFOURE SAVETIMESCI)D3 ¥110" 
VALUE [8 INTEGER T3 *110" 
BEGIN %110= 
INTEGER 3 %110= 


PRY¢753) = UPDATETIMES 


STACK¢F42) = J 


FOR J tm $ STEP 1 UNTIL 3 DO 1108 
TIMINGSECI ou} t= TIMECJI3 %110 
ENn3 %110° 
PROCEDURE UPDATETIMESC] 23 %1108 
VALUE 13 INTEGER J3 %1108 
BEGIN 21108 
INTEGER uy? ¥110" 


FOR J $= 3 STEP 1 UNTIL 3 DO #110- 
TIMINGS( Tod) te TIMECU) @ TIMINGSE Ie JI3 ¥110" 
ENnS ¥1102 
CLOSE C CARD, RELEASE) 3 2106" 
CLOSECTAPEsRELEASE) 3 %1088 
LOCKCNEWTAPE)3 ¥1088 
WRITECLINEPPAGE))3 31088 
SAVETIMESCQ)3 & SAVE TIMES FOR START OF IDENTIFIER SORT, #1109 


FOR XREFPT¢eXREFPT STEP 9 UNTIL 29 DO XREFAY2(XREFPT]#£=#1000000003 


WRITE CNSK20e 30eXREFAY2C#I))3 ZOFB 
TOTALNO !t# XLUNS &% REMEMBER NUMBER OF IDENTIFIERS, %110= 
XREFPT#XLUN«03 SOFB 

FOR y $= O STFP 1 UNTIL 8191 DO %110* 
PUTCOsT 23 21108 
BEGIN ZD0FB 
ROOLFAN PROCEDURE INPUTY(¢A)3 Z0F8 


PRT¢754) = *#SEGMENT DESCRYPTOR* 


PRT¢755) = «INPUT 4 


PRT(756) = FOF 


ARRAY ALO} ZOFB 
BEGIN SOFB 
LABEL LeEOFS ZOFB 
RFADCDSK1e10,ArHJ) EOF )S XOFB 
GO TO U3 | ROFB 
EOF? ;NPUT1¢mTRUES Z0FB 

REWINDCDSKY)3 Z0FB 


17002012 c 01198000010 
17002015 c 01198000284 
17002020 ¢ 01198000231 
17002025 ¢ 041198000284 
17002030 c 01198000204 

START OF SEGMENT eee @ee | 120 
17002035 c 04208000030 
17002040 C€ 01208000182 
17002045 c 01201000533 

120 1S 68 LONGe NEXT SEG 119 
17002050 ¢ o1798000284 
17002055 c 01198000284 
17002060 c 01198000284 
17002065 C 01198000233 

START OF SEGMENT *eaeeOmeaR 4D] 
17002070 ¢ 01211000010 
170020758 c 012180001!t2 
17002080 ¢ 01212000732 

121 18 10 LONG» NEXT SEG 119 
17002490 c 01191800021 
17002500 c 011920004834 
17002510 c 01198000680 
17002520 c 01198000810 
17002525 ¢ 01198004210 
17003000 c 04198003204 
17004000 Cc 011499001733 
170048500 c 011930021383 
17004600 c 011980022t4 
17004700 ¢ 0141980023383 
17004710 c 01193002620 
17005000 c 01198002982 
17006000 ¢ 011980029%2 

START OF SEGMENT *«#e8eee Oh 8120 
17007000 c 012210000:0 
17008000 c 01228000010 
17009000 ¢ 012210000:0 

START OF SEGMENT *eueuneeene 123 
17010000 C 0423000010 
17041000 ¢ 01233000532 
17032000 € 043238000513 
17043000 ¢ 04231000614 


\ 


PRT(7S7) = OUTPUT! 


PRT¢760) = cOMPS4 


PRTC761) # HVS! 


Ls 
END? 


PROCENURE GUTPUTI(BeA)s 


VALUF B3 
ROOLFAN B3 
ARRAY AfOl3 
BEGIN 
IF B THEN 
BEGIN 


REWIND CDSK1)3 


SOFB 
ZDFB 


SONFB 


0FB 
ZDFB 
ZO0FB 
30F8 
ZOFB 
110° 
71108 


UPDATETIMES¢O)% & UPDATE TIMES FOR IDENTIFIER SORT, 


TIMINGS(CO20] 


END 
ELSE 
BEGIN 


IF BOOLEANCAL8]) THEN 
XREFINFOFACBI),FF 


ELSE 


XREFINFOrALB13,CF $= XLUN 
AC8),IDNOF 
WRITE CDSK4,10,Ac%))3 


END? 
ENDS 


BOOLEAN STREAM PROCENURE COMPS1(AsB)3 


BEGIN 
Sriaas 
NyssB3 
IF 63 Sc « DC THEN 
TALLY te 4 
ELSF 
BEGIN 
SI te A} 
D1 te BB 


1F 63 SC * nC THEN 


TALLY 
ENn3 


COMPS1%eTALLY3 


ENDS 


STREAM PROCEDURE HVS1CA)3 


BEGIN 
DT isa? 


t= XLUN 3 XLUN + 4 
te XLUN + 43 


ts XLUNS © NUMBER OF IDENTIFIERS SORTED. 


¥110# 
SDFB 
ZOFB 
¥110° 
%110- 
¥110= 
x110" 
%110- 
ZOFB 
£DFB 
ZOFB 


ZD0FB 


20F8 
S0F8 
ZOFB 
¥110= 
£1108 
¥110# 
*110¢ 
x110= 
¥110= 
$1108 
z110° 
¥110° 
ZOFB 
ZOFB 


S0F8 


SDFB 
SOFB 


123 1S 


170;,4000 
17015000 


Cc 
C 


14 LONGe 


17016000 


17017000 
17016000 
170149000 
17020000 
17021000 
17022000 
17022100 
17022200 
17022300 
17022400 
17023000 
170246000 
17025000 
17025100 
17025200 
17025300 
17025400 
17026000 
17027000 
17028000 


17029000 


17030000 
17031000 
17032000 
17033000 
17033400 
17033200 
17033300 
17033400 
17033500 
17033600 
17033700 
17033800 
17034000 
17035000 


17036000 


17037000 
17038000 


a 


MIO OAIGAOH AHA OAOAMQMANAOMADNDA 


OOMoaaranoaanonaoaoanan oO 


oOo 


NEXT SEG 


01231000884 
01231000982 


01228000030 


01228000030 
01221000010 
04228000010 
01221000010 
01228000010 
01223000030 
012280000384 
01221000284 
01221000312 
04221000532 
012280005%2 
0122300052 
01223000533 
0122%0006:0 
01229004284 
012280044:0 
01228002183 
01228002333 
012212002810 
012220028:0 


012210028:0 


01228002880 
01221002912 
0422800292 
012218000983 
01223003020 
043228003030 
04221003034 
0422:003081 
01228003084 
01223003332 
012210031333 
01221003133 
01228003133 
01221003210 


012280033382 


01221003382 
01221003332 


122 


01248001782 


® 
@ 
NSteB Ly "9" SDFB 17039000 c 04221003312 
Spimas ZDFB 17040000 ¢ 01228003481 
e DSt= 7 woSs ZDFB 17041000 ¢ 01221003414 
pS ts 8 LIT 3" 777777777"; & 1D,NO, AND SEG.NO, FIELDS %1108 17041100 c 04221003582 
e ENDS ¥OFB 17042000 ¢ 01221003610 
®@ 
BOOLEAN PROCEDURE COMP1(AeB)3 £OFB 17042100 ¢ 01221003631 
PRTC762) = COMP} 
@ ARRAY AeBrOls ¥DFB 17042200 ¢ 01221003634 
IF REALCCOMP1%sCOMPS1¢AeB)) = 2 THEN & IDS FQUAL 110% 17042300 c 012210036113 
e COMP] te Af8],1DNOF < BEB), 1DNOF3 ¥110 17042350 C 01221004010 
@ 
PROCEDURE HV1CA)3 X0FB 17042400 c 04221004512 
PRT¢(763) HV 4 
rd] ARRAY AlO]} ZOFB 17042500 C 04228004512 
HVS1CA)? ZDFB 17042600 C 0122:004512 
@ 
e XLUNE 03 ZOFB 17043000 c 01221004782 
REWINDCDSK1)3 Z0FB 17044000 ¢ 01228004811 
SORTCOUTPUTL> INPUT1»OoHV1eCOMP1e10,1F TOTALNO «< 1000 THEN £110# 17045000 c 01221005084 
e PRTC764) = SORT TEMPORARY 
PRTC(765) = MERGE 
7000 ELSE 10000); £110" 17045100 ¢ 04228007081 
8 PRT(766) SORT 
END} ZDFB 17046000 c 01221007284 
| PRT(767) “SEGMENT DESCRIPTOR® 
 ] 122 18 79 LONGe NEXT SEG 119 
BEGIN SDFB 17047000 c 01198003182 
ARRAY IDTYPELOSCTDMAX44)xda4 73 ¥112° 17047100 C 01198003132 
e PRT€770) *SEGMENT DESCRYIPTOR* 
START OF SEGMENT *#ueeeeeue 124 
PRTC771) = WDTYPE 
@ STREAM PROCEDURE SETUPHEADING(SeDeSEGeSEQNOsFWDTOGeLBLTOG, ¥110« 17047200 ¢ 012410005%2 
PRT(772) = SETUPHEADING 
FWDSEQNO,TYPE,OWNTOGsPARAMTOG, £1102 17047300 C 04244000582 
] VALTOG)3 ¥110 17047350 C 04248000582 
VALUE SEG*SEQNOsFNDTOGs+LBLTOGs FNDSEQNOs OWNTOG*PARAMTOGs 1106 17047400 C 04242000582 
VALTOGS £110 17047050 C 01248000512 
] BEGIN ¥110 17087500 C 012461000582 
Sl tm S} 110" 17047700 C 04249000610 
nl t= DI £110" 17047800 C 01244000610 
e 63 Cte Sc = * * THEN JUMP OUT FLSE OS tm» CHR)3 %140° 17047900 ¢ 01248000684 
nS ts O LIT se FM} £1108 17048000 c 01241000982 
OWNTOG CNS te 4 LIT "OwN ")3 110° 17048100 C 01244001010 
e S} i= TYPES K110° 17049300 ¢ 01241003210 
32 CIF SC = "." THEN JUMP OUT ELSE DS te CHR)3 %110 17049400 ¢ 01241001210 
PARAMTOG (DS t= 6 LIT * = "3 %110 17049410 C 04248004512 
] DS t= 4 LIT “NAME”; ¥140° 17049420 ¢ 
@ 


@ q 
@ e 
VALTOG CD? t= pr = 43 NS tse 5 LIT "VALUE")3 #110« 17049430 C 941248004783 
OS te 10 LIT “* PARAMETER")} ¥110° 17049440 ¢ 01241002010 
@ nS t2# 18 LIT " * = DFCLARED AT "3 2110" 17049500 ¢ 0124:0022:0 @ 
S! t# LOc SEQNO3 21108 17050400 ¢ 01248002431 
nS t= 8 DEC} £1108 17050500 c 01243002484 
e FWOTOG (pS t= 17 LIT ™ == FORWARD AT "3 ¥1109 17050600 c 01248002582 e 
S1 te LOC FWOSFQNOS 110" 17050700 ¢ 032418002834 
pS t= 8 NEC) #1108 17050800 c 01248002684 
e LBLT0G (pS te 16 LIT" == oOccURS AT "3 ¥110° 17050900 ¢ 01248002912 e 
S} ts LOC FWOSEQNOS 2110° 17051000 c 01248003234 
DS te 8 DEC) £110 17081100 ¢ 01248003284 
e ENn OF SETUPHEADINGS ¥110° 17051200 ¢ 01243003392 e 
@ e 
¥110 17051300 ¢ 04248003383 
e STREAM PROCEDURE ADDASFEQNOCSEQNOsNeSTARS®D)3 "110" 17051400 ¢ 01241003383 @ 
PRT(773) = ANDASFANO 
VALUE SEQNOsNsSTARSS ¥1108 17051500 ¢ 041243003313 
© BEGIN ¥110" 17051600 C 01241003383 cs] 
nr t= Ds ¥110° 17051700 ¢ 03241003410 
nt t= OF + 83 ¥1102 17051800 ¢ 04249003410 
e N (Dt te NT + 4093 41108 17051900 C 04248003484 6 
STARSCDI t= DI © 1% DS te LIT a")3 %110° 17052000 ¢ 012410036:0 
SI t= LOC SEQNO3 %110@ 17082100 ¢C 01241003810 
@ nS te B DECI %110" 17052200 C 01241003880 t ] 
nS te LIT " "3 £1108 17082300 ¢ 01243003834 
STARS (D} $2 OF = 13 DS se LIT ways "1108 17052400 c 01243003982 
rd] ENnS %110" 17052500 ¢ 01241000182 e 
Yd] ®@ 
STREAM PROCEDURE BLANKET(D)$ K110= 17052600 c 01248004112 
@ PRTC774) = RLANKFT e 
BEGIN *110- 17052700 ¢ 0424:004112 
pl t= D3 ¥110= 17052800 C 01241004210 
e nS te B LIT & 3 ¥1108 17052900 ¢ 01241004210 eS 
S! t= D} 110° 17053000 ¢ 041201004333 
nS t= 16 WOS3 81108 17053100 ¢ 01241004313 
@ ENn OF BLANKETS %1108 17053200 Cc 01241004410 ® 
&  ] 
PROCEDURE PRINTXREFSTATISTICSS 110° 17053300 ¢ 0124800484:0 
@ PRYC7T75) = PRINTXREFSTATISTICS . 
BEGIN 110° 17053400 ¢ 04248004410 
SWrTCH FORMAT STATS t= ¥110° 17083500 c 04241004430 
e START OF SEGMENT *4a8eeeeee 8925 @ 
START OF SEGMENT aeuucxumbee 426 
PRTC776) = STATS 
@ (///s "CROSS REFERENCE STATISTICS", /, ¥1108 17053600 c 01268000010 e 
; Henne Bataan ane maaawauwmaat, 43a 2110" 17053700 Cc 01261000030 
C™PHASE ONE = SORT» [60" IDENTIFIERS)» ¥110= 17053800 c 0126:000080 
e C™PHASE TWO = SORT%s17." REFERENCES"), ¥1108 17053900 C 01261000010 ® 
 ] & 


STACK(Fs2) = ! 
STACK(F43) = J 
STACKCF44) = K 


C"PHASF THREE = PRINT CROSS REFERENCE C5170" LINES)" ), K110= 


CXSe14,"8%,271,2" ELAPSED TIME CMINESEC)), %110° 
CXSeT4e "3%, 2715" PROCESSOR TIME"), ¥110# 
CXSeT4o*8o2715" F/O TYME", / 93 ¥1108 
INTEGER [ode Kd %1108 


WRITECLINE® STATS(0I93 %110« 
FOR t t= O STEP 1 UNTIL 2 00 Z110° 
BEGIN %110- 
WRITECLINESSTATS( LaLJoTIMINGSL 1.0) )3 %110° 
PRYC7T77) m= #LIST, LABEL, OR SEGMENT DESCRIPTOR*™ 
FOR J t= 4 STEP 1 UNTIL 3 DO %110* 


PRT(1000) = *LIST» LABE 


PRT¢1004) 
PRT¢1002) 
PRT¢C1003) 
PRT¢1004) 


PRT¢1005) 


BEGIN %110« 
K te CTIMINGSC Tey) + 30) DIV 60% & ROUND TO NEAREST SECON 
WRITECLINE®STATS(JU+3]0K DIV 60e¢KIeK MOD 60) DIV 105%1108 

Lo OR SEGMENT DESCRIPTOR« 


K MOD 10)3 %1102 

END; £1102 

FND3 £110 

ENn PRINTXREFSTATISTICS3 £110" 


FIRSTTIME 
PAY 
LASTADDRESS 


tNPuUT2 


EOF 


DEFINE REFCOUNT = TIMINGSE120]#$ % NUMBER OF REFERENCES SORTED, 
BOOLEAN FIRSTTIMES &% TRUE ON FIRST CALL OF OUTPUT PROCEDURE, 


ARRAY PAYrO%47]3 ZOFB 
REAL LASTADDRESSS %1109 
BOOLEAN PROCEDURE INPUT2C¢A)3 ZDFB 
ARRAY AC0}3 Z0FB 
BEGIN ZDFB 
LABEL LsFOF3 ZDFB 
DEFINE | = LASTADDRESS#} 51109 
IF XREFPTSeXREFPT44230 THEN ZDFB 
BEGIN ZOFB 
READ COSK2230eXREFAY2(*]) (EOF )3 ¥OFB 
XREFPT3203 Z0FB8 
END} : ZOFB 

TF C 1 beXREFAY2PXREFPTI).0C21$27) GTR 99999999 THEN GO TO FOF! 
ArO) tm I] & NEWLDOr].REFIDNOF) REFIONOFS £110" 
REFCOUNT tx REFCOUNT + 43 %110« 
60 To L3 £OFB 
EOFt INPUTotwTRUES ZDFB 
BLANKETCPAY)3 ZOFB 
XREFAY{(8) %@ XREFPT ta LASTADORESS ta O3 ¥1108 
FILL IOTYPet#)] WITH %110" 
"UNKNOWN, ", £0 %1108 


17054000 ¢ 
17054100 ¢ 
17054200 ¢ 
17054300 ¢ 

87 LONG» 
17054400 C 


126 1S 


17054500 
17054600 
17054700 
17054800 


Oran 


17054900 
17055000 
170550410 
17055020 


17055025 
17055030 
17055100 
17055200 

44 LONG 


2s OOOoON QAOoon 


125 1S 


17069300 
17069400 


aon 


17069500 C 
17069600 


a 


17070000 


17071000 
17072000 
17073000 
START OF SEGMENT 
17073100 
17074000 
17075000 
17076000 


Oaao-8toaan 


17077000. 
17078000 
17079000 
17080000 
17080400 
17081000 
17082000 
17083000 
17084000 
17084010 
17084020 
START OF SEGMENT 


FOO OHoIarIoaano 


o 


ik ee eK 


01263000030 
01268000080 
01264000080 
01268000080 


NEXT SEG 125 


0125%0000%0 


01253000030 
01253000410 
012510005182 
01258000582 


014258004532 
012513004610 
01258004610 
01258001881 


04253003084 
03251003684 
04258003614 
042510044382 


NEXT SEG 124 


01241004410 
01243004420 


01241004410 
01248004830 
01241004810 
01248004810 


01248004810 
01248004830 


WHSKERHE 8197 


01278000080 
01278000030 
01278000433 
01278000230 


01278000783 
01278000680 
01271000880 
01278004081 
01271002630 
04271003183 
01278003382 
01275003383 
01273003532 
01271003733 
012710036:0 


126 


PRT¢ 1006) 


PR1T¢1007) 


PRT¢1010). 


PRT¢1044) 
PRTC1019) 


"STREAM LABEL» 

"STREAM VARIABLE, 

"DEFINE, 

“LIST, 

"FORMAT, 

"SWITCH FORMAT, 

“REAL SUBROUTINE, 
"SUBROUTINE, 

"SWITCH LABEL 

"PROCEDURE, 

"INTRINSIC, 

"STREAM PROCEDURE, 
"BOOLEAN STREAM PROCEDURE, 
"REAL STREAM PROCFOUREs 
"INTEGER STREAM PROCEDURE, 
"INTEGER STREAM PROCEDURE, 
"BOOLEAN PROCEDURE, 

"REAL PROCEDURE, 

"INTEGER PROCEDURE, 


WOON DUE Whe 


Ssz2z3s3 FSP RPRBAA*AAABAAB*RZAA*A*K‘IZIZS 


—=_s 3s 2. ees sevpevseest BeReeTeeresk#k, Fs DST Ts BP DPRDRT YS BH BW VW SS 


“INTEGER PROCEDURE, 20 

“BOOLEAN, 21 

MREAL, * 22 

"INTEGER, . 23 

"INTEGER, : 24 
we 


"BOOLEAN ARRAY, 
"REAL ARRAY, 
"INTEGER ARRAY, 


3 3 


O€ JE dQ BA BA 9 DA BA DE BE BE DR DE BR JE BE AA DA DL DE BR FE DA DA JG A DA SE JR BE DU JE IE 
—_ 
~ 


"INTEGER ARRAY, ” 28 

Ld " 29 

"NAME. . 30 

"INTEGER NAMEe " 31 

"LABEL, " 32 

"FIELD, . 33 CCLASS # 125) 
Lt 
FNO3 


PROCEDURE OUTPUT2(BeA)3 


OUTPUT2 
VALUE B}3 
ROOLFAN B3 
ARRAY AlQ]3 
BEGIN DEFINE PRINTER&LINE#3 
LABEL fFOF2, SKrP3 
OWN BOOLEAN B2s FWDTOG, LBLTOGs WALITINGFORFWOREF3 
B2 
FWDTOG 
LBLTOG 
WAITINGFORFWOREF 


DEFINE MATCHC AB) & REALCBOOLEANCA) EQV BOOLEANCB)) # 
REALCNOT FALSE) #3 
REAL I3 


%110% 
%110° 
¥1102 
%110- 
¥110- 
$1102 
%110° 
%110= 
%110= 
¥110# 
21102 
%110" 
%¥1108 
Z110- 
%110- 
Z110° 
81108 
£1109 
21108 
Z1108 
¥110° 
2110" 
%110° 
%110¢ 
7110" 
%110° 
#1102 
21108 
%110" 
¥110" 
"1108 
Z112° 
Ziil2= 


B0FB 
3NFB 


Z0FB 


20FB 
SDF B 
Z0FB 
XOFB 


x110« 
¥110" 


£110" 
¥110« 
110° 


128 IS 


127 1S 


17084030 
17084040 
17084050 
17084060 
17084070 
17084080 
17084090 
17084100 
17084110 
17084120 
17084130 
17084140 
17084150 
17084160 
17084170 
17084180 
17064182 
17084164 
17084186 
17084188 
17084190 
17084200 
17084210 
17084220 
17084230 
17084240 
17084250 
17084260 
17084270 
17084280 
17084290 
17064300 
17084400 


DOOOSOAIYAI HOSOI OGOOIOIYOOANOAAAYAOMAOMAAAAMAAANAAANAONA0aAN0 


136 LONGe 


17085000 
17086000 


¢ 
C 


45 LONGs 


17087000 


17088000 
17089000 
17090000 
17091000 


START OF SEGMENT 


17091100 
17091110 


17091115 
17091116 
17091120 


Cc 
C 
C 
Cc 
C 
* 
C 
C 
Cc 


Cc 
Cc 


0127:003922 
01273003982 
042710039182 
012710039%2 
01278003982 
014271003912 
01427280039t2 
012710039%2 
01278003982 
01278003912 
01271003912 
01271003932 
014271003982 
01278003932 
014273003932 
01278003922 
012780039382 
03274003932 
04273003982 
01271003982 
01278003982 
0127%0039%2 
01273003982 
014278003982 
042780039t2 
01273003982 
01278003932 
01273003982 
01278003982 
0127:003982 
01271003982 
014271003982 
01271003982 


NEXT SEG 127 


01273003912 
01271004010 


NEXT SEG 124 


01243004810 


01248004810 
01248004880 
01241004810 
012630046:0 


aneegeaee = 6§29 


01291000020 
012980000180 


01291000020 
04298000010 
04298000080 


STACK(Fe2) = I 


PRTC1013) = FWOSFQNO 


PRT¢C1014) = EOF? 


DEFINE LINFCOUNT s TrMINGSf2,0)#3 x% NUMBER OF LINES PRINTED, 


OWN REAL FWOSEQNO3 %110= 

IF FIRSTTIMF THEN & PRINT HEADINGS AND SAVE TIMINGS, %110« 

BEGIN £1108 

FIRSTTIME t= FALSE3 ¥110- 

TIME1 t= TIMEC1)3 ¥110# 

DATIMES %110° 

UPOATETIMESC1)3 $1108 

SAVETIMES(C2)3 &% SAVE TIMES FOR START OF XREF PRINT, ¥110° 

END? %110° 

IF NOT B2 THEN £1108 

IF B THEN % END OF SORT = LIST OUT REST OF SEQ, NO, £110" 

IF XREFPT # 0 THEN ® WE GOT SOME TO LIST OUT *110- 

BEGIN K110= 

WRITECLINECOBLJ e15ePAY(#])5 £1108 

LINECOUNT t= LINECOUNT + 13 %110 

END %110¢ 

FLSE & NOTHING TO LIST OUT %110° 

FLSE ¥ NOT END OF SORT Z110° 
IF NOT MATCHCLASTADDORESS+ALO)) AND ACLOJ,REFIDNOF #¢ O AND 

ATOJ.REFINNOF > XREFAYICBI.IDNOF THEN ¥110= 

IF ALO).TYPEREF = FORWARDREF THEN & Z110- 

WAITINGFORFWOREF t2 TRUE ¥1108 

FLSE ¥110- 

TF ACOJ,TYPFREF = LBLREF THEN & #110 

BEGIN %110° 

LBLTOG t= TRUES #1108 

FWOSFQNO 32 ArO0), SEQNOF3 ¥110« 

END %1108 

ELSE %1109 

IF ACOJ,TYPEREF = DECLREF THEN 21109 

IF WAITINGFORFWOREF THEN ®% THIS MUST BE IT ¥110- 

BEGIN %110= 

WAITINGFORFWOREF t= FALSES ¥110= 

FWDTOG te TRUES ¥110- 

FWOSEQNO t= ALOJ,SEQNOFS £110- 

END Z110# 

ELSE ® +TS A NORMAL DECLARATION = NOT FORWARDS110# 

BEGIN £1109 

IF ACO],REFYONOF > XREFAY1(58],1DNOF THEN 44402 

DO %110# 

READCOSK1e10sXREFAYI(*}) LEOF2) K110« 

UNTIL 2110» 


ACOJ,REFIDNOF § XREFAYIC8)],I1DNOFS £1109 
IF ACO), REFIDNOF < XREFAYI£8),TDNOF THENS110@ 


GO TO SKIP3 %4108 
IF XREFPT > O THEN & THERE IS STUFF TO PRINT 
BEGIN %110= 
Ip SINGLTOG THEN g1108 
WRITECLINE ee 15¢PAYC*)) #110 
ELSE £1109 
WRITECLINELDOBLI] 215 ePAYE*))3 1109 
LyNECOUNT ## LINECOUNT + 13 %110- 


ENn ¥110= 


17091140 
17091150 


17091155 
17091160 
17091162 
17091165 
17091170 
17091175 
17091180 
17091200 
17091210 
17091300 
17091400 
17091500 
17091510 
17091520 
17091530 
17091600 
17091700 
17091600 
17091900 
17092000 
17092100 
17092200 
17092300 
17092400 
17092500 
17092600 
17092700 
17092800 
17092900 
17093000 
17093100 
17093200 
17093300 
17093400 
17093500 
17093600 
17093700 
17093680 
17093900 
17093950 


17094000 
17094080 
17094100 
17094150 
17094200 
17094240 
17094250 
17094300 
17094350 
17094400 
17094410 
17094420 


HIOOOOIAOAAAGAOYOAANAANMNAAYMNOHOYINAAAONOMAQAIADN A COHMN AO A000 oO 


AOMOMOAOMOABDAAO 


01298000080 
0142910000t0 


01298000010 
04298000084 
042928000182 
01294000230 
01298000382 
014292000383 
01298000481 
01292000582 
0129%0005%2 
01291000610 
01291000684 
04298000830 
04298000834 
0142910014382 
0129900146814 
01298003683 
01299003684 
012980017382 
012918002112 
01298002333 
01298002583 
01291000684 
0142910027!2 
01298000982 
01293000983 
01298003084 
01291003211 
01291003284 
01291003281 
012920034384 
01294003533 
01291003680 


012918003712. 


012930038380 
01294003983 
0142918003983 
01291003933 
0142990040380 
01298004284 
01294004332 


04298004732 
01291004810 
014298005182 
04291005332 
01299005313 
04293005484 
04291005532 
01291005533 
04291005912 
042930060314 
01298006533 
012980069182 


FLSF F110" 
IF NOT SINGLTOG THEN %1109 
WRITE CLINEDS £1108 
XREFPT te 03 %110« 
BLANKETCPAY(#I)3 #1108 


SETUPHEANINGCXREFAYIC*)] +PAYE eI] »XREFAYI(8), 


SEGNOF ,AL0],.SEQNOF oF WOTOGe LBL TOG. %110- 
FWOSEQNOSIDTYPECCIF CI] ts %140¢ 
XREFAY1¢9}).CLASS) > IDMAX THEN TF [ & gt12= 
FIELDID THEN 33 ELSE O ELSE 1) x 4), Z1i12° 


REALCT 2 BOOID AND XREFAY1(9),(982] = 1)» 
REALCCI 2 BOOID OR {| = LOCLID) AND BOOLEAN 
CXREFAY1093,0984]))5 XREFAY109),£1081))3 


FWOTOG ts LBLTOG t# FALSE £110" 
WRITECLING e 1 SePAYE#))3 £1102 
LINECOUNT t= LINECOUNT + 13 1109 
BLANKETCPAY( 4) )3 %110= 


END #1108 


ELSE ® +T MUST BE A NORMAL REFERENCE #110 
IF ALOJ],SEQNOF # LASTADDRESS,SFQNOF THEN $110" 
BEGIN %110= 
ADDASEQNOCALO] ,SEQNOF sXREFPT2 ALO] ,C581)s 

PAYC*))3 ¥110 

Ie (XREFPT 4% XREFPT + 1) @ 11 THEN SFULL 
BEGIN w110- 
WRITECLINE o 15ePAYE*))3 ¥110= 
LINECOUNT 8% LINECOUNT + 13 %110- 
XREFPT tz O09 £1108 
BLANKETCPAY(*))3 £1102 
END £110- 
END #110 
ELSE &% REFERENCE TO SAME SEQ, NO, SKIP 1T #1102 


FLSE & THIS 18 A REFERENCE TO THE SAME SEQ, NO. = SKIP 
ELSE X¥ HiT END OF IDENTIFIER FILE © JUST SKIP OVER REFERENCES 


FOF2: B82 ts TRUES % SO SORT CAN GO TO NORMAL EOJ %110# 
1F NOT B THEN SKyP# LASTANDRESS ta arOy3 ¥110« 
FND OF OUTPUT23 41108 
PROCEDURE HV2CA)3 ZOFB 
PRT¢1015) = HV? 
ARRAY ArOy3 ¥OFB 


ALO] tx 3" 777777777777777"3 Z BIGGEST FLOATING PT, NO. %1108 


BOOLEAN PROCEDURE COMP2CAsB)3 ZDFB 
PRTC1016) a COMP? 
ARRAY AeRCO]$ ; SOFB 
COMP2 te IF ACOJ],REFIDNOF < BLOJ,REFIDNOF THEN & OIF IDS 
TRUF £110" 
ELSE %1108 


IF ACOJeRFFIONOF # BLO],REFIDNOF THEN £110= 


129 18 


17094450 
17094500 
17094550 
17094600 
17094650 
17094700 
17094600 
17094900 
17095000 
17095100 
17095300 
17095310 
17095320 
17095400 
17095500 
17095510 
17095580 
17095600 
17095700 
17095750 
17095600 
17095900 
17096000 
17096100 
17096200 
17096300 
17096350 
17096400 
17096480 
17096500 
17096550 
17096575 
17096600 
17096700 
17096800 
17096850 
17096900 


135 LONG 


17112000 


17113000 
17114000 


17115000 


17146000 
17147000 
17117100 
17147200 
17417300 


C 
C 
C 
C 
Cc 
C 
C 
C 
C 
¢ 
¢C 
C 
C 
¢ 
C 
C 
Cc 
C 
C 
¢ 
C 
C 
Cc 
¢ 
¢ 
Cc 
C 
Cc 
C 
C 
Cc 
C 
c 
C 
c 
C 
Cc 
s 


an 


aaoaon 


01298006982 
01298006982 
01293007084 
01291007582 
01298007610 
01298007782 
01291007982 
01293008123 
01298008230 
01298008512 
0129100868) 
01298009132 
01298009234 
01298009582 
01298009712 
01292010183 
04291010512 
01298010630 
0129t0410630 
01296010610 
01291010982 
01298010983 
04291019230 
0129:011382 
01291044634 
01298041582 
04291044983 
01298012312 
01299042480 
04298042582 
01291012512 
012930125182 
01293012532 
0129:012583 
01298012610 
01294012810 
01293013080 


NEXT SEG 124 


0128:004810 


01242004680 
012461004810 


01241005210 


01241005210 
0124:0052:0 
01248005410 
01424:008512 


01248005583 


PRTC1017) = *SFGMENT 
PRTC1020) = *SEGMENT 


PRTC1021) = *SEQMENT 


PRT¢546) = FXP INTRY 


PRT¢545) © UN INTRINSIC, SEGMENT NUMBER = 


PRT¢353) = QUTPUTCW) 
PRT¢5) =» BLOCK CONTR 


PRT¢766) = SORT INTRINS1tCe SEGMENT NUMBER o@ 


PRT¢547) = x TO THE 

PRT¢4¢2) = 40 TO SOL 
PRT¢14) # ALGOL WRT 
PRT¢15) # ALGOL READ 
PRT¢16) = ALGOL SELE 
PRT¢765) = MERGE INT 
PRT¢430) & NYNAMIC D 
PRT(240) @ FILE ATTR 


NUMBER OF ERRORS DET 
PRT S'tZF = 5303 TOTA 


ESTIMATED CORE STORA 
ESTIMATED AUXYLTARY 


IF ACO},C1#4) LSS BLO),0£1%4] THEN K110# 
TRUE %110e 
ELSE ¥110" 
IF ACOJ,€1%4) = RL0),£184] THEN Z110° 
IF alO],SEQNOF < Bf0),SEQNOF THEN 21108 
TRUE %110" 

ELSeF £110 


IF ALO),SEQNOF = BCO},SEQNOF THENS110= 


BOOLEANCACO],(521]) £1102 

ELSE %1108 

FALSE %110« 

ELSE ¥110° 

FALSE #110" 

ELSF £1102 

FALSE3 ¥110" 

SAVETIMES(1)3 % SAVE TYMES FOR START OF REFERENCES SORT #41102 


FIRSTTrME t= TRUES & LET OUTPUT PROCEDURE KNOW ABOUT FYRST CAL 


XREFPT 32293 REWINDCDSK2)3 Z0FB 
SORTCOUTPUT2s INPUT 2200 HV2eCOMP2s4s6000)3 %110° 
UPDATETIMES¢2)3 &® UPDATE TIMES FOR PRINTING CROSS REFERENCES110« 
PRINTXREFSTATISTICSS £1108 
END} ZOFB 
DESCRIPTOR» 
END} Z0FB8 
DESCRIPTOR» 
END MAIN BLOCKS £108" 
DESCRIPTOR« 
END: ZOFB 
NStce SEGMENT NUMBER = 1430, 
1316 


INTRINSTCe SEGMENT NUMBER = 132, 
OL ¢NTRINSICs SEGMENT NUMBER = 133, 
134, 
IT EINTRINSICy» SEGMENT NUMBFR = 435, 
VER eNTRINSI Ce SEGMENT NUMBER = 136, 
E INTRINSI Cs. SFGMENT NUMBER = 137, 
INTRINSIC» SEGMENT NUMBER = 438, 
CT YNTRINSTCs SEGMENT NUMBER & 139, 
RINSICs SEGMENT NUMBER = 140, 
TALS INTRINSIC, SEGMENT NUMBER « 
BUTS INTRINSIC, SEGMENT NUMBER « 


141, 
142, 


ECTFD xs O, COMPILATION TIME m» 362 SECONDS, 
L SFGMENT SIZE = 
GE REQUIRED = 26836 WORDS, 


MEMORY REQUTRED « 0 WORDS, 


124 1$ 


119 I$ 


2 18 


1 1S 
143 18 


8408 wORDSS DrSK SIZE = 540 SEGSS NOew PGM. SEGS # 143 


177417400 C 03243008713 
17417500 c 041241006081 
17117600 c 012480061482 
17417700 c 04248006133 
17117702 c¢ 01248006430 
17117704 C 01248006614 
17417706 ¢ 012480067183 
17117708 c 01241006810 
17117710 c 01248007010 
17117712 c 012418007133 
17417714 ¢ 01248007280 
17117720 c 012480072814 
17117730 ¢ 042430073182 
17117800 c 01243007382 
17117900 ¢ 01241007383 
“17117910 ¢ 01248007630 
17117920 c¢ 04248007783 
171148000 c 01248007634 
17449000 C 04241008,3%2 
17419100 C 014248010284 
17119200 C 01248010332 
17120000 C 012480140383 
108 LONGs NEXT SEG 11 
17121000 c 011980032:0 
36 LONGs NEXT SEG 
17121500 c 00033064712 
651 LONGe NEXT SEG 
17122000 ¢c 000210036:0 
42 LONGs NEXT SEG 


2 LONGe NEXT SEG 
69 LONGe NEXT SEG 


9 


3 


2 
| 


7848, 


NUMBER OF CARD*IMAGES PROCFSSED = 


> P 


> 


BURROUGHS B=5700 ALGOL COMPILER MARK xXV{,0,122 MONDAY» 08/22/77. 4342 PM, 


FSPOL /DISK 


SOURCE FILE: SYMBOL /ESPOL 


STREAM VARTABLE °= NAMF PARAMETER "== DECLARED IN SEGMENT 3 aT 02022000 


020293000 
STREAM VARTABLF = NAMF PARAMETER == DECLARED 1N SEGMENT 3 AT 02054000 
02055000 
STREAM VARTABLE eo= NAME PARAMETER = DECLARED IN SEGMENT 3 AT 02062500 
02063500 


REAL ARRAY == QECLARED IN SEGMENT 15 AT 02964100 
02265100 02265450 02265250 02265300 02265600 07265650 02265700 07265750 07265850 02265900 
02966000 

INTEGER == VALUE PARAMETER == DECLARED IN SEGMENT 3 AT 03047100 
03047000 

REAL ** VALUE PARAMETER == DECLAREN IN SFGMENT 3 AT 03049000 

TNTEGER #* VALUE PARAMETER =" DECLARED IN SEGMENT 3 AT 03050000 

tNTFGER == VALUE PARAMETER *=* DECLARED IN SEGMENT 3 AT 04311000 

043141050 04311060 *04315000* 

REAL =" VALUE PARAMETER == DECLARED IN SFGMENT 3 AT 04500000 

04529000 04534000 04542000 04548000 04550000 04551000 04556000 

STREAM VARTABLFE *= VALUE PARAMETER == DECLARED IN SEGMENT 38 AT 05065000 
05066000 

REAL *= DECLARED 1N SEGMENT 39 AT 05130000 

*05131000*% 05132000 

STREAM VARIABLE == VALUE PARAMETER ==" DECLARED IN SEGMENT 44 AT 05334100 

REAL ARRAY =" NMECLARED IN SEGMENT 46 AT 05413000 

05426000 05427000 05431000 05432000 

STREAM VARIABLE = NAMF PARAMETER "= DECLARED IN SEGMENT 46 AT 05415000 
05447000 *05419000*% 05421000 05422000 

NEFINE == DECLARFN IN SEGMENT 69 aT 08015000 

08181000 08188000 

REAL °* VALUE PARAMETER == DECLARED IN SEGMENT 69 aT 08020000 

08091000 

REAL = NAME PARAMETER == DECLARED IN SEGMENT 69 AT 08027000 
*08035000%#08037000" 

REAL = DECLARED {N SEGMENT 93 AT 143359000 

*13364000e 43365000 13366000 

STREAM VARIABLE == VALUE PARAMETER == DECLARED IN SEGMENT 96 AT 13673100 

REAL ARRAY 77 NAME PARAMETER ©" DECLARED IN SEGMFNT 122 AT 17007000 
17006000 47010000 

REAL ARRAY == NAME PARAMETER =" DECLARED IN SEGMENT 122 AT 17019000 
17046000 17025000 47025400 17025300 «17025400*« 17026000 

STREAM VARTABLE == NAME PARAMETER == DECLARED IN SEGMENT 122 AT 17029000 
179313000 47033400 

STREAM VARIABLE == NAME PARAMETER = DECLARED IN SEGMENT 122 AT 17036000 
17038000 147040000 

REAL ARRAY *" NAMF PARAMETER ©* DECLARED IN SEGMENT 122 AT 17042200 
17942100 17042300 17042350 

REAL ARRAY =" NAME PARAMETER =" DECLARED IN SEGMENT 122 AT 17042500 


02265950 


17042400 17042600 

A 7" REAL ARRAY =" NAMF PARAMETFR =* DECLARED IN SEGMENT 124 AT 17 
17070000 «17080000 

A ** REAL ARRAY =" NAMF PARAMETFR =" OFeLARED IN SEGMENT 124 AT 17 
17987000 §=147094415 17994800 147094900 17092000 47092300 1709 
17094100 47094800 147095750 17095900 17096850 

A oe? REAL ARRAY =" NAMF PARAMETFR =" DECLARED IN SEGMENT 124 AT 17 
17112000 *17114000« 

A ©" REAL ARRAY *" NAME PARAMETFR ®** DECLARED IN SEGMENT 124 AT 17 
17115000 17117000 17117300 17117400 17117700 17117702 171% 

ABS =©*° Real STREAM PRocrnURE =" ODFCLARFD tN SEGMENT 38 aT 05065000 
05066000 05092000 

ACC =* STREAM VARTABLF =" NAME PARAMETFR "= DrFCLARED IN SEGMENT 67 
07654500 

ACCUM =" ALPHA ARRAY == DECLARED IN SEGMENT 3 AT 01304000 
02128500 02251000 02255000 02259000 #02397000* 02366100 #0237 
02592000 02602600 «02647000*% 02650000 02652000 02686000 0768 
02754000 02822000 02846000 02865000 02881000 0295850080504 
07668500 07670000 07671000 10264700 10264900 10269000 1027 


071000 


090000 
2600 17092900 47093800 47093850 17094050 


113000 

116000 

7708 «17217710 
AT 07653500 


1000*#09499000* 02502000 02584000 «02590000 
6500 02696000 02698000 +*02700000« 02705000 
3000* 05044000 05325460 *07086200*" 07086300 
4000 12117000 «121180008%121190000%121200008 


12122000 13281000 13282000 4#133070004%13308000««13309000«% 13310000 *133720004413755000% 14259000 14259080 


14269280 14440000 14441000 16000700 16211000 16387000 1639 

ACCUM ==" STREAM VARrARLE 27 NaMr PARAMETER =" orcbaRED IN SEGMENT 
02043000 

ACCUM = STREAM VARTARLE == NAME PARAMETER == DECLARED IN SEGMENT 
02122500 

ACCUM = STREAM VARITARLF == NAME PARAMETER ©" DECLARED IN SEGMENT 
05098000 

ACCUM e# STREAM VARIABLE = NAME PARAMETER =" DECLARED IN SEGMENT 
07038500 

ACCUM e»* STREAM VARIABLE == NAME PARAMETER ©= OFCLARED IN SEGMENT 
19239000 

ACLASS "== REAL == ODFCLARED IN SEGMENT 57 aT 07038000 


2000 16434000 
3 AT 02041000 


9 AT 02089500 

37 AT 08016000 
57 AT 07038400 
87 AT 10236000 


*07041000% 07047000 07057000 07069000 «07081000* 07089000 
ACTUALPARAPART =" PROCEDURE =" DECLARED IN SEGMENT 3 aT 07035000 
07410000 07438000 
ADD =" DEFINE "= DFCLAREN IN SeaMENT 3 AT 01633000 
05226000 07525000 07646615 08126000 082;4000 
ADD ©" RFaL == DECLARFEN IN SEGMENT 91 AT 13221000 


ADDC 


"13248000" 13250000 
ADDASEQ@NO = STREAM PROCEDURE s= 


17095900 


es DFFINE 


ADDITIONAL =" 0 


ADDOP 


ADDR 
ADOR 


07601000 
ee NEF INE 
16326000 


= Rea Lad 
w= RAL * 


13252000 


13252500 *13259000" 
DECLARED IN SEGMENT 124 AT 17051400 


"" DFCLARED rN SEGMENT 3 AT 13212000 
DECLARED IN SEGMENT 65 aT 07595000 


EFINE «= 
07603000 


07640000 


"= MECLARED IN SEGMENT 108 aT 16005000 


- DECLARFD IN SEGMENT 110 AT 
= DECLARED IN SEGMENT 114 AT 


16068000 
16195000 


*16196000%*16201000%*162040008 16208000 
ADDR e INTEGER #== PWECLARED IN SEGMENT 116 aT 16314000 
#16321000%%16344000% 16352000 
ADDR *= INTEGER ©" MECLARED IN SEGMENT 14117 AT 163649000 : 
*163710004#16376000%%16378000* 16378500 16379000 46383000 41638 
ADDR se REAL = DECLARED IN SEGMENT 118 AT 16405000 
*1640800088164120008#1641,4000% 16415000 16417000 
ADDRES 7" OWN REAL [© PECLARED IN SEGMENT 69 AT 08010000 
*08055000% 08067000 08068000 08075000 08179000 08212000 


5000 146389000 


ADDRESS "" OFFINE == OFCLARFD IN SEGMENT 3 
02850000 02896000 02900000 02923000 
05344615 05344620 05344660 05344700 
06324000 06325000 06326000 07074000 
08029000 08044000 08085000 10277000 
13259000 13394000 14085000 14115000 
14461200 14483900 45086400 45086800 
15267000 45276010 45276060 45276060 
16124000 146200000 16204000 16321000 
16435000 
ADDRESS °°" INTFGFR fe VALUE PARAMETER == 
04048000 04019000 
ADDRESS =" INTEGER == VALUE PARAMETER == 
04093000 04024000 
ADDRESS = INTFGFR we VALUE PARAMETER eo@ 
04028000 04029000 04037000 04033000 
ADDRESS == INTEGER em VALUE PARAMETER e& 
05201000 
ADDRESS 9 REAL == DECLARED IN SEGMENT 58 AT 07393000 
«07397000% 07397400 07397500 07413000 
ADDRSF "= REAL ©** DFCLARED IN SEGMENT 3 AT 01604000 
07397000 
. 14313000 14320000 *16000500* 
ADDOVALUF ** INTEGER &* 
02193000 02234800 #02592000%409028920 
ADFS °= AFFINE @*" DFCLARFD IN SEGMENT 3 AT 
ADJUST *" PROCFDURE #= DFCLARED IN SEGMENT 
04087000 04144000 04172000 06208500 
. 07727040 08190000 13605000 13611000 
ADJUST ** PROCEDURE © DFCLAREN IN SEGMENT 
16137000 16158000 
ADOP = nrFINE ©" DrclLaRED IN SEGMENT 3 AT 
05344550 05344670 060133000 07666000 
ADR " INTEGER **™ OFCLARED IN SEGMENT 66 aT 07646370 
#07646470% 07646605 
ADR #* STREAM VARTABLE VaALUF PARAMETER 
13642000 
ADRES =" -NTEGFR ** DFCLARED IN SEGMENT 40 aT 05215000 
*052947000%*05279000% 05276000 05227000 
AEXP == PROCENURE = OFCLARED 1N SEGMENT 3 AT 06002000 
06007000 06057000 06105000 06174000 
07086000 07487000 07493000 07646455 
12054000 13759000 15097400 15186600 
AGAIN ©" LABEL "* DFCLARED IN SEGMENT 19 aT 
02377000 02390n00 02393000 02395000 
02460000 02470000 02472000 02474000 
02516000 02520000 02522000 02564000 
AGAIN == LABEL =" ArcLARED IN SEGMENT 47 aT 
05454000 05457000 
AGAIN =* LABEL == OFCLARED IN SEGMENT 68 aT 
07797100 07741000 
AGIN = STREAM LABEL «== 
_ 020014880 
AJUMP #= ROOLFAN = DECLARED IN SEGMENT 3 AT 01596000 


AJUMPO 


13603000 «13614000 13626000 «13629000# 14054000 «1405500044 14606000% 


w= BOOLFAN. "= DECLARED IN SEGMENT 98 AT 18034000 


AT 01152 


0450800 
05344710 
07090000 
12015000 
14129000 
15092600 
15290000 
16329000 


000 
Q 


051314000 
06016000 
07439000 
12024000 
14269520 
15095600 
15304200 
16342000 


DECLARED IN SEGMENT 
NECLARFD IN SEGMENT 
DECLARED IN SEGMENT 
DECLARED IN SEGMENT 


05217000 
06072000 
07745000 
12036000 
14269540 
15100600 
15304000 
16344000 


07677000 413205000 *4#13344000%«13346000e«13347000% 13348000 


*14054000« 144606000 
AKKUM #* REAL "= OFFLARED IN SFRMENT 3 AT 01693000 


01299010 
3 AT 04083000 


07080000 
13630000 


01278000 


08029000 


06202000 
08101000 
15276070 
02360000 
02397000 
02480000 
02567000 
05439000 


077246000 


DECLARED IN SEGMENT 3 aT 01000860 


07459000 


108 aT 16023100 


08031000 


07579000 


12013000 


05233000 
06108000 
07768100 
12047000 
14349000 
15191600 
15305500 
16370000 


3 ay 94017000 
3 AT 94022000 
3 AT 04030000 
3 AT 05199000 


13373000 


07585100 


12022000 


NECLAREN IN SEGMENT 95 AT 13633000 


we FORWARD AT 03001000 


06305000 06410000 06416000 
08123000 06131000 08135000 
15277000 15303700 

v= OCCURS AT 02372000 
02404000 02418000 02419120 
02493000 02496000 02501000 
02601000 


me OCCURS AT 05445000 


“= OCCURS aT 07727000 


DECLARED IN SEGMENT 3 AT 02001860 == 


OCCURS AT 02001886 


05280000 
06185000 
07994000 
12108000 
14399000 
15185300 
15306200 
16376000 


07586000 


16326000 


06422000 
08142000 


02419200 
02506000 


0528671000 
06320100 
07995000 
13205000 
14430000 
15185500 
45306400 
16408000 


*13767000«% 13768000 


07600200 


07045000 
12046000 


02421100 
02506000 


05344570 
06320200 
08021000 
13248000 
14437000 
15186800 
16121000 
16412000 


13770000 


07607100 


07062000 
12051000 


02431000 
025143000 


ALFAARRAY!IN =" DFFINF #= DECLARFD IN SEGMENT 3 aT 01204000 
ALFAID ©" OEFINE |= DECLAREN IN SEGMENT 3 AT 01200000 
14439000 
ALFAPROCID == DEFINE = DECLARED IN SEGMENT 3 AT 014196000 
ALFASTRPROCTD == DEFINE =" DECLARED IN SEGMENT 3 AT 011492000 
ALFAV = NEFINE |= DECLARED IN SEGMENT 3 aT 01284000 
ALL ==" REAL == VALUE PARAMETER == DECLARED IN SEGMENT 69 AT 08052000 
08054000 08055000 08056000 08057000 
ALLTHU ©" LABEL =" DPECLARED IN SEGMENT 31 AT 04168000 == OCCURS AT 04186000 
04176000 
ALONG *" LABEL == OFCLARED IN SEGMENT 20 aT 02325000 == OCCURS AT 02358000 
02336000 02340000 02354000 
ALPHANEc ** LABEL °* oFcLARED 1N SEGMENT 98 AT 14013000 == OccURS AT 14139000 
140718000 
ALPHASIZE =" DEFINE = DECLARED IN SEGMENT 3 AT 01707000 
ALPHAWORDS = STREAM PROCEDURE er OFCLARED IN SEGMENT 15 AT 02264700 
02264900 02265600 02765850 
AMPERSAND © DEFINE ==" DECLARED IN SEGMENT 3 AT 01266500 
06034000 06180000 07084000 15086200 15091800 45184850 45302100 45305400 
ANDOP == HEFINE ©" PWECLARED IN SEGMENT 3 aT 01276000 
02964500 02971000 02983500 
ANOTHFR °7 LAaBFL ** OFCLAREN IN SEGMENT 56 aT 07007000 "= OCCURS AT 07009000 
07042000 07015000 07024000 
ANOTHFR pe paar "= DECLAREN IN SEGMENT 57 aT 07037000 = OCCURS AT 07041000 
95000 
ARGH == LABEL = DECLARED IN SEGMENT 24 AT 02638000 == OCCURS AT 02649000 
02685000 02738000 02753000 07899000 
ARYTHCOMP == PROCEDURE == DECLARED IN SEGMENT 3 AT 06041000 # FORWARD AT 03004000 
06036000 06052000 06055000 
ARITHSEC © PROCEDURE == DECLARED IN SEGMENT 3 AT 06011000 == FORWARD AT 03007000 
06006000 06023000 
ARRAE =" PROCEDURE == DECLARED IN SEGMENT 3 AT 13376000 
13410000 44156000 
ARRAYNDEC == LABEL @* MFCLARFO IN SEGMENT 98 AT 14015000 = OCCURS AT 14156000 
14020000 
ARRAYMONFILE @=" DEFINE == DECLARED IN SEGMENT 3 AT 91526000 
ARRAYV == DEFINE =°= DECLARED IN SEGMENT 3 AT 01794000 
14161000 
ASKIP © STREAM VARIABLE == VALUE PARAMETER == DECLARED IN SEGMENT 87 AT 40236000 
10237000 10239000 
ASSIGNOP *« PEFINE = DECLARED IN SEGMENT 3 AT 01273000 
06199000 07397010 07401000 07662000 08178000 08229000 12028000 13758000 45085600 15088600 
15276050 15276160 15300500 16316000 16367000 
ASSIGNREF =" pEFINE == peEcbLaRED IN SEGMENT 3 AT 01007500 
07660600 08178400 15090600 15091200 15184800 145184700 15301000 46318500 


ASTOG =" QOOLFAN *" DFeLAREM IN SEGMENT 3 ar 01300100 


05348000 07600410 «07600430 
ASTRISK == DFFING = prcLaRen tN SEGMENT 3 aT 01212200 
07600400 143400000 43404000 15094400 15184750 45253000 45301900 
ATSIGN =" LABEL ©" NWECLARED IN SEGMENT 24 AT 02637000 = OCCURS aT 02683000 
02641000 
ATYPE =" DEFINE =" DECLARED IN SEGMENT 3 aT 01452000 
06005000 06057000 
AUXMEMERR = LABEL == DECLARED IN SEGMENT 98 AT 14016000 == OCCURS AT 14136100 
. 14021000 
AUXMEMV = DEFINE = DFCLAREN 1N SEGMENT 3 aT 04298500 
AWAY = LABEL =" DECLARED IN SFGMENT 10 AT 02194000 = OCCURS AT 02196250 


15183800 


AXNUM 


ow wo w ow wa wo Do 


@ w w @ oo tes] 


B 

BAC 
BAC 
BAC 


BACKF 1X 


BAF 


K 


K 


K 


BANA 


02494250 
== REAL *= 
*07086700« 


02194950 


02195250 


= DECLARED IN SEGMENT 3 AT 07034000 


09384900 


093864100 


REAL “> VALUE PARAMETER "e 


STREAM VARI 
02055000 
STREAM VAR? 
02063500 
BOOLFAN «= 
#023403000% 
ROOLFAN #« 
ROOLFAN =9 
029705008 
BOOLEAN == 


BOOLFAN == 
#02983500% 
BOOLFAN == 
RBOOLFAN = 
03047000 
INTEGER = 


04248000 
INTEGER &= 
04341070 


04396100 
BOOLFAN «== 
04503000 
OWN REAL °& 
08044000 
ROOLFAN “= 


#080 35000%408037000» 


ABLE = 
ABLE = 


NAME PAR 
NaMe PaR 


DECLARED IN SEGMENT 3 AT 01737000 


AMETER «m= 
AMETER om 


DECLARED IN SEGMENT 3 AT 02054000 
DECLARED IN SEGMENT 3 AT 02062500 


DECLARED IN SEGMFNT 20 AT 02323000 
02353000 *£02356000" 02357000 
ee DECLARED IN SEGMENT 3 aT 02955500 


02352000 


NAMF PARAMETER 


DECLARED IN SEGMENT 26 AT 02970000 


02971000 


02971500 


DECLARED IN SEGMENT 27 AT 02973500 
#02976000%#02978000%402978500* 02979000 
NAMF PARAMETER 


02984000 


029864500 


VALUE PARAMETER 
VALUE PARAMETER 


VALUE PARAMETER 
REAL == VALUE PARAMETER em» 


VALUE PARAMETER 
04311080 #043;47000*% 
REAL, == VALUE PARAMETER) oo 


04528000 


04542000 


VALUE PARAMETER 


04507000 


w= DECLARED IN SEGMENT 3 AT 02980000 


== DecbaRero 
e= DECLARFO 


“= DecbaRed 
DECLARED IN 


w= DECLARED 


DECLARED JN 


04544000 


04548000 


IN SEGMENT 3 AT 03081000 
IN SEGMENT 3 AT 03047100 


IN SEGMENT 3 AT 03050000 
SFGMENT 3 AT 04247000 


IN SEGMENT 3 AT 04311000 


SEGMENT 3 AT 04500000 


04551000 04556000 


es DECLARED IN SEGMENT 36 AT 04505000 


* DECLARED IN SEGMENT 69 AT 08010000 


08047000 


08089000 


NaMe PARAMETER 


REAL ** VALUE PARAMETER == 


09393300 
ROOLFAN «=F 
17016000 
STREAM VARI 
17932000 
REAL ARRAY 
17042100 
ROOLFAN = 
17087000 
REAL ARRAY 
17115000 


"" INTEGER 


#07493000% 


ow Real =e 


08082000 


w= LABEL * 


10276500 
me INTEG 


09393310 


09393330 


VALUE PARAMETER 


17017000 
ABLE an 
170335800 


me NAME PARAMETER .=* DECLARED IN SEGMENT 122 AT 17042200 


17042300 


17021000 
NAMF PAR 


17042350 


VALUE PARAMETER 


17088000 


m= NAME PARAMETER =" NECLARED IN SEGMENT 124 AT 17116000 


17117000 


m= WECLAREN IN SEGMENT 61 aT 07491000 


07495000 


17091115 
17117300 


VALUE PARAMETER 


08083000 


08089000 


08112000 


06116000 «08122000%+08169000% 08183000 


“= DECLARED IN SEGMENT 69 AT 08027000 


DFCLAREnN tN SrGMENT 81 AT 09393240 
09393350 «09393370 09393400 #09393410% 09393430 «09393440 
w= DECLARED IN SEGMENT 122 AT 17018000 


AMEFTER =e 


e= DECLARED IN SEGMENT 124 AT 17089000 


17994300 


17117400 


DECLARED IN SEGMENT 122 AT 17029000 


17096850 


17117700 


17117702 17117708 


m= DECLARED IN SEGMENT 70 AT 08084000 


- DFeLARED IN SFGMENT 86 ArT 10259000 


10278000 
FR oe 


10279000 


DECLARED IN SEGMENT 70 AT 08091000 


«08097000 %#08099000%%08106000% 08127000 «08146000%«08147000% 06457000 


INTEGER P 
#07459000% 


we PROCENUR 


05225000 


ROCEDURE 


Fo o== DFCLARED 


06423000 


OCCURS AT 10263300 


08199000 *08209000« 08213000 


08171000 


"= DECLARED IN SeGMENT 3 AT 07458000 "= FORWARD AT 03046000 


07523000 


1N SEGMENT 3 AT 06419000 


ww FORWARD AT 03048000 


BASE e STREAM VARIABLE =" VALUE PARAMETER =" DECLARED JN SEGMENT 80 AT 09370000 
09371000 09374000 
BASENUM = INTEGER #= NPECLARED IN SEGMENT 3 AT 04000860 
02192500 *02581000%+*090208990» 
BATMAN *= REAL = DFCLARED IN SEGMENT 3 AT 010074600 
#02961500%%0299665004402967000% 02968000 02978000 
BBC =" DEFINE == DECLARED IN SEGMENT 3 AT 09634000 
07487000 082219000 
BBW "= DEFINE °* DECLARED IN SEGMENT 3 AT 01635000 
06207000 07444000 07495000 07646635 08047000 08078000 08166000 08168000 
BEGINCTR "=" INTEGER == DFCLARED IN SEGMENT 3 AT 01499000 
#07008000%#07021000«% 07023000 #07024000%814035000%4145100008%14520000% 
BEGINPRINT °* PROCEDURE 7" MECLARED IN SEGMENT 3 aT 02196510 
02196610 02910600 
BEGINSTACK ** REAL ARRAY °* MECLARED IN SFGMENT 3 aT 01007600 
02196580 *02910300* 
BEGINV °" DEFINE ©" percLaREn IN SEGMENT 3 AT 01234000 
029130200 05108000 07646456 09252000 13771000 44393000 14479000 
BEND “= DEFINE "=" OFCLARED IN SEGMENT 3 AT 01001462 
02910600 
BENDBtT *" DEFINE @*" DECLARFD IN SEGMENT 3 aT 01001171 
02419200 02910600 
BETAL »= LABEL "" DECLARED IN SEGMENT 94 aT 13379000 "= OCCURS AT 13390000 
13409000 | 
BEXP == PFFINE =" DFCLARED tN SEGMENT 3 AT 03006000 
06410000 07487000 07493000 08135000 08442000 
BFC © DEFINE = DECLARED IN SEGMENT 3 AT 04636000 
06301900 07496000 07572000 07573000 07575000 07579000 07583000 07585;00 
BFW e* DEFINE = DECLARED IN SEGMENT 3 AT 01637000 
04218000 06307000 O7088000 07512000 075416400 07518000 07526000 07529000 
07646555 07646605 07646620 07646665 08125000 08127000 086146000 08448000 
13274000 13606000 14041000 14451000 
BIT =" INTEGER =" VabUF PARAMETER °°" QDECLARED IN SEGMENT 3 AT 02307000 
02311000 
BIT =" DEFINE = DECLARED IN SEGMENT 108 aT 16015000 
16216000 
BITEDUST == STREAM PROCEDURE = DECLARED +N SEGMENT 38 aT 05067000 
05087000 05088000 05089000 05090000 
BITOP #= nEFINE =" NECLARED IN SEGMENT 3 aT 01269000 
06087000 3 
BLANKET = STREAM PROCENURE == DECLARED IN SEGMENT 3 AT 01737350 
01737500 02265400 02265250 02265600 02265700 09265850 02265950 05325450 
BLANKET = STREAM PROCEDURE = DECLARED IN SEGMENT 124 aT 17052600 
17053200 17083000 17094650 17095550 17096450 
BLKAD =" yNTEGFR s= DECLARED IN SEGMENT 98 aT 14026000 
#14037000%%14044000% 44600000 
BLOCK e= PROCEDURE == NECLARED IN SEGMENT 3 AT 44001000 =" FORWARD AT 03067000 
07750000 07768700 144482000 14643000 17121500 
BLOCKCTR = DEFINE = DECLARED «N SEGMENT 3 AT 01430000 
BNS e* DEFINE = DECLARED IN SEGMENT 208 AT 46041000 
16122000 16124000 
BNSFIX = REAL =" DECLARED IN. SEGMENT 112 AT 16718000 
*16121000% 16141000 
BOOARRAYID °° DEFINE "=" DECLARED IN SEGMENT 3 AT 01202000 
BOOID e* MEFINE. =" OFCLARED IN SEGMENT 3 aT 01198000 
02967000 02977500 07047000 08057000 08058000 42042000 144440000 17095300 


BOOLCOMP = PROCEDURE 2 DECLARED IN SEGMENT 3 aT 02980000 ==" FORWARD AT 02955500 


08151000 


07572000 07586000 
08215000 08228000 


09034500 


17095310 


07646465 
13263000 


02971000 02983000 02985000 


BOOLEANnEC =" LaBpeL == AFcbaREn IN SEGMENT 98 at 14013000 == OceURS aT 14140000 


14048000 


BOOLEXP = BOOLEAN PROCFNURE == DECLARED 1N SEGMENT 3 AT 02969000 =" FORWARD AT 02065600 


02343000 *02971500%" 02972000 02976000 
BOOLPRIM = BOOLEAN PROCFOURE == DECLARED IN SEGMENT 
02970500 *02979000* 02979500 02982500 


3 AT 02972500 == FORWARD AT 02955000 


BOOPROC1D =" DFFINE = DECLARED 1N SEGMENT 3 AT 01194000 


14294000 


BOOSTRPROCIN = OEFINF =" DECLARED IN SEGMENT 3 AT 01190000 


14285000 
BOOV = NMFFINE == DFCLARED tN SEGMENT 3 AT 01262000 


BOTTOM = LABEL =" DECLARED IN SEGMENT 47 AT 05439000 


05446000 05454000 


e= OCCURS AT 05455000 


BRANCH == INTEGER = VALUE RARAMETER == DECLARED IN SEGMENT 3 AT 03037000 


03036000 


BRANCH we INTEGER *= VALUE PARAMETER == DECLARED IN SEGMENT 3 AT 04116000 


04144000 04115000 «*«04120400*% 04122000 


BRANCHTYPE = REAL ce VALUE PARAMETER ©" DECLARED IN SEGMENT 3 aT 03025000 


030293000 03024000 


BRANCHTYPE = REAL == VALUE PARAMETER == DECLARED IN SEGMENT 3 AT 07537000 


07535000 07536000 07540000 07544000 


BRET "© OwN REAL *™ DFCLARED IN SEGMENT 69 aT 08011000 
*0B8033000% 06034000 06035000 08046000 «08094000%4081240008+#08 1 80000%*08223000%%08232000" 


BRNCH =" LABEL "=" DFCLARED IN SEGMENT 70 aT 08092000 
08148000. 

BSD =" DEFINE = DECLARED IN SEGMENT $08 aT 16023000 
16417000 


em OCCURS AT 08152000 


BSPOINT "= INTEGER == NECLARED IN SEGMENT 3 AT 01007600 


02196580 *02910300"#02940700* 
BSS =" DEFINE = DECLARED IN SEGMENT 108 aT 16020000 
16415000 
BTYPE = WEFINE =" PnECLAREND IN SFGMENT 3 aT 01452000 
BUG =" FORMAT ©= NDECLARED IN SEGMENT 4 AT 04802000 
04279000 04282500 


BUTLOLINE = BOOLEAN == DECLARED IN SEGMENT 2 AT 00504700 


*02596000« 

BUMPL == WEFINE == DECLARED IN SEGMENT 3 aT 01877000 
04246000 06207000 06797000 06300000 07444000 
07585000 08047000 08078000 08106000 08146000 

BUP " INTEGER =" DFCLARED IN SEGMENT 3 AT 01695000 

#13333000% 14073000 «14079000%414083000m 14084000 


07459000 07487000 07493000 07495000 07540000 07577000 
08168000 08190000 08221000 143628000 14039000 


*14088000% 14116000 #141180004414364000%814369000« 


B2 °= OWN ROOLFAN "=" nrclaRrp IN SEGMENT 129 AT 17091110 


17091210 *17096800» 


B2n =" ALPHA PROCFDURF == DFCLARED IN SEGMENT 3 AT 04247000 = FORWARD AT 01717000 


04149000 £04248000% 04279000 04284500 04282000 
c 7" REAL ©" DechaRep «N SEGMENT 3 aT 01562000 


#02682000% 02686000 «02701000 02705000 #0 2758000 «409789000 «0280 1000 #80280 30004402831000% 02827000 «02842000» 


02849000 02850000 402923000« 06087000 06090000 
#07667000% 07669000 07727050 08035000 16232500 


04282500 04285000 04285500 05376100 09434000 09447080 


06093000 06099100 06099200 06168000 07600300 07604120 


C ee oNTERER ©" VALUE PARAMETER =" DrFCLARFD IN SEGMENT 3 AT 03047100 


03047000 


Cc wm REAL ** VALUE PARAMETER ==" DECLARED IN SFGMENT 3 aT 04203000 


04205000 04209000 04211000 *04216000*% 04248000 


C wm STREAM VARIABLE = VALUE PARAMETER = DECLARED IN SEGMENT 44 AT 05334100 


053340500 


C = STREAM VARIABLE == VALUE PARAMETER ©* DECLARED IN SEGMENT 49 AT 06064000 


06066000 


Cc «= a we VALUE PARAMETER #= DECLARED IN SEGMENT 69 AT 080290000 
8094000 
C = STREAM VARIABLE == VALUE PARAMETER =" DECLARED IN SEGMENT 96 AT 43673400 
13673350 
CALL == OFFINE =" DECLARED IN SEGMENT 3 AT 01721000 
05402100 05405000 05407000 05409000 05428000 05430000 07397400 07397500 14483400 
CALL =" PROCEDURE ** DFCLARED IN SEGMENT 69 AT 08072000 
08079000 18098000 08108000 086130000 082417000 
CALLA @™ REAL ARRAY =" NWECLAREN IN SEGMENT 3 AT 01720000 
05402100 05405000 05407000 05409000 05428000 05430000 07397400 *07397500%#14483000+% 
CALLINFO "= RFAL =" DFCLARED IN SEGMENT 3 AT 01722000 
07397300 *14481400*% 14483300 14483400 
CALLSTATEMENT "= LABEL =" DFCLAREO IN SEGMENT 98 AT 14017000 ©" OCCURS AT 14505000 
14132000 14137300 
CALLSWITCH °* PROCEDURE "=" NDECLARED IN SEGMENT 3 aT 05315000 
05316000 13263000 
CALLX ©" REAL =" DFCLARED IN SEGMENT 3 AT 01722000 
07397300 *073975004«14481100% 14483500 
CARD *" FLE =" ODFCLARFD IN SEGMENT 3 aT 01557000 
02213750 02215500 02246250 09281500 17002490 
CARD © STREAM VARIABLE &" VALUF PARAMFTER ®**" DECLARED IN SEGMENT 3 AT 02188000 


02188500 
CARDCOUNT = INTEGER == DECLARED IN SEGMENT 2 AT 00504150 
#02934500" . 
een One Staear e= DECLARED §N SEGMENT 42 AT 02210000 * OCCURS AT 02216000 
2210750 


CARDNUMBER e#* INTEGER = DECLARED IN SEGMENT 2 AT 00504400 
%02244260%402234800% 02882200 02910300 13340580 45085100 
CARO ONE *- jhe "= DECLARED IN SEGMENT 12 AT 902210000 == OCCURS AT 02215250 
2210750 
de ag ee basen =" DECLARED IN SEGMENT 19 AT 02363000 *= OCCURS AT 02429000 
3 
CASEANDRESS *= REAL ARRAY "* DFCLARED 1N SEGMENT 66 AT 07646335 
#07646510% 07646635 
CASESTATEMFNT == PROCFNURE *" nECLARED JN SEGMENT 3 AT 07646325 
07759200 
CASEV w= HEFINE =" DECLARED IN SEGMENT 3 aT 01229000 
CBUFF we REAL ARRAY «= DECLARED IN SEGMENT 3 AT 01561056 
02973750 02214000 02245500 02215750 022146250 022436500 07025010 070279000 
CD == STREAM VARIABLE ==" NAME PARAMETER ** DECLARED IN SEGMENT 67. AT 07653500. 
07654500 07655000 
CDC == DEFINE == DECLARED IN SFGMENT 3 AT 01638000 
. 15301400 45306600 
CELL © STREAM VARIABLE **" VALUF PARAMFTER **" DECLARED IN SEGMENT 43 AT 05325040 
05395050 05325430 053p5150 05325480 «053295290 05325330 05325350 05325360 05395380 05395390 
05325410 05325420 
CF = DEFINE "= DECLARFD IN SEGMENT 119 AT 17002007 
17025100 147025300 17080000 
CHANGFSFQ == STREAM PROCEDURE =" DECLARED IN SEGMENT 3 AT 01741200 
041741300 02193250 
CHAR = HFFINE ©" OFCLARED IN SEGMENT 3 AT 01299040 
; 14461100 » 2 
CHAR =*= REAL =" NAMP PARAMETER ©" DECLARED IN SEGMENT 86 AT 10234000 
10242000 10252000 10255000 
CHARCOUNT = OWN INTEGER © DECLARED IN SFGMENT 86 AT 10230000 
19242000 10250000 10251000 *10256000%«10261000" 10285000 
CHECKBIT "= DFFINE = NECLARED 1N SEGMENT 3 AT 01000920 


05325400 


02496000 
CHECKER == PROCEDURE = NECLARED IN SEGMENT 
05420000 05216000 07070500 07398000 


CHECKTOR ** PEFINE ee 
CHKSOR =" PROCEDURE © 


3 AT 05113000 


08054000 


14289000 © 
CHS © DEFINE *" DECLARED IN SEGMENT 3 AT 041639000 
06021000 08189000 08219000 
CIV © DEFINE @= DECLARED IN SEGMENT 3 AT 014238000 
CLASS == NEFINE = PECLARED IN SEGMENT 3 aT 01148000 
02705100 07850000 02861000 02886000 02910200 
05350120 07044000 08057000 12120000 121495000 
14519000 15085200 15098000 15128100 15185200 
17095000 
CLCR "= INTEGER =" NECLARED IN SEGMENT 3 aT 01330000 
#022(6500e#02217750% 02218000 02218250 02224500 


CLCR "© RFAL &* 


02202500 02203500 02209000 
CNT ©" STREAM VARTABLE *" VaLUr PARAMETER 
02001844 . 
CNT =" STREAM VARIABLE = VALUF PARAMETER 
02001866 02001870 02001892 
COC == DFFINE == DECLARED IN SEGMENT 3 AT 01640000 
15093400 45290000 415306600 
COCT 8 REAL STREAM PROCEDURE @== 


*07656500« 07657000 
CODE == FYLE «= 


07671000 


DECLARED IN SEGMENT 3 AT 01556900 


12044000 
DECLARED (N SEGMENT 3 AT 01001210 
DECLARED IN SEGMENT 3 AT 13209000 


02910400 
1320,000 
15276020 


15085000 


02920000 
13226000 
15276090 


DECLARED IN SEGMENT 67 AT 07653500 


NAMF PARAMETER "= DECLAREN IN SEGMENT 12 AT 02202750 


07671500 
16495100 
"" DECLARED IN SEGMENT 3 AT 04130000 


08999550 


07604020 


DECLARED IN SEGMENT 3 AT 02001838 
NECLARED IN SEGMENT 3 AT 02001858 


099294000 02966500 
13677200 44062000 
15295100 15301500 
08999200 08999575 


08999575 08999600 


07727010 07797030 


"= OCCURS AT 02663000 


04747000 04296000 05317000 07662000 07668500 07669000 
09393400 09393430 09400000 09401000 13651000 13746000 
COne "= STREAM VARIABLE 7" VALUE PARAMETER 
04134000 
cOn1skK * FILF == DFCLARFD IN SEGMENT 3 AT 01561300 
08999150 08999175 08999275 08999300 08999350 08999375 
09398000 
COL e* INTEGER @" DFCLARED IN SEGMENT 44 aT 05344000 
COLON == WEFINE =" PECLARED IN SEGMENT 3 aT 01260000 
05276000 06318000 06320900 07597500 07600300 07600600 
13756000 13760000 14269480 16160000 
COLON *" LABEL =" DFCLARED IN SEGMENT 24 aT 02637000 
02641000 


DECLARED IN SEGMENT 3 AT 01641000 
STREAM VARTARLE ©" VALUE PARAMETER == 


COM * DEFINE 
COMCOUNT =&= 


02090500 02111500 02118000 
COMMA =" neFINE =" pnEecLARED IN SEGMENT 3 aT 01261000 
06444000 07067000 07095000 07604340 07673000 08145000 
12020000 12033000 12082000 12056000 12125000 13351000 
14223000 14259710 14268000 14269640 14269920 144356000 
COMMANTS == STREAM LAREL ©" DECLARED IN SFGMENT 9 aT 02092000 
02097500 
COMMENTS *= STREAM LapeL °* pECLARED IN SPGMENT 9 aT 02092000 


02107500 02108000 
COMMENTVY "= DEFINE ® MECLARED 1N SEGMENT 3 AT 01253000 
02886000 02920000 08034000 
COMMON = LABFL =" nMECLARED IN SEGMENT 57 Ay 07037000 ee 
07045000 07054000 070586000 07064000 070748000 
COMPAR == LABEL == neECLARED IN SEGMENT 12 AT 02210500 e-# 
02276750 02218500 


08450000 
13403000 
14404000 


OCCURS 
OCCURS 


07084000. 


DECLARED IN SEGMENT 9 at 02089500 


08153000 10263700 
13409000 13756000 
15287000 15293000 


AT 02105000 
AT 02106500 


OccuRS aT 07094000 
07076000 
OCCURS aT 02224250 


02968000 
14094000 
15304200 


08999700 


08999700 


07727070 


10282000 
13762000 


04509000 
14425000 
15305300 


09393350 


08999725 


13753100 


12019000 
14197000 


COMPARE = RFAL STREAM PROCEDURE = DECLARED IN SEGMENT 3 AT 02188000 
#02490000% 02490950 027703500 09226000 027781450 02239000 02933500 02411000 07486000 
COMPARECODE == DEFINE == DECLARED IN SEGMFNT 114 AT 16192000 
. 16208000 
COMPLETE "= LAREL ©" DECLARED IN SEGMENT 24 AT 02637000 = OCCURS AT 02909000 
02658000 02667000 027680000 02705200 02715000 02757000 02852000 02877000 02877020 
COMPOST =* Laprh = DreLAREn IN SEGMENT 24 aT 02639000 == OCCURS AT 02882000 
02880000 
COMPOUNNTATL @= PROCENURF =" ODFCLARED IN SEGMENT 3 AT 07006000 
07033000 07768340 07768200 13772000 14442000 14512000 14524000 46489000 
COMPS1 "= BOOLFAN STREAM PROCEDURE "= DECLARED 1N SEGMENT 122 aT 17029000 
*17038000% 17042300 
COMP1 = ROOLEAN PROCEDURE * DECLARED IN SEGMENT 122 AT 17042100 
#17042300%%17042350" 17045000 
COMP2 = ROOLEAN PROCEDURE “= DECLARED IN SEGMENT 124 AT 17115000 
417117000" 17119000 
CONSTANA *= OWN BOOLEAN "= DECLARED IN SEGMENT 69 AT 08013000 
08074000 08099000 08181000 08168000 *08211000##08224000%%08227000» 
CONSTANR =" OWN ROOLFAN =" NECLARED IN SEGMENT 69 AT 08013000 
08043000 08112000 08116000 *08121000* 08183000 08194000 *08205000* 08213000 
CONSTANe == OWN ROOLFAN "== peECcLARED IN SEGMENT 69 aT 08013000 
. 08185000 08195000 *08204000% 08218000 
CONSTANTCLFAN ©= PROCEDURE *= DECLARED IN SEGMENT 3 AT 04163000 © FORWARD AT 03034000 
04247000 07459000 07496000 07539000 07585000 08470000 08490000 43744000 44040000 
CONV * REAL STREAM PROCFOURE ee DECLARED IN SEGMENT 3 AT 02041000 
02043000 02214260 02234900 022513000 02255000 07259000 02502000 02581000 02592000 
CONVERT ** REAL PROCENURF °° DECLARED IN SEGMENT 3 AT 02288000 
*02260000% 02758000 02796000 02803000 02823000 
COP e= RFaL ARRAY °* DFCLARFED IN SEGMENT 3 aT 01371000 
#02550000% 04280000 042863500 
CORADR =" INTraeR 7" OFcCLARFD IN SEGMENT 3 aT 01344000 
05248500 *05250000% 09282600 09388000 13653000 
CORFE = STREAM VARIABLE ©" VALUE PARAMETER =" DECLARED IN SEGMENT 80 aT 09370000 
09371000 09375000 
CORNER = STREAM VARTABLE = VALUE PARAMETER = DECLARED IN SEGMENT 3 AT 020414000 
020142000 
COUNT = INTEGER © DECLARED IN SEGMENT 3 AT 01313000 


02128500 02129000 02251000 02252000 #02377000* 02366200 #02371000* 02373000 ¥024990004**02590000#«02602700* 


«02647000% 02685000 02686000 #026914000% 02695000 *02698000%%02699000% 02703000 02705000 
02798000 02803000 02810000 02817000 02880000 02881000 «02889000%+02958500«% 07668000 
12109000 #12121000*" 13302000 14259010 16392000 

COUNT ae Sean VARTARLE =" VALUF PARAMETFR ©" DECLARED IN SEGMENT 3 AT 02062500 
2964 
COUNT we STREAM VARIABLE == NAME PARAMETER #* DECLARED IN SEGMENT 9 AT 02090000 
02121500 : 
COUNT == STREAM VARIABLE == VALUE PARAMETER =" DECLARED IN SEGMENT 37 AT 05016000 
05047000 05028000 
COUNT = STREAM VARIARLE ee VALUE PARAMETER *= DECLARED IN SEGMENT 38 AT 05067000 
05971000 O5077000 #05080000* 
COUNT we STREAM VARITARLE == DECLARED IN SFGMENT 43 AT 05325070 
#05325150" 05325160 *0532524;0% 05325320 05325330 
COUNT =" REAL ©" DECLARED IN SFGMENT 49 AT 06062000 
06074000 *06075000% 06103000 *06112000%061439000*% 06120000 06121000 06122000 
COUNT =" STREAM VARIARLE =" VALUE PARAMETFR = DECLARFD IN SEGMENT 87 AT 10236000 
10237000 10240000 
COUNT = INTEGER == DFCLAREN IN SEGMENT 87 aT 10241000 
*102420008% 140245000 #140247000*% 10249000 10252000 10255000 10256000 


COUNTV ==" STREAM VARIABLE 


02090500 02121000 


CPLUS4 ©" DEFINE = DECLARED 


“= VALUE PARAMETER =™* DECLARED IN S 


02123500 


IN SEGMENT 3 AT 01713000 


CPLUS2 == DEFINE =" OFCLARED JIN SEGMENT 3 AT 01714000 

CREL ©= BOOLEAN =" PpECLARED IN SEGMENT 31 AT 04367000 
#041730004*04183000% 04187000 

CRF =" DEFINE ** DECLARED IN SEGMENT 108 aT 16040000 

16370000 16408000 

DECLARFD IN SEGMENT 3 AT 01262000 


16121000 46200000 
CROSSHATCH °°" WEFINE &e 
10279000 
CROSSWATCH == LABEL a= 
02642000 


CROSSREFDUMP == PROCENURE 


02004830 432836500 
CROSSREFIT == PROCEDURE 
02001730 02882200 


DECLARED YN SEGMENT 24 AT 02640000 #= 


** DECLARED IN SEGMENT 3 AT 02001740 


14445100 


w= DECLARED IN SEGMENT 3 AT 02001640 
13310580 14469100 15090600 15184400 


w= DECLARED IN SEGMENT 
we DECLARED IN SEGMENT 
"= DECLARED IN SEGMENT 
e= DECLARED IN SEGMENT 
ee DECLARED IN SEGMENT 


wm DECLARED IN SEGMENT 
ee DECLARED IN SEGMENT 
ee DECLARED IN SEGMENT 
ee DECLARED IN SEGMENT 


D =" STREAM VARIABLE ©" NAME PARAMETER 
02001775 02001780 

D #* STREAM VARIABLE = NAMF PARAMETER 
02001842 02001848 02001850 

D ** STREAM VARIABLE = NAME PARAMETER 
020013890 02001895 07061896 

D = STREAM VARIABLE = NAMP PARAMETER 
022464500 

D = STREAM VARTABLE e= NAME PARAMETER 

5 02264800 
03047000 

D **  NTEGER © DECLARED IN SEGMENT 31 AT 04166000 

«04475000* 04184000 

D w= STREAM VARIABLE = NAME PARAMETER 
07659500 07660000 

D = STREAM VARIABLE -©* NAMF PARAMETER 
19257200 

D = STREAM VARIABLE -= NAME PARAMETER 
12104000 

D == STREAM VARIABLE = NAME PARAMETER 
14254300 

D *= REAL *= DECLARED IN SEGMENT 109 AT 


*#16032000% 


ee REAL @™" DECLARED JN SEGMENT 110 AT 


D 

#16070000« 16079000 

D *" STREAM VARIABLE == 
17947800 

D «= STREAM VARIABLE == 
17051700 

D = STREAM VARIABLE e= 

17952800 47053000 


NAMe PARAMETER 
NAME PARAMETER 


NAME PARAMETER 


16031000 
16067000 
me DECLARED IN SEGMENT 
e= DECLARED !N SEGMENT 
ee DECLARED IN SEGMENT 


DA se INTEGER == DECLARED IN SEGMENT 3 AT 04559020 
w* VALUE PARAMETER * = DECLARED IN SEG 


DATE = STREAM VARIABLE 
04825000 


EGMENT 9 AT 02089500 


OCCURS AT 02744000 


15301000 
8 AT 02001760 


3 AT 02001836 
3 AT 02001858 
15 AT 02264400 
15 AT 02264700 


we tNTEGER == VALUE PARAMETER |= DECLARED IN SEGMENT 3 AT 03047100 


67 AT 07658500 
86 AT 10257100 
89 AT 12103000 


102 AT 14254200 


124 AT 17047200 
124 AT 17054400 


124 AT 17052600 


MENT 5 AT 01823000 


DATER = ALPHA STREAM PROCEDURE © DECLARFD IN SEGMENT 5 AT 01823000 


01825000 01827000 

DATIMF = PROCEDURE ee 
014837000 02495000 

—.. 43653500 13676000 
DBLSTMT = PROCENURE == 
07753000 12059000 


01833000 


DECLARED IN SEGMENT 3 AT 01820000 
02195750 02196590 02214200 02228750 


17091170 


DECLARFD IN SEGMENT 3 AT 12002000 eo 


02264950 02421000 05039600 05325490 


FORWARD AT 03060000 


07025020 


DBV = DEFINE = DECLARED IN SEGMENT 3 AT 04243000 
16447000 
DOCINTYPF == PEFINE = MECLARED JIN SEGMENT 3 AT 01561420 
09430060 
DOCV ©" DEFINE *" DECLARED IN SFGMENT 3 aT 07248000 
16208000 16338000 
DOFS = HeFINE == DFCLARED «N SEGMENT 3 AT 01299000 
07677000 
DEBLANK Pie ae LABFL == DECLARED IN SEGMENT 9 AT 02091500 == OCCURS AT 02100000 
2094500 
DEBUG ==" PROCEDURE == DECLARED IN SEGMENT 3 AT 049277500 
04786000 04297000 
DEBUGRIT == DEFINE = DECLARED IN SEGMENT 3 AT 01000930 
023831000 02533000 027602500 04148000 04297000 
DEBUGTOG "= DEFINE == MECLARED JN SEGMENT 3 AT 01001220 
02533000 02602500 04148000 04297000 
DEBUGWORD «= STREAM PROCFOURE = DECLARED IN SEGMENT 3 AT 04130000 
04449000 
DECK ==. FILE =" DECLARFO IN SEGMENT 3 aT 01561500 
09435000 09447000 09447090 
DECKBrT =" DEFINE == OFCLARED +N SEGMENT 3 aT 01000940 
02474000 09405000 094440430 09421000 09447019 43654100 
DECKTOG = DEFINE = ODFCLARED IN SEGMENT 3 AT 07001230 
09405000 09444040 09491000 09447030 13651100 
DECLARATORS = DEFINE == DECLARED IN SEGMENT 3 aT 01214000 
07767000 10277000 14126000 14370000 14396000 44516000 46434000 
DECLARELABEL 7" PROCENURF =" DFCLARED IN SEGMENT 3 AT 16000100 
ge 16253100 16482200 
DECLREF ©" OFFINE =" prCcLARFD IN SEGMENT 3 aT 01007490 
43370525 43310580 14312100 147099900 
DECLSW "" SWITCH LABEL =" ONECLARED IN SEGMENT 98 AT 14018000 
14434000 
DEFINFARRAY = REAL ARRAY == DECLARED 1N SEGMENT 3 AT 014914000 
*02202030%«02202040% 02202050 02202060 02212500 *02217250%*022947500*% 07217750 02218000 02366100 
02719000 02721000 *02900000**02902000*%* 02903000 
DEFINFCTR ©" {NTEGER *" DECLARED IN SEGMENT 3 AT 01481000 
. 02715000 *10262N00e%10278000" 10280000 «10283000%10284000" 
DEFINFDFC 7" LABEL "= NAFCLARED IN SEGMENT 98 AT 14017000 == OCCURS aT 14254000 
14021000 
DEFINFDID =" ODFFINE =" NECLARED IN SEGMENT 3 AT 01180000 
02894000 12120000 14259010 
DEFINEFGFN == PROCEDURE =" DECLARED IN SEGMENT 3 AT 10228000 
190286000 12124000 14266000 
DEFINFINDEX = INTEGER == DECLARED IN SEGMENT 3 AT 01481000 
02242500 02718000 027149000 *02721000* 02898000 07900000 02902000 07903000 «02905000« 
DEFINFV © DEFINE == nechaRep tN SEGMENT 3 aT 01298000 
19278000 
DEFINtNG == BOOLEAN = NECLARED IN SEGMENT 3 AT 01007650 
#02419110% 02910700 132803500 13310900 #142555004414268500" 14445100 16495300 
DEL =" DFFINE ** DECLARED IN SEGMENT 3 AT 01642000 
DEPTH ** REAL PROCEDURE *™ DECLARED IN SEGMENT 3 AT 05400000 
#05402100%#05403000% 05407000 #05409000% 05426000 05431000 
DESC 7" AFFINE ©" DrFCLARED 1N SFGMENT 69 aT 08036000 
08098000 08108000 
DEST ae Bane VARTABLE "=" NAMF PARAMETER =" nECLARED IN SEGMENT 3 AT 02045000 
204 
DIA e* DEFINE == DECLARED IN SEGMENT 3 AT 04680000 


02602600 


04315000 04550000 
DIALA ="  INTEGFR *= DECLARED IN SEGMENT 3 AT 01502000 


*04315000**08152000« 
DIALB =" INTEGER *= DECLARED IN SEGMENT 3 AT 01502000 
#04317000%#08152000« 
DIR =" DEFINE *= DECLAREN IN SEGMENT 3 AT 04681000 
04347000 


D1Q = DEFINE *= NECLARED IN SEGMENT 3 AT 01237000 

OrSK = FrLE == DECLARED IN SEGMENT 3 aT 01561400 
04561600 01828500 09495900 09429000 09430075 09430100 

DISK = STREAM VARIABLE == VALUE PARAMETER =" DECLARED IN SEGMENT 80 AT 09370000 
09371000 09376000 

DISKADR ©" INTEGER *= DECLARED IN SEGMENT 3 AT 01344000 
05252000 ¥05254000#*09253100* 09389000 13653000 

DOYT = STREAM PROCEDURE “= NECLARED IN SFGMENT 44 AT 05334100 
05350160 053502700 

DO1T == STREAM PROCEDURE == NECLARED IN SEGMENT 96 AT 13673100 
13673450 13677300 

DOLLAR #= LABEL =" MECLARED IN SEGMENT 24 AT 02639000 = OCCURS AT 02729000 
02641000 


DOLLARCARD e# PROCEDURE == NECLARED IN SEGMENT 3 AT 02339000 == FORWARD AT 02065500 


02299000 02231000 02604000 02730000 
DOLLARTOG = BOOLEAN =" DECLARED IN SEGMENT 3 AT 010015400 
#02 366000%%02603000« 
DOLLAR2TOG ** BOOLEAN = PECLARED IN SEGMFNT 3 AT 01691500 
#02211800%%02230100e 02234600 02421000 
DOSTMT *" PROCFDURE =" DECLAREN IN SEGMENT 3 AT 07482000 
07488000 07759000 
DOT »* LarnrL =" DECLARED IN SEGMENT 24 aT 02637000 "= OCCURS AT 02668000 
02641000 
DOT = PROCEDURE == DFrLARED IN SEGMENT 3 AT 06336000 = FORWARD AT 03015000 
06178000 06346000 
DOTSYNTAX -= BOOLFAN PROCEDURE == DECLARED IN SEGMENT 3 AT 05270000 
#05286000* 06341000 15987800 15183400 15276750 1453001300 
DOV = DEFINE == DECLARED IN SEGMENT 3 AT 074225000 
07494000 08159000 08186000 
DPTOG © ROOLEAN = DFCLARED IN SEGMENT 3 AT 01690000 
02253000 07784000 02794000 02829000 #12012000%%12016000« 
OSKIP ©" STREAM VARTARLF =" VALUF PARAMETFR "= DECLARED IN SEGMENT 3 AT 02045000 
02046000 02049000 . 
DSK1 == FrLE =" DECLARED IN SEGMENT 3 aT 01561085 
02001821 17010000 47043000 137022300 147026000 47044000 47093950 
OSK2 "= FrlLe == DECLARED IN SEGMENT 3 AT 01561087 
02001680 47004000 17076000 47118000 
DSS = PROCEDURE = pECLARED IN SEGMENT 108 AT 146362000 
16398000 46491000 
OSV =" DEFINE "= DECLARED IN SEGMENT 3 AT 01240000 
OTYPE =" WEFINE ==" pECLARED IN SEGMENT 3 aT 01452000 
DUMMY = HFFINE == MECLARED IN SEGMENT 3 aT 01001470 : 
DUMPDFC ©= LABEL = DECLARED IN SEGMENT 98 AT 14014000 = OCCURS AT 14149000 
14019000 
DUMPEF = DEFINE == DECLARED IN SEGMENT 3 AT 01547000 
DUMPINFO == PROCEDURE w= DECLARED IN SEGMFNT 3 AT 02264000 
02266100 07468000 
DUMPOR = DEFINE = DFCLARED IN SEGMENT 3 AT 01552000 
DUMPV == DEFINE #e HECLARED IN SEGMENT 3 AT 04287000 
07524000 07646610 15093200 15095900 15185800 18302500 48303000 


DUPIT " ROOLEAN 
*15097600% 15097800 
#15302000« 15302300 

DWA ** INTEGER 
#02265500% 02265600 

E ** PROCEDURE 

12123000 13333500 
we LABEL "9 
04100000 04102000 

E 7" REAL. ** 

04576200 04530000 

FE 7" REAL 72 

, 04503000 04506000 

—€ 7 STREAM VaRIaBle = 

12105000 
E =e REAL mm 
16070000 
F ry! REAL am 
16089000 16093000 
EDTLyNe «= 
027487000 02195000 
EDOC = STREAM VARIABLE 
13685000 43687000 
EDOCINDEX =" DEFINE «= 
EL == LABFL e#= 
06107200 

EL = REAL =" DECLARED 
*#12142000« 12114000 

ELBAT =" REAL ARRAY =*# 

02265100 02265950 
05218000 05222000 
05344669 95344700 
06166000 06185000 
#07031000% 07070000 
07566000 07572000 
*#08034000% 08037000 
*#09437000«% 09447000 
12125000 13200000 
14220000 14221000 
#14549000% 15077000 
16212500 16254000 


16435000 *16449000« 
VALUE PARAMETER #= 


ELBATWORD *= REA 
05416000 

ELBATWORD «w= REA 
05206000 

ELBATWORD == DEF 
07599000 

ELBW = REAL © 
*07521000« 

ELCLASS = INTEG 


06046000 
06138000 
06317300 
«07032000» 
07485000 


we DFCLARED IN SEGMENT 107 AT 45076400 
15096800 «45484800 154857400 


15995400 
15302800 


15095700 
15303400 


15096400 


“= DFCLARED IN SEGMENT 15 aT 02264100 


02265700 


"=" DECLARED IN SEGMENT 3 AT 13293000 


13342000 


13755500 


16000600 


DECLAREN IN SEGMENT 29 AT 04099000 = 


DECLARED IN SEGMENT 49 aT 06061900 


La ae 
05118000 
L on 
05207000 
INE w= 

076014000 


VALUE PARAMETER = 


04536000 


VALUE PARAMETER = 


DECLARED IN SEGMENT 


04543000 


DECLAREN IN SFGMENT 


04549000 


04508000 *04509000% 04522000 


VALUE PARAMETER 
VALUF PARAMETER = 
VALUE PARAMETER == 
STREAM PROCFOURE == 


02195750 


13693000 


DECLAREN IN SEGMENT 
DECLAREN 1N SFGMENT 


02214200 


NAME PARAMETER 


DEcLARED 


DECLARED +N SEGMENT 3 


02228750 


OCCURS AT 04112000 


3 AT 04500000 


04555000 


36 AT 04504000 


FORWARD AT 03054000 


IN SEGMENT 89 AT 12103000 


108 aT 16065000 


108 at 16085000 


AT 02183500 


02421000 


DECLARED tN SEGMENT 3 AT 01710000 


IN SFGMENT 89 AT 12102000 
*#12125000* 12126000 


05273300 
05344740 
06315300 
07070500 
07583000 
08176000 


«09447010 


13310350 
14269446 


DECLARED IN SEGMENT 
#029;0000» 


02916000 
05273400 
05350120 
06315400 
07073000 
07599000 
09424000 
09447070 
13341300 
14269448 


02920000 
05274100 
05350160 
06346300 
07396000 


«#07646525" 


09495900 


"09447080" 


13361000 
14269520 


15276010 «16000700% 16121000 


16321000 


05208000 


16329000 


VALUE PARAMETER om 


05209000 


16342000 


DECLARED IN 


OCCURS AT 06104300 


3 AT 01319000 
02923000 «02924000« 


05274200 
05350180 
06316400 
07430000 
07667000 
09427500 
094467090 
13372000 
14269540 
16124000 
16344000 


SEGMENT 3 
DECLARED IN SEGMENT 3 


DECLARED IN SEGMENT 65 AT 07595000 


DECLARED IN SEGMENT 62 AT 07503000 


07527000 
ER «= 


06052000 
06139000 
06320900 
07052000 
07494000 


DECLARED IN 
*905002000%«05003000» 


05109000 
06055000 
06141000 
06340000 
07053000 
07506000 


SEGMENT 3 


05273800 
06076000 
06146000 
06411000 
07075000 
07507000 


AT 01328000 

05275000 05304000 
06084000 061048100 
06151000 06175000 
064146000 06422000 
07084000 07095000 
07541000 07550000 


05038000 


05089000 
05280000 05281000 
06016000 06044000 
06320100 06320200 
07516000 07516300 
07745000 07768100 
09429000 «09432000« 
10277000 42035000 
13394000 «137670008 
14314000 144349000 
164159000 16200000 
16370000 146376000 


07025020 


DECLARED IN SEGMENT 3 AT 13683000 


AT 05113000 


AT 05207000 


05344550 
06105000 
06180000 
07012000 
07096000 
07553000 


060048000 
061906300 
06198000 
07013000 
07399000 


*07556000" 


15185600 15186100 
05189000 052146000 
05344570 053464615 
06072000 06104300 
06324000 06325000 
07518000 07521000 
07994000 07995000 
09433000 «09434000« 
12024000 12036000 
13768000 *14062000« 
14352000 44353000 
16204000 16208000 
16379000 146408000 
06013000 06034000 
06107100 06114000 
06302000 063151400 
07018000 07021000 
07404000 07409000 
07600300 


07578000 


15186300 


05217000 
05344620 
06108000 
06326000 
07554000 
08029000 
09435000 
12044000 
14129000 
14399000 
16211000 
16412000 


06036000 
06115000 
06336000 
07026000 
07431000 
07600400 


gelLcbass 


07604440 
07727000 
08193000 
08186000 
13337000 
14437000 
14269920 
15083000 
15305000 
16375000 
16374000 
16482300 


om Rrab 


07646490 07646525» 


07727010 
08113000 
08229000 


*13338000% 


14165000 
14325000 
15986900 
16119000 
16319000 
16379000 
16482500 


m= necbaReo tN SeaMeNT 86 ary 10258100 


#10263400% 40263700 


ELCLASS 


"= DEFINE == 


13226000 


ELSEBRANCH «= 
*06300000*« 06307000 


INTEGER 


13246000 


07727030 
08128000 
12022000 
13391000 
14197000 
14326000 
15087600 
16131000 
16320000 
16381000 


19264100 
13278000 


07646535 
07727050 


08133000 
129028000 


13400000 | 


14259020 
14336000 
15988600 
16132000 
16326000 
16410000 


19264300 


07646580 
07728000 
08139000 
12033000 
13403000 
14259420 
14357000 
15183300 
16198000 
16330000 
16445000 


10264440 


OF CLARED yN SEGMENT 91 AT 143220000 


DECLARED IN SEGMFNT 53 AT 06295000 


07646603 07665000 07665500 
*07749000«4%07751000 64077684 30% 
08145000 08150000 08153000 
12035000 12039000 42042000 
13409000 43756000 13758000 
14260000 44769280 14269442 
14370000 44396000 44404000 
15183800 45276010 15276,40 
16204000 46210000 16212500 
16335000 16336000 46337000 
16417000 146437000 46477000 
10277000 40279000 10282000" 


ELSEV e* WEFINE == pECLARED IN SEGMENT 3 aT 01297000 
06302000 07567000 07578000 146220000 16230000 
EMIT == PROCENURE == DECLARED IN SEGMENT 3 AT 04291000 == FORWARD AT 03028000 
04004000 04007000 04014000 04039000 04024000 04086000 04921000 04302000 
04531000 04535000 04550000 04551000 04554000 06054000 06054100 06082000 
06194600 06148000 06166000 06191000 06308000 07093100 07431000 07436000 
07646550 07995000 08049000 08050000 08122000 08148000 084151000 08227000 
16122000 16133000 16219000 16232000 16266000 16387000 16394000 16453000 
EM1TB = PROCFHURE == NECLARED 1N SEGMENT 3 AT 04114000 = FORWARD AT 03036000 
04425000 042138000 06207000 06303000 06307000 07088000 07444000 07487000 
07579000 07585100 07586000 07608000 07646605 07646635 07646665 08047000 
08146000 08468000 082415000 08221000 13606000 14041000 
EMITC ©" PROCENURE == DECLARED IN SEGMENT 3 AT 04010000 
040;4000 144454000 16032000 16079000 16121000 16124000 46200000 46208000 
16216000 146342000 146352000 46370000 46378500 46379000 16383000 146408000 
EMITO =" PROCFNURE “= NPECLARED IN SEGMENT 3 AT 04311000 =" FORWARD AT 030850000 
04322000 04556000 05203000 06332000 07093000 07093200 15097600 15186700 
EMITI #=" PROCENURE ** NMECLARED IN SEGMENT 3 aT 04500000 
06344000 15096000 15103400 15185900 15187300 15276210 15303100 15307200 
EMrTJUMP == PROCFHURE =" neclaRen IN SeGMeNY 108 aT 16065000 
16093000 16255000 
EMyTL == PROCEDURE == NECLARED 1N SEGMENT 3 AT 04003000 
04032000 04205000 04544000 05222000 06130000 06206000 08046000 08067000 
13773000 14506500 
EMITLNG = PROCEDURE == DECLARED IN SEGMENT 3 AT 04098000 
04142000 06148000 07573000 07575000 06150000 08220000 
EMYTN © PROCENURE == DECLARED 1N SEGMENT 3 AT 04022000 
04094000 04212000 04524000 05202000 07092000 08075000 08179000 08212000 
15185500 15276060 15301200 15305500 15306400 16261000 
EMITNUM = PROCEDURE = fNECLARFD IN SEGMENT 3 AT 04203000 == FORWARD AT 03049000 
04121000 04225000 06168000 07089000 07442000 08021000 08089000 147014000 
EMyTO -* PROCRFNURE = NECLARED 1N SEGMENT 3 aT.04006000 
04018000 04023000 04033000 04034000 04109000 04112000 044322000 042124100 
04531000 04537000 04545000 05226000 05346000 06021000 06077000 067340300 
07978000 07087000 07091000 07408000 07434000 07542000 07536400 07524000 
07646555 07646610 07646615 07686620 086044000 08049000 08050000 08065000 
08094000 08123000 08125000 08126000 08166000 061389000 08244000 08219000 
12054000 13263000 13264000 13268000 13740000 13743000 13752000 13761000 
14389000 14451000 15093200 15093400 15095900 45100400 45300800 45101000 
15301400 15302500 15302600 15303000 145303900 145304100 148304200 


15301600 


07666000 
08031000 
08159000 
12052000 
13760000 
14269460 
14479000 
15287000 
16213000 
16338000 
16478000 


04345000 
06087000 
07544000 
14451100 


07495000 
08078000 


16211000 
16445000 


15276070 


08077000 


12036000 


12045000 


04223100 
06172500 
07525000 
08068000 
08228000 
13765000 
15185800 
15305600 


07666500 
08032000 
08182000 
12056000 
13762000 
14269680 


*14516000% 


158294000 
46230000 
16339000 
16484000 


94347000 
06089000 
07604070 
15376700 


07496000 
08086000 


16212500 
16417000 


15303600 


13264000 


15086400 


13229000 


04311090 
06187000 
07526000 
08070000 
12024000 
13766100 
15276090 
15305800 


07668000 
08038000 
08184000 
13331000 
13763000 
14269840 
15078000 
15300500 
16253000 
16341000 
16482100 


04348000 
06099100 
07646460 
16080000 


07540000 
08127000 


16213000 


13267000 
15092600 


04507000 
06203000 
07646465 
08079000 
12038000 


14167000. 


15290000 
15306600 


EMTTPATR "= PROCEDURE == pEcbLARED IN SEGMENT 3 aT 04028000 
04034000 04523000 05263000 05227000 07071000 07090000 08090000 13230000 15101600 153185300 15186800 
15267000 

EMITSTORE © DFFINE == DECLAREN IN SEGMENT 3 AT 13214000 
13230000 

EMITV = PROCEDURE =e DECLARED 1N SEGMENT 3 AT 04017000 
04049000 04184000 04184500 04521000 05219000 05226000 05316000 07413000 07439000 07516300 08021000 
08044000 08075000 08166000 08212000 12047000 43236000 13739000 45086800 45095600 15276060 45290000 
15306200 

EMITWORD "= PROCEDURE == DECLARED IN SEGMENT 3 aT 04142000 
04152000 04187000 07604120 

EMIT21 =" PROCEDURE =" DFCLARED IN SEGMENT 36 AT 04503000 
04576200 04530000 04536000 04543000 04549000 04555000 


ENnNOFIT °7 INTEGER “eo 
497646625 07646640 

ENDOF TALL ==" LAREL ewe DECLAREN IN SEGMENT 3 AT 05101100 = OCCURS AT 16495210 

ENDREADTAPF = LABEL © MECLARED IN SEGMENT 13 aT 02201510 == OCCURS AT 02202080 


NECLARED IN SEGMENT 66 AT 07646405 


022902040 
ENOTOG =" BOOLEAN ## DECLARED IN SEGMENT 3 AT 04415000 
#02653000% 02680000 02884000 *060240004606092000%«07016000«e 07019000 #07020000%%0764660;% 07646603 «076466048 
ENDV ** DEFINE ©" DECLARED IN SEGMENT 3 AT 01228000 
029140400 05109000 07013000 07018000 07646475 07646580 07646603 07748000 07749000 46477000 16133000 
ENTER =" PROCEDURE ° NECLARED IN SEGMENT 3 AT £3714000 © FORWARD AT 03069000 
13390000 14136000 14139000 14140000 14141000 14162000 
ENTRY ©" PROCEDURE = DECLARED IN SEGMENT 3 at 13314000 *= FORWARD AT 03055000 
13729000 14165000 14194000 14207000 14259010 14269240 44319000 14333000 14403000 44409000 
EOF =" LaRFL =" DECLARFO IN SEGMENT 12 aT 02210250 “= OCCURS AT 02217000 
02216250 
EOF e* LARFL "=" DECLARFO IN SEGMENT 71 AT 08999050 *= OCCURS AT 08999400 
08999150 08999375 
EOF -* LABEL =" DECLARED IN SEGMENT 81 AT 09394000 = OCCURS AT 09413000 
09399000 
EOF = Lagrh =" DECLARED IN SEGMENT 123 AT 17009000 "== OCCURS AT 17012000 
17040000 
FOF w= Lapel =" DECLARED IN SEGMENT 127 At 17073000 == OCCURS AT 17082000 
17076000 17079000 
FOFT = LaBEL °°" DECLARED IN SEGMENT 13 AT 02201510 "= OCCURS aT 02202020 
02201750 
FOF2 "= Lapel =] DFeLARED IN SEGMENT 129 aT 17091100 == OCCURS at 17096800 
17093950 
EPART we LABEL = DECLARED IN SEGMENT 24 AT 02639000 =» OCCURS AT 02830000 
EQL =" DEFINE ©= DECLARED IN SEGMENT 3 AT 04644000 
EQUAL e= BOOLEAN STREAM PROCEDURE == DECLARED IN SEGMENT 3 AT 02062500 
*02064000% 07064500 02881000 
EQVOP we nEFINE =" PECLAREM IN SEGMENT 3 aT 01274000 
02965500 02971000 06036000 15091600 15184800 15302000 
ERR * PROCEDURE 7" DECLARED IN SEGMENT 3 AT 05105000 = FORWARD AT 01718000 
02211500 04145000 04300000 05109000 05285000 06005000 06086000 06095000 06107000 06109000 06316000 
06142000 06151000 06154000 06176000 06302000 06316700 06334000 06811000 06415000 06417000 06421000 
06423000 07015000 07083000 07097000 07099000 07405000 07412000 07437000 07485000 07494000 075413000 
07517000 07598000 07600700 07604130 07646458 07646585 07667500 07672500 076748000 07727080 07732000 
07994000 08059900 08134000 08160000 08178000 08229000 12007000 12033000 12039000 12052000 42056000 
14259090 44259420 15081000 15089800 15102600 45184300 15256000 152613000 145276170 19276190 45294000 
15297000 45300900 145306800 16125000 16132000 36160000 46205000 16206000 16207000 46234000 46247000 
oe 16253100 16316000 146347000 16367000 16384500 16397000 16418000 16483000 
ERREXyT @" DEFINE @* DrCLARED 1N SEGMENT 107 AT 15076140 


15089800 15102600 15184300 


15300900 


15306800 


ERRMAX ©" INTEGER =" NECLARED IN SEGMENT 3 aT 01001550 
02211500 *02502000%«09028910™ 

ERRNUM ** INTEGER *= VALUE PARAMETER =" DECLARED IN SEGMENT 3 AT 01716000 

ERRNUM =" INTFGER == VALUE PARAMETER == DECLARED IN SEGMENT 3 AT 01718000 

ERRNUM = INTEGER *= VALUE PARAMETER == DECLARED IN SEGMENT 3 AT 05012000 
05044000 0509;000 

ERRNUmM = STREAM VARIABLE =" VALUE PARAMETER == DECLARED IN SEGMENT 37 AT 05046000 
05047000 05026000 

ERRNUM ©" INTEGER = VALUE PARAMETER = DECLARED IN SEGMENT 3 AT 05105000 
05106000 05107100 05107200 

ERROR STREAM LABEL == DECLARED IN SEGMENT 9 aT 02091500 == OCCURS AT 02114000 
2149000 

ERROR © MEFINE =" MECLARED IN SEGMENT 25 aT 02958000 
02959000 

ERROR ©" nWEFINE =" HECLARED IN SEGMENT 3 aT 05110000 
07667500 07672500 07674000 

ERRORCOUNT © INTEGER == DECLARED IN SEGMENT 2 aT 00501000 
02271500 *05035000* 05087000 09028000 «09028900 09386000 09391000 

ERRORTOR = BOOLEAN = DECLARED IN SEGMENT 3 AT 01412000 


05032000 *05047000#405119000%%07009000%%07 0630004407645 000%#076464854e077500008«1 328200084141 30000%414443000" 


14511000 *416130000 
EXAMIN ** REAL STREAM PROCEDURE ©" DECLARFD IN SEGMENT 2 aT 00511000 
00512000 00529000 00531000 00533000 00536000 02214200 02225750 02228250 
02680000 02697000 02745000 02750000 02753000 02786000 02791000 02807000 
EX1T ** STREAM LABEL = NFCLARFN IN SEGMENT 3 at 01758000 "= OccuURS aT 01782000 
01763000 01764500 
eXrT e= STREAM LABEL == DFCLARFD IN SEGMENT 9 AT 02091500 ©= OCCURS AT 02419500 
02104500 02112000 02134500 02115500 023;8500 
EXrT ee a == DECLARED IN SEGMENT 12 AT 02210000 OCCURS AT 02225000 
221575 
EXIT = LABEL *= DECLARED IN SEGMENT 19 AT 02360000 OCCURS AT 02602000 
02375000 02411000 02443000 02486000 02488000 
EXIT "=" LABEL °" DECLARED IN SEGMENT 25 AT 02957000 = OCCURS AT 02967500 
02959000 02962500 
EX1T ai LABEL "=" DECLARED IN SEGMENT 35 AT 04314010 OCCURS AT 04322100 
4341100 
EXIT "= LABEL ** DECLARED IN SEGMENT 36 AT 04501000 OCCURS AT 04558000 
04526200 04532000 04538000 04546000 04552000 
EXIT = LaBEL =" DFeLARED IN SEGMENT 38 aT 05049000 OCCURS AT 05100000 
05094000 
EX1T = LABEL =" DECLARED IN SEGMENT 44 AT 05273000 OCCURS AT 05286000 
05273500 05274400 052784000 
EX1T ** LABEL *= DECLARED IN SEGMENT 43 AT 05325030 
EX:T = LABEL == DECLARED IN SEGMENT 44 AT 05334000 OCCURS AT 05375000 
05344760 05372000 
EX1T e# LABEL =" DECLARED IN SEGMENT 47 AT 05439000 OCCURS AT 05458000 
05454000 05457000 
EXtT e= LABEL =" DECLARED IN SEGMENT 49 AT 06061000 OCCURS AT 06125000 
06069000 06086000 06096000 06107000 06109000 06146000 
EXT 8 LABEL == DECLARED IN SEGMENT 50 AT 06137000 OCCURS AT 06182000 
06142000 06149000 06154000 06176000 
EX+T em LABEL ==" DECLARED JN SEGMENT 592 AT 06195000 OccURS AT 06209000 
06200000 06204000 
EXIT e= LABEL =" DECLARED IN SEGMENT 54 AT 06315000 OCCURS AT 06335000 
| 06316800 06333000 
EXIT 2 LABEL == DECLARED IN SEGMENT 55 AT 06339000 OCCURS AT 06346000 
06341000 


EX1rT 
EXIT 
EXT 
EXIT 
EXYT 
EXIT 
EX1T 


EX1T 
EXyT 
EX1T 
EXIT 
EX{T 


EX1T 


EXIT 
EXIT 
EXIT 
EXIT 
EXIT 
EXIT 


EXPECT 
EXPECT 


EXPRSS 
— 
Fo owe 
Foo 


= 


ew LABEL °= DECLARED IN SEGMENT 57 AT 07037000 == OCCURS AT 07101000 
07097000 07099000 
*= LABEL = DFELARED IN SFGMENT 58 AT 07394000 == OCCURS AT 07425000 
07402000 07405000 
ee LABEL == DECLARED IN SEGMENT 62 AT 07504000 == OCCURS AT 07531000 
07518000 07516600 07517000 07519000 
ee LABEL ==" DECLARED IN SEGMENT 63 AT 07549000 == OCCURS AT 07557000 
07555000 
se LABEL == DECLARED IN SEGMENT 64 AT 07562000 =" OCCURS AT 07587000 
07573000 07574000 07576000 07579100 07584000 
== LABEL ** DEPLARED IN SEGMENT 65 AT 07594000 ** OCCURS AT 07646000 
07598000 07600700 
ee LABEL "= DECLARED IN SEGMENT 68 AT 07726000 = OCCURS at 07771000 . 
07797080 07732000 07733000 07735000 07737000 07739000 07743000 07746000 07749000 07751000 07753000 
07755000 07757000 07759000 07759200 07761000 07763000 07765000 07768460 
es LABEL = DFCLARED IN SEGMENT 69 aT 089017000 = OQ¢cURS aT 08232000 
08178000 08222000 08229000 
em LABEL ©" DECLARED IN SEGMENT 70 AT 08099000 "= OCCURS AT 08172000 
08134000 08160000 
ee LABEL = DECLARED IN SEGMENT 86 AT 140259000 =* OCCURS AT 40284000 
19263900 10275000 
wer LABEL °= DECLARED IN SEGMENT 88 AT 12005000 == OCCURS AT 12058000 
12033000 12080000 12052000 12056000 
=e LABEL *= DECLARED IN SFGMENT 103 aT 14269100 = OCCURS AT 14269860 
14269710 14269760 
ee LABEL "= DECLARED IN SrGMENT 107 aT 15076000 = OCCURS aT 15377000 
15981000 45087000 15088000 145089800 15302600 45183500 45384300 148187400 45256000 45264000 45275000 
15276120 15276150 15276170 15276190 15276230 15294000 15297000 15300200 145300900 45301800 45306800 
ee LABEL ** DECLARED IN SEGMENT 112 aT 16117000 = OCCURS AT 16144000 
16125000 16132000 
ee LABEL °* DECLARED IN SEGMENT 114 aT 16193000 "= OCCURS AT 16239000 
16205000 16206000 16207000 16214000 16247000 
me LABEL =" DECLARED IN SEGMENT 115 aT 16251000 "= OCCURS AT 16270000 
16253100 . 
ee LaBEL °™= DECLARED IN SFGMENT 116 aT 16313000 "= OCCURS AT 16355000 
16316000 16342000 16347000 
“7 LaBEL =" DECLARED IN SFGMENT 117 aT 16365000 "= OCCURS AT 16398000 
16367000 16384500 
w= LaBEL °= DFeLARED IN SFGMENT 108 aT 16475000 "= OCCURS AT 16494000 
16484000 16487000 16490000 164913000 16492000 16493000 
ee REAL @* VALUE PARAMETER ©" DECLARED IN SEGMENT 3 AT 03009000 
ee REAL =" VALUE PARAMETER © DECLARED IN SEGMENT 3 AT 06060000 
06449000 | . 
ai eee PROCEDURE == DECLARED IN SEGMENT 3 AT 06057000 e# FORWARD AT 03007000 
6299000 
INTEGER =" DECLARED IN SEGMENT 3 AT 01688000 
*14077000m«4 4078000%%141150008 


STREAM VARYABLE = VALUE PARAMETER = DECLARED IN SEGMENT 3 AT 02262000 
022463000 

STREAM VARIABLE == NAME PARAMETER = DECLARED IN SEGMENT 21 AT 02441000 
02443000 

STREAM VARIABLE = NAME PARAMETER =m DECLARED IN SEGMENT 21 AT 02886000 
02448000 


STREAM VARTABLE = ODEFCLARED JIN SEGMENT 38 AT 05068000 

05049000 05076000 
STREAM VARIABLE ** NAMF PARAMETER ©» DECLARED IN SEGMENT 71 AT 08999075 
08999100 


F om STREAM VARIABLE ©= NAME PARAMETER "= DECLARED IN SEGMENT 81 AT 09393700 

09393710 09393720 09393730 

Fo o-= STREAM PANUARCE e= VALUE PARAMETER ©" DECLARED 1N SEGMENT 96 AT 13673100 
136733 

Fo o= REAL == DECLARED IN SEGMENT 109 AT 16033000 

FACTOP ** DEFINE ==" DECLARED IN SEGMENT 3 AT 09799400 
15253000 

FCR == INTEGER == DECLARED IN SEGMENT 3 AT 01330000 
02194000 02195000 02195750 #02214000" 02214200 #02225250* 02225750 02228950 02298750 02230000 
02421000 02731000 05038000 #07025010* 07025020 07025030" 

FcR «* ee VARIABLE =" VALUF PARAMETER ©* )pECLARED IN SEGMENT 3 AT 02016000 

017000 

FETL *" STREAM VARTABLE "= NAMF PARAMETER ©" NECLARED IN SEGMENT 3 AT 04130000 
04132000 

FEJ #* INTEGER STREAM PROCEDURE ©" DECLARFD IN SEGMENT 21 aT 02441000 
02444000 02445000 02452000 

FETCH *" REAL STREAM PROCEDURE = DECLARED IN SFGMENT 3 AT 02262000 

02263000 08999475 09400000 09401000 

FF =e DEFINE =" DECLARFO IN SEGMENT 119 AT 17002008 
17025100 17080000 

FIFL = STREAM VARIABLE =" NAME PARAMETER == nECLARED IN SEGMENT 3 AT 02056000 
02058000 02059000 

FIEL = STREAM VARIABLE ©" NAME PARAMETER ©= NnECLARED IN SEGMENT 80 AT 09364000 
09365000 09366000 09367000 

FIEL we STREAM VARIABLE == NAMF PARAMETER =@ pECLARED IN SEGMENT 95 AT 13633000 
13636000 13637000 

FIEL == STREAM VARTABLE == NAMF PARAMETER = )HECLARED IN SEGMENT 96 AT 13661000 
13645000 43667000 

FIELODEC == LABEL = DECLARED IN SEGMENT 98 AT 14016000 = OCCURS AT 14269020 
14091000 

FIELDID = DEFINE == DECLARED IN SEGMENT 3 AT 09278700 
05273100 05273900 06335100 06316100 14269240 14269442 47095100 

FIELDOV 7" DEFINE =" DECLARED IN SEGMENT 3 AT 01298600 

FIL ©" STREAM VARIABLE == NAME PARAMETER "= DFCLARED IN SEGMENT 80 AT 09370000 


09372000 

FILEDFC == LABFL "= DECLAREN IN SEGMENT 98 aT 14015000 == OCCURS AT 14158000 
14020000 

FILEIN ©" DEFINE "=" DECLARED IN SEGMENT 3 AT 01299300 
14430000 


FILEV = WEFINE ==" DpECIARED IN SEGMENT 3 aT 01296000 
FILLIT == STREAM PROCEDURE == DECLARED IN SEGMENT 43 AT 05325040 
05395440 05325460 05375470 05325480 
FILUSTMT == PROCEDURE = DECLARED IN SEGMFNT 3 aT 07647000 
07677500 13396000 
FINAL ©" LABEL =" OFCLARED IN SEGMENT 86 aT 10258300 * OCCURS AT 10263900 
10264400 10264420 
FINALAX == STREAM PROCEDURE =" DECLARED IN SEGMENT 80 AT 09378000 
09384100 
FINDOPTI1ON =* BOOLEAN PROCEDURE =" PECLARFD IN SEGMENT 3 AT 02307000 
#02347000% 02316000 02327000 02967000 
FIND = LABEL °° DECLARED IN SEGMENT 108 aT 16475000 =» OCCURS AT 16495000 
16476000 16478000 16483000 16486000 16489000 
FINTS =" STREAM LABEL = DECLARED IN SEGMFNT 9 aT 02091500 "= OCCURS AT 02125500 
02095500 92096800 02099500 02110000 
FINISHEN =. LABEL ©" MFCLARFD 1N SEGMENT 32 AT 04204000 = OCCURS AT 04225000 
0429290000 
FINTISHNUMBER == LABEL = DECLARED IN SEGMFNT 24 AT 02638000 == OCCURS AT 02847000 


02230100 


FIRST we eNTEGFR ©" NAME PARAMEFTFR © DFCLAREN IN SEGMENT 3 AT 05271000 
05270000 *05273300**05274100**05260000*% 052782000 
FIRST =  wNTEGFR == DECLARED IN SEGMENT 54 AT 06314000 


4063453004806 316 300%*06320100%*06324000% 06327000 06332000 


FIRST «©  NTEGER =" DECLARED IN SEGMENT 55 AT 06339000 
06341000 06344000 

FIRSTTIME =" LABEL == PMECLARED IN SEGMENT 12 AT 02210000 ==" OCCURS AT 02213500 
02210750 


FIRSTTIME =" ROOLFAN *= DECLARED IN SEGMENT 124 AT 17069400 
17091155 #17091462e"17197920% 


FIRSTX °" REAL “" DFCLARED IN SEGMENT 3 AT 01621000 
13608000 *13612000m» 13623000 14053000 #14052000% 44600000 «14608000« 
FIRSTXO ©" INTEGER == NECLARED 1N SEGMENT 98 AT 18033000 


*14051000*« 14608000 


FIX ©" STREAM PROCEDURE =" DECLARED IN SEGMENT 21 AT 02446000 
02451000 02454000 
FIX es REAL =" DECLAREN IN SEGMENT 59 AT 07427000 
¥07430000%#07433000% 07439000 07440000 
FIX = PROCEDURE =" OFCLARED IN SEGMENT 70 aT 08082000 
08990000 08157000 08171000 
FIXC = PROCENURF == DOFCLARED IN SEGMENT 108 AT 16029000 
16057000 16141000 16233000 16236000 16238000 


FIXDEFINEINFO == REAL PROCEDURE == 
02896000 #12108000« 


DECLARFD IN SEGMENT 3 AT 12101000 == FORWARD AT 01717900 


FIXHDR = STREAM PROCEDURE ** NECLARED IN SEGMENT 81 AT 09393700 
09393750 09430075 
FIX, w= REAL © DECLARFO IN SEGMENT 114 AT 146195000 
*1621,8000*% 146233000 146238000 : 
FIX2 = REAL = DECLARED IN SEGMENT 114 AT 16195000 
*16232000% 16236000 
FL = OEFINE =" DECLARED IN SEGMENT 3 aT 01420000 
06140000 07050000 07058000 07073000 07083000 12037000 15085800 18276210 
FLAG "= PROCEDURE == DFCLARED IN SEGMENT 3 aT 05012000 == FORWARD AT 01716000 
02226500 02316000 02421000 02501009 02593000 02599000 02650000 02686500 02696000 02828000 02828000 
02899000 92959000 02962000 02976500 02977500 04013000 04176000 05101000 05106000 05119000 05344610 
05344661 05347000 05348000 05370000 06104520 06110200 06200000 07024000 07025000 07061000 07600000 
97600420 07600900 07604000 07604068 07671500 07728000 07747000 09282600 10243000 10264420 12025000 
12030000 12115000 12126000 13210000 13282000 13332000 13338000 43340000 13386000 13391000 13395000 
13400000 13404000 13651100 13729000 13753000 13754000 13758000 143761000 13763000 143766000 14066000 
14135000 14136000 14136100 14137500 14146000 14153000 14161080 144165000 14168000 44187000 44220000 
14263000 14269820 14286000 14295000 14311000 14326000 14333300 18337000 14339000 144346000 14354000 
14358000 14371000 14442000 14466000 14508000 15376600 16033000 146071000 16163000 16171000 416265000 
16434100 
FLYPFLOP = gO0O0LrFAN == pecbaRen IN SEGMENT 97 at 13750500 
#13752000e81 3755500» 
FOOT ©= INTEGER @" NMECLARED IN SEGMENT 70 AT 080913000 
#08462000% 08166000 
FORLIST = PROCEDURE = DECLARED IN SEGMENT 69 aT 08080000 
08456000 08172000 06231000 
FORMAL ©" DEFINE ==" DECLARED IN SEGMENT 3 AT 01449000 
05209000 05218000 05236000 07070000 09433800 43202000 143244000 44497000 
FORMALF == BOOLEAN == DECLARED IN SEGMENT 3 AT 01591000 
07400000 07411000 #132020004413328000%413341100%«13343000% 13372000 *16000400« 
FORMALNAME ©" DEFINE ** DECLARED IN SEGMENT 107 AT 15076110 
15092200 15100000 © 
FORMALV ©" DEFINE °* DFCLARED IN SEGMENT 69 AT 08014000 
08212000 08217000 08227000 


08056000 08065000 08098000 08108000 08130000 08179000 


FORMATBrT 7 peFINE == DECLARED IN SEGMENT 3 AT 04000950 
02567000 14461500 1444893500 
FORMATOR =|" NEFINEF "= OFCLARED IN SEGMENT 3 AT 01001240 
14461500 14493500 
FORSTMT == PROCEDURE =* DECLARFD IN SEGMENT 3 AT 08008000 e# FORWARD AT 03052000 
07755000 08232000 
FORV == EFINE ** OFCLARED ¥N SEGMENT 3 AT 01223000 
FORWARDRRANCH = INTEGFR == MNECLARED IN SFGMENT 70 AT 08091000 
#08152000% 08157000 08169000 08174000 
FORWARDREF ** DEFINE =" DECLARED IN SEGMENT 3 AT 01007485 
14469100 17092000 
FORWARDV == DEFINE ©» DECLARED JN SEGMENT 3 AT 01254000 
14467000 
FORWART ** REAL =" VALUE PARAMETER = DECLARED IN SEGMENT 70 AT 08084000 
08082000 08083000 08086000 
FOULED = REAL © OFCLARED IN SEGMENT 3 AT 01583100 
#089 49500%#041540004#04207500%407 48 3500440749 1500%#076040108%14505000« 
FOUND © = LABEL == DFCLARED IN SEGMENT (8 aT 02309000 == OCCURS AT 02315000 
02313000 
FOUND #" LABEL ©" DECLARED IN SEGMENT 32 aT 04204000 = OCCURS AT 04221000 
04209000 
FOUNDLB °° BOOLEAN ®"" NMECLARED IN SEGMENT 103 AT 14269080 
#19269360e414269440" 18269660 
FP = DEFINE °°" PECLARED IN SEGMENT 3 aT 01420000 
06164000 15102400 15305000 
FPART = LABEL = DrcLARED IN SEGMENT 24 aT 02639000 "= OCCURS AT 02790000 
02682000 
FR = DEFINE ©* DECLARED IN SEGMENT 3 AT 01420000 
08298000 15301700 
FR #2 INTEGER ee VALUE PARAMETER = PECLARED IN SEGMENT 3 AT 03002000 
FR = INTEGER © VALUF PARAMETER = HECLARED ¥N SEGMENT 3 AT 13657000 
13677100 43677950" 13677300 | 
FRMTIN =" DEFINE 7" DECLARED IN SEGMENT 3 AY 01462000 
FROM = BOOLEAN ©" VALUE PARAMETER =" DFCLARED IN SEGMENT 3 AT 03011000 
FROM 2 BOOLEAN =* VALUE PARAMETER = DFCLARED IN SEGMENT 3 AT 03029000 
FROM es INTEGER @=* VALUE PARAMETER *= DrCLARED IN SEGMENT 3 AT 03037000 
03036000 
FROM es INTEGER == WAME PARAMETER =" DECLARED IN SEGMENT 3 AT 03038000 
FROM = {INTEGER ©* VALUE PARAMETER = DECLARED IN SEGMENT 3 AT 00116000 
04114000 04115000 04120000 04120100 04190500 
FROM = BOOLEAN =" VALUE PARAMETER "= DFCLARED IN SEGMENT 3 AT 06194000 
06198000 
FROM = BOOLEAN ©" VALUE PARAMETER °™ DreCLARED IN SEGMENT 3 AT 07391000 
07402000 07408000 ‘ 
FRONT #* INTEGER ** DECLARED IN SEGMENT 64 aT 07491000 
#07493000% 07496000 
FRSTLEVrL oe" INTEGER =" DECLARED IN SEGMENT 3 aT 01402000 
05116000 #{4478000« : 
FS == DEFINE ©" DECLARED IN SEGMENT 3 aT 01420000 
07739000 45089600 15098200 15099200 15184200 45186800 45276400 15276410 145276160 145276490 
15304300 15306400 15306700 
FUNCMONFILE =" DEFINE == DECLARED IN SEGMENT 3 aT 01543000 
FUNCTOG ©" BOOLEAN = WECLARED IN SEGMENT 3 AT 01586000 


13736000 14054000 14187000 #1427500044142880004614296000% 14411100 14415100 14852000 44478000 «14599000» 


FUNCTOGO °= BOOLEAN © DECLARED IN SEGMENT 98 aT 14034000 
— #14054000% 14599000 
FWHSEQNO == STREAM VARTABLE =" VALUE PaRaMeTER == DECLARED IN SEGMENT 124 aT 17047300 
17047400 17050700 147051000 


15300800 


oe ee ee ee ee ee er ee | 


FWDSEQNO *" OWN REAL © DFCLARFND IN SEGMENT 129 AT 17094150 
#1709260004170934008% 17094900 
FWOTOG == ROOLFAN © DECLAREN IN SEGMENT 104 AT 14274000 
#14276000%*14312000e 14333100 14373000 
FWOT0G fe STREAM VARTABLE ©" VALUE PARAMETER "= DECLARED IN SEGMENT 124 aT 17047200 
17047800 147050600 
FWOTO0G *= OWN BOOLEAN #= DECLARED IN SEGMENT 129 AT 17094110 
#17093300% 17094800 +*17095400% 
FZERO ©" WEFINE =" HECLAREN IN SEGMENT 3 aT 01692000 
05344592 05344662 05375100 14078000 
6 "=" REAL "* DECLARED 1N SEGMENT 3 AT 01610000 
#13231000e 13236000 *13718000% 13723000 «137240008 13726000 *13727000*% 13729000 #140848000*« 14085000 
#14115000%414116000e 14117000 #14278000%414281000% 18288000 14292000 44298000 142960008 144298000 
— #14340000e 14315000 *14349000%614352000% 14353000 614446000m 14449000 #14470000" . 
GENERATr ae aeaney “= necbLaRed «N SEGMENT 116 AT 16313000 == OCCURS AT 16345000 
16322000 
GEQ ©" DEFINE = DECLARED IN SFGMENT 3 af 01647000 
06050000 
GET ©" JINTEGFR PROCEDURE °* DECLARED IN SFGMENT 3 aT 05307000 == FORWARD aT 03019000 
04102000 04105000 04182000 4#05312000* 07604050 07607000 07608000 07646660 08086000 143235000 
132467000 143273000 14168000 16032000 16092000 
GETF ° INTEGER STREAM PROCEDURE ** DECLARED IN SEGMENT 2 aT 00523000 
00524000 *00526000* 00527000 00529000 
GETLP == LABEL == prcLARED IN SEGMENT 99 AT 14076000 =» Oc¢cuRS AT 14084000 
14089000 
GETSPACF = {INTEGER PROCEDURE =e DECLARED IN SEGMENT 3 AT 05331000 == FORWARD AT 03051000 
05132000 *05375000# 05378000 08162000 43347000 44044000 
GETSYL = INTEGER STREAM PROCEDURE == DECLARED 1N SEGMENT 42 AT 05309000 
05340000 05312000 
GETVO1D == STREAM PROCEDURE ©" ODECLARED IN SEGMENT 3 AT 01756000 
01784000 02410000 02485000 
GIT e= INTEGER PROCEDURE © DECLARED IN SEGMENT 3 AT 05123000 == FORWARD aT 01719000 
02901000 #05124000% 06104300 07410000 07442000 07438000 07441000 07527000 07539000 07604000 
13257000 18388;00 144438000 14483400 15376300 16070000 16089000 16138000 16163000 446254000 
GNAT == INTEGER PROCENURFE =" DrcLARFO IN SEGMENT 3 AT 05128000 == FORWARD AT 03020000 
#051310004405132000% 05133000 05316000 07516300 43267000 
GNe #™ STREAM LABEL == DECLARED IN SEGMENT 9 AT 02091500 == OCCURS AT 02104000 
02097000 
GOGEN == PROCFNURE ee fECLARED IN SEGMENT 3 AT 07535000 = FORWARD AT 03023000 
07518000. 07529000 07545000 07572000 07573000 07575000. 07883000 13274000 
GOMcP oo = LABEL =" OrcbLaRED IN SEGMENT 62 aT 07504000 
GOSTMT == PROCEDURE == DFCLARED IN SEGMENY 3 AT 07501000 
07531000 07763000 
GOT ©" Real ARRAY = NAME PARAMFTER = fHECLARFD IN SEGMENT B81 AT 09393060 
09393050 093933430 09393170 09393490 


—GOT0G =" ROOLEAN = DECLARED IN SEGMENT 66 AT 07646430 


*07646520% 07686540 

GOTOS ee PROCEDURE ee DECLARED IN SEGMENT 108 AT 16249000 
16270000 1¢64540000 16487000 

GOTSCHK == LABEL == DECLARED IN SEGMENT 98 AT 14036000 8 OCCURS AT 14160000 
GOTSTORAGE «= BOOLEAN «== VALUE PARAMETER =e ODEFCLARED IN SEGMENT 3 AT 13733000 
a at 43731000 43732000 . 
GOTSTORAGE *= BOOLEAN = DEEGLARED IN SEGMFNT 98 AT 14025000 

#141460000% ; 
GOV e= DEFINE "= DECLARED IN SEGMENT 3 AT 04232000 

07890000 07556000 07646595 

GRINCH °* REAL ARRAY © NAMF PARAMETER © DECLARED IN SEGMENT 81 AT 09393060 


14091000 
14299000 


13258000 


13249000 
16257000 


@eoeee%eeeeeeeeeeeeeeeeeee é. 


GRYNC 


09393050 09393730 09393170 09393190 
H or REAL ARRAY or NAME PARAMETER == DECLARED IN SEGMENT 81 AT 09393950 
09393240 09393350 09393400 09393430 


GS se INTEGER = VALUE PARAMETER = DECLARED IN SEGMENT 3 AY 05325010 


05325460 05325470 05325480 


GS =» INTEGER == DECLARED IN SEGMENT 44 AT 05349000 


GTal 


GT1i 


GTR 
GTR 


GT! 


GT! 
GT! 


#95 3495994405 344600 «405344645 #405 3446204405 344660% 05344664 *053446624%05 340700" 05344720 053447408 05344750 
*05350000% 05350160 05350200 #05371000#«05373000" 05375000 05375100 *05376000*% 05376100 
em Real aRRaY == npeclhaRED IN SEGMENT 3 AT 01697000 
13210000 #13351000« 13381000 #13408500" 13718000 13724000 13727000 #14069000%%14129000" 14134000 14161000 
14161020 14164000 14259000 14259010 414259015* 14259080 14278000 14284000 14296000 
em INTEGER ©" neEcLARED IN SEGMENT 3 aT 01384500 
#021925004#02193000% 02193250 
em DEFINE ©" DECLARED IN SEGMENT 3 AT 01650000 
=" DFFINE "=" DECLARED IN SEGMENT 119 aT 17002000 
17979000 
ee REAL == DECLAREN IN SEGMENT 3 AT 01384000 
#02203500m% 92205000 *024520004 02456000 «02652000 02653000 02655000 «*02658000" 02659000 02716000 ¥02719000% 
02720000 #02723000«402823000% 02830000 «02832000* 02833000 02834000 02838000 02839000 *02878000« 02876000 
02877010 02878000 02879000 02881000 02882000 02882100 «02886000% 02894000 #04105000« 04107000 04409000 
041440000 #£94120100%604120500% 04121000 04122000 «04508000% 04521000 04523000 04524000 #05116000* 05447000 
#05231000% 05233000 *£05235000%4%05447000% 05449000 «07042000% 07043000 07084000 #07066000% 07067000 «074360008 
#07539000*% 07540000 07544000 07545000 407600950«%07727020" 07727070 *07994000% 07995000 #08058000s 08060000 
#09034100e 09034900 09133800 409133900%40941 34000" 09434100 09434200 *09253000*% 09253500 09254000 09255000 
#99644040e 09414080 09414090 «09415000 09445500 409446000%409417000% 09418000 #10250000% 10251000 «13226000« 
13232000 13240000 13244000 13248000 «13251000%#13256000% 13259000 «132730008 13274000 #13280000«% 13282000 
#13371000% 13373000 *14039000% 14041000 14116000 #14333300«#14425000% 14427000 14429000 14430000 44437000 
14447000 #14483200% 14483300 *15098000* 15101000 15101600 #15295100« 15296000 «16254000 46255000 46257000 
16258000 16260000 162765000 «16452000 
e~ INTEGER ==" NecbLaREp tN SFGMENT 101 AT 14203000 
*142060004#14221000% 14224000 
wm Real ©" DECLARED IN SEGMENT 113 AT 16157100 
*16159000% 16163000 16164000 16166000 16171000 16173000 
e\e= RealL == pECcLAREN IN SEGMENT 3 AT 01384000 
#02721000« 02723000 *02834000%%02839000%02876000% 02877010 02878000 02879000 02881000 02882000 #05233000* 
05234000 *95448000*% 05450000 *07539000*% 07545000 #07601000* 07604040 07604050 07604060 07604070 07604090" 
07605000 07607000 07607100 07608000 «076090004#09133800% 09133900 09134000 «091341008132840008 13285000 
13286000 #14430000« 14431000 #14446000m 14448000 416163000% 16167000 16172000 #16254000# 16255000 46266000 
e* INTEGFR =" necbaRep IN SFGMENT 101 AT 14203000 
#14247000" 14224000 
e- Real == DECLARED IN SEGMENT 3 AT 01364000 
#05402 1004#05405000%%054070004905409000%405478000%4054 300008407 3974004407 3975008407597000% 07528000 ¥07601000" 
07610000 £091347,00m 09134200 #£13285000* 13287000 «144380004814683400" 
e= Real == pecLaREN IN SEGMFNT 3 at 01384000 
02904000 £06104 3004406 1045004406 104510%406104520% 06104600 «07527000%#07528000% 07529000 #07601000« 07603000 
07610000 #13235000« 13238000 
e° INTEGER =" DFCLARED IN SFGMENT 101 AT 14203000 
ee Real «© PECLAREN IN SEGMENT 3 AT 07384000 
#07098000% 07029000 #07604050*" 07604080 07604090 *07607000« 07609000 
ee INTEGER »= PAFCLARED IN SEGMENT 103 AT 14203000 
#01898000*% 01833000 071835000 
STREAM VARIABLE =* DECLARED IN SEGMENT 38 aT 05068000 
05071100 95071200 05085000 
REAL °° VALUE PARAMETER #= )NECLAREN IN SEGMENT 3 AT 05315000 
05316000 
Fo .'7 BOOLFAN STReAM PROCEDURE == HFCLARED 1N SEGMENT 3 AT 02001858 
*02001897" 02001898 
#= MEFINE ©* WECLARED IN SEGMENT 3 aT 01268000 


OCCURS AT 14382000 


05278100 
05344710 «05344770« 
06166000 06185000 06315300 
06326000 407008000040703j000% 07066000 
07518000 07521000 


05274200 


05216000 
05280000 
05350120 
06315400 
07070000 
07554000 


05217000 
05281000 
05350160 
06316300 
07070500 


#07556000« 
07604020 #07604130«#07604150¥407646525« 
07748000 £07749000%407750000%407751000% 07768100 #077684 304007768170 %607768180% 07994000 
08037000 %08110000e 08111000 #08120000%#08174000% 08176000 #08223000%%09391000« 


05218000 
05344570 
05350180 
06316400 
07074000 
07566000 
07667000 


05221000 


#953848600% 


06016000 
06320100 
07396000 
07572000 


*07727040% 


#09414030% 09414040 4094141004 «094515000 09418000 4094190004094 200204809424000% 09426000 409427000" 09427100 


16212500 «16252000 
16435000 *16449000%«16450000» 


*14067000% 


14269520 
14519000 
15302000 


09447030 
13361000 
14129000 
14269540 
15077000 
15302100 
16254000 


DECLARED 1N SEGMENT 44 AT 05334400 


05409500 


DECLARED IN SEGMENT 3 AT 05400000 


05425100 *05425400% 054296000 #05430000*% 05430500 


06073000 06089N00 
HF ee LABEL *= DECLARED IN SEGMENT 98 AT 44047000 &= 
14123000 14508000 
HOLE = REAL =" DECLARED IN SEGMENT. 58 AT 07393000 
#07396000*% 07398000 07410000 07412000 
HTTEOAP ©" PROCEDURE = DECLAREN IN SEGMENT 3 AT 13731000 
13747000 14489000 14600000 
HVS1 "= STREAM PROCEDURE =" DECLARED IN SFGMENT 122 AT 17036000 
17042600 
HV 4 PROCEDURE "=" DFCLARED IN SEGMENT 122 AT 17042400 
17045000 
HV2 PROCEDURE =" DFCLARED IN SEGMENT 124 AT 17112000 
17119900 
tf 7"  NTEGER =" DECLARED IN SEGMENT 3 AT 01319000 
#029 17000%*05002000% #0500 30004405 107000%%051071008805107200% 05489000 
05222000 05224000 «05225000 05273300 05273400 
05344615 95344620 05344660 £05344670« 05344700 
06044000 06072000 06104300 06108000 
06320200 06324000 063275000 
07397210 07401000 07430000 07516000 07516300 
07383000 075990900 «07600200%%07600500% 07600950 
407727060% 07745000 
07995000 08029900 08034000 
#09427500%%09432000% 09433000 09434000 «09436000#409447020« 
12936000 12044000 13200000 13310350 «13324000" 43344300 
13761100 13767000 13768000 14062000 144063000 
*194255000us1 4264 000K414269f40% 14269406 14269448 
14353000 *14360000% 14399000 *14408000*% 14536000 
15184800 145184850 15276030 *15276040« 15301900 
16200000 16204000 16208000 16211000 
16370000 16376000 16379000 16408000 16442000 
#17004700% 17004710 
I oe" i NTEGER = DECLARED IN SEGMENT 33 AT 04237000 
*04939000% 04247000 *04742000* 04243000 
I ** STREAM VARIABLE == NAME PARAMETER == 
05334400 053344600 
I 7" REAL ©= VALUE PARAMFTER” ee 
05402000 05402900 05402300 05404000 05409200 
1 °°" REAL "=" DECLARED JN SEGMENT 46 AT 05414000 
#05494000e 05425000 
1 ** STREAM VARIABLF == VALUE PARAMETER =© 


1 = 
Ie 
Io 
{ = 
1 
I= 


I (Raed 


05419000 
REAL 7 
*05498000% 05445000 
INTEGER = 
#086999475% 089999295 


05447000 
08999350 


05431000 


DECLARED IN SEGMENT 46 AT 05415000 


DFCLARED IN SEGMENT 47 AT 05438000 
05455000 *054560008#05458000% 05459000 
DECLARED IN SEGMENT 71 aT 08999050 


DECLARED IN SEGMENT 96 aT 13673100 


INTEGER == DECLARED IN SEGMENT 72 AT 08999500 

#08999505«% 08999550 08999650 

REAL = DECLARED IN SEGMENT 83 AT 09393270 

#09393300e 09393310 

DEFINE =" DECLARED IN SEGMENT 86 aT 102586200 
19277000 10282000 

STREAM VARIABLE == NAMe PARAMETER @e 
.13673300 13673400 

tNTFRER #* VALUE PARAMETER = 


17002015 17002020 17002040 


DECLARED IN SEGMENT 119 AT 17002020 


09447040 12015000 
13372000 13394000 
#141372004414189000% 
14314000 «14332000 
15091400 15091600 
16000700 16121000 
16321000 16329000 


16482300 46489000» 


12020000 
137534100 
14220000 
14349000 
15094800 
16124000 
16342000 


12024000 


*13757000« 


14221000 
14352000 
15184750 
161459000 
16344000 
16495100 


1 *= INTEGER =" VALUE PARAMETER == DECLARED IN SEGMENT $49 AT 17002055 
17002050 147002055 417002075 
1 ="  NTEGER == DECLARED IN SEGMENT 125 AT 147054400 
*17054600*% 17054800 170550;0 
I 7" MEFINE *= DECLARED IN SEGMENT 127 AT 17073400 
17079000 147080000 
I 7° REAL =" DECLARED IN SEGMENT 129 AT 17091120 
*17094900*% 17095000 17095100 17095300 17095310 
1D “= ReEaL @*" NECLARED IN SEGMENT 18 aT 02310000 
#02342000% 02313000 
10 ** STREAM VARIABLE == VALUE PARAMETER = DFCLARED IN SEGMENT 38 AT 05067000 
05070000 
1D oe ls VARIABLE == NAME PARAMETER = DECLARED tN SEGMENT 83 AT 05325040 
325320 
1OB1T =© BOOLEAN =" DECLARED IN SEGMENT 57 aT 07039000 
*070R7000% 07050000 07068000 07082000 
TOBLDR = STREAM LABEL ==" DECLARED IN SEGMENT 9 AT 02091500 == OCCURS AT 02110500 
02095000 02103000 
IDENT =" LABEL == DFCLARFD IN SEGMENT 24 aT 02639000 = OCCURS AT 02865000 
02643000 
IDMAX ©" NWEFINE © MECLARED IN SEGMENT 3 aT 01479000 
05304520 06106300 07664000 13337000 13754000 746213000 146253000 16482300 17047100 47095000 
IDNOF ©" WEFINE =" NECLARED IN SEGMENT 3 aT 01007410 
02001660 02001795 17025400 17042350 17091900 147093850 17094050 17094400 
1OTYPr = REAL ARRAY = DECLARED IN SEGMENT 124 AT 17047100 
#17084010% 17094900 
IDV =" DFFINE =" DECLARED IN SEGMENT 3 AT 01651000 
IFCLAUSF = PROCEDURE ==" DECLARED IN SEGMENT 3 aT 06409000 = FORWARD AT 03018000 
06296000 07563000 
IFFXP ©  NTEGER PROCEDURE "= DECLARED IN SEGMENT 3 AT 06294000 "=" FORWARD AT 03013000 
06005000 *062990008 06311000 
IFS = PROCEDURE = DECLARED IN SEGMENT 108 AT 16191000 
16239000 46486000 
IFSB ee See aen == DECLARED IN SFGMENT 114 aT 16193000 == OCCURS AT 16216000 
16194 
IFSC = LABEL == DECLARED IN SEGMENT 194 AT 16193000 == OCCURS AT 16207000 
16194000 
IFSTMT = PROCEDURE == DECLARED IN SEGMENT 3 AT 07561000 == FORWARD AT 03022000 
07587000 07761000 
IFSW = SWITCH LABEL ©" DECLARED IN SEGMENT 114 AT 16194000 
16197000 | 
IFTOG ©" LABEL == OFCLARED IN SEGMENT 114 AT 16493000 == OCCURS AT 16217000 
16194000 16215000 
IFV =" DFFINE = DECLARED IN SEGMENT 3 AT 01231000 
06004000 
IMPFUN e PROCEDURE == DECLARED IN SEGMENT 3 AT 06183000 e= FORWARD AT 03039000 
06158000 
INCR = OEFFINE == DFCLARED IN SEGMENT 3 AT 01153000 
02658000 051420000 05189000 05222000 06080000 06189000 43206000 43240000 43307000 44746000 
15295100 
INCRF ** REAL °° DECLARED IN SEGMENT 3 AT 01607000 
#13206000% 13769000 14314000 
INnDEC roe ees e- DFCLARED IN SEGMENT 98 aT 140149000 = OCCURS aT 14158000 
1404 0 
INDEX ©" REAL =". VALUF PARAMETER "=" WECLARED 1N SEGMENT 3 AT 02001650 
02001640 02001645 02001660 02001695 
INDEX =" REAL = VALUE PARAMETER == NnECLARED 1N SEGMENT 3 AT 02001750 


15255000 


02001740 02001745 02001795 02004805 02001810 02001815 02001820 02001822 
INDEX #* YWNTEGFR == VALUE PARAMETER @= peEcLARED IN SEGMENT 3 AT 03053000 
INDEX #*  tNTEGER @= VALUE PARAMETER *= DECLARED IN SEGMENT 3 AT 05005000 
05006000 
INDEX =" REAL = VALUE PARAMETER == pECLARED IN SEGMENT 3 AT 05008000 
05009000 
INDEX =" REAL = VALUE PARAMETER = PECLARED IN SEGMENT 3 AT 07036000 
07035000 07042000 07098000 
INDEX ©" MEFINE ©" DpFCLARED IN SEGMENT 65 AT 07595000 
07601000 07610000 
INDEX »* INTEGER == DECLARED IN SEGMENT 176 AT 16314000 
*163200004*16328000%*16334000* 16346000 146349000 
INDEXS © PROCEDURE »* DECLARED IN SEGMENT 108 aT 16311000 
16355000 46490000 
INFO == REAL ARRAY “= DECLARED IN SEGMENT 3 AT 01007000 
02001805 02212250 02214250 02214260 02226000 02234750 02234900 02265600 02265700 02265850 02265950 
02368000 02410000 02485000 02602800 02877010 02878000 02879000 02881000 02923000 04172000 04187000 
04209000 #04210000%404211000% 04221000 «042230008 05006000 *05009000* 05039500 05045000 05088000 «05233000* 
05325470 05350160 05350200 05426000 05431000 05449000 05450000 07086800 «08035000« 09034200 09034500 
«09085000 4#09121650% 09253500 09254000 09255000 09384100 09386000 10251000 10254000 10264800 4121147000 
13281000 13310000 *13593000*% 13677300 14440000 #170251004#17025300* 17080000 
INFO "= STREAM VARIABLE °* NAME PARAMETER ©" neECLARED IN SEGMENT 3 AT 02005000 
02006000 
INFO = STREAM VARIABLE °* NAME PARAMETER =" nECLARED IN SEGMENT 19 AT 02320200 
02320600 
INFO =» ReAL ARRAY "= MECLARED JN SEGMENT 83 AT 09392500 
09406000 09427500 09447060 
INFO == Pa VARTABLE °° NAMF PARAMETER = MmECLARED IN SEGMENT 87 AT 10236000 
1023 0 
INLINE ** PROCEDURE == OFCLARED tN SEGMENT 3 AT 13748000 = FORWARD AT 03010000 
07746000 43774000 
INLINETOG #*= BOOLFAN e= DECLARED IN SEGMENT 3 AT 01695500 
13307500 «43752000%«13770500% 
INPUTS = BOOLEAN PROCEDURE == DECLARED IN SEGMENT 122 aT 17006000 
*#17072000«" 17045000 
INPUTD = BOOLEAN PROCEDURE == MECLARED IN SEGMENT 124 AT 47070000 
#17082000% 17119000 
INT = OWN BOOLEAN = DECLARED {N SEGMENT 69 AT 08012000 
*08060000« 08070000 
INTARRAYID. *" DEFINE =" DECLARFO IN SEGMENT 3 AT. 01205000 
04592000 08057000 15185200 15304200 
INTBIT @* PEFINE = DECLARED IN SEGMENT 3 AT 01000960 
02577000 09253050 09253100 09394100 09444010 09430050 13651100 
INTEGERNEC °°" LABEL =" DFCLAREN 1N SEGMENT 98 aT 14013000 == OCCURS AT 14141000 
14048000 
INTID ©" NEFINE =" DECLARED IN SEGMENT 3 aT 01201000 
04509000 08038000 08061000 12935000 42042000 44141000 45085200 48098000 
INTNAMETD #= OFFINE #* DECLARED IN SEGMENT 3 AT 01205400 
INTOG =" HWEFINE =" pMECLARED IN SEGMENT 3 aT 01001250 
02577000 09753050 09253100 09394400 09414010 09430050 43651400 
INTPROCID ©" OFFINE ©" DECLARED IN SEGMENT 3 AT 01197000 
. $3278000 14294000 15078000 
INTRINSTCANR =" DEFINE ©" DECLARED IN SEGMENT 3 AT 01299500 
09253100 
INTRNStcPRO¢IpD == DEFINE =" DECLARED IN SEGMENT 3 aT 01188000 
INTSTRPROCTIN == DEFINE == DECLARED IN SEGMENT 3 AT 01193000 
14284000 


@®eeeeeeeee%sreeseeeeeeeeee&ee#s 


INTV #8 NFFINE == DECLARED IN SEGMENT 3 AT 014265000 
INV w= DEFINE =* DECLARED IN SEGMENT 3 AT 01290000 
INX we DFFINE =* DECLARED IN SEGMENT 3 AT 01652000 
04534000 07091000 45301600 15305600 
IOCLASS =*" OEFINE == PFCLARFD IN SEGMENT 3 aT 04233000 
FOSTMT *= PROCEDURE =" DECLARED JN SEGMENT 3 AT 07993000 ==" FORWARD AT 03012000 
07765000 
IPART =" LABEL ** DFCLARED IN SFGMENT 24 aT 02639000 == OCCURS AT 02758000 
02643000 
1S se LABEL == DECLAREN IN SEGMENT 36 AT 04501000 "= OCCURS AT 04548000 
04527000 04540000 
18h 9°" DEFINE ©= DECLARED IN SEGMENT 3 AT 04653000 
15098400 145276400 15304300 
ISKIP #* STREAM VARIABLE =" VALUE PARAMETFR *= DECLARED IN SEGMENT B87 AT 40236000 
19237000 10238000 145098800 45276100 15304300 
ISOLATE =" DEFINE ==" DFCLARED (IN SEGMENT 3 AT 04270000 
06092000 
J oo" REAL *= DECLARED IN SEGMENT 3 AT 01618000 
#1324 0000441 3324000«#13333500%413342000% 13351000 «133810008#13408500041371 8000KH137240008%1 3727000841 40690008 
#14129000« 14132000 14134000 #141350008% 1413600044 14136 100K 144 376008H 14161 000H414161020K%94164000K4 14278000" 
#142810004%1427960004414421000% 14425000 14438000 14440000 44445100 144446000 14448000 #14449000« 
Joo" NTeaeR =" DECLARFO IN SEGMFNT 31 aT 04166000 
#04170000% 04172000 04187000 
Joos" REAL "= DECLARED IN SEGMENT 45 AT 05404000 
#05405000%%05406000% 05407000 
Jos" REAL * DECLARED 1N SEGMENT 46 AT 05414000. 
#05478000%*05429000% 05430000 
Joo** REAL "=" DECLARED 1N SEGMENT 47 AT 05438000 
#05444000% 05446000 05448000 05452000 405453000% 
J 9°" REAL == DeCLARFD IN SEGMENT 58 AT 07393100 
~ 407397300" 07397400 
Jo" NTEGER == DECLARED IN SEGMENT 66 AT 07646410 
#07646630% 07646635 *07646645* 07646650 *07646660* 
J oe = INTEGER ©" DECLARFO IN SEGMENT 71 AT 08999050 
#08999125*% 08999975 *08999275* 08999350 


J 2 INTEGER ==© DECLARED IN SEGMENT 72 AT 08999500 
*08999625*% 08999650 08999700 «08999750 
J oe*  NTEGER =" DECLARED IN SEGMENT 81 AT 09393010 
*0944H022% 09444024 %*094140264409414030%409414060% 09414070 094614110 %09420020%4094250008409428000e«09447050% 
09447060 09447080 
J 7" REAL °°" DECLARED IN SEGMENT 83 AT 09393270 
%09393290% 09393350 *£09393360% 09393400 409393420u 09393430 «09393450« 
Joe" RealL *" Valite PARAMETER =" peclAREn IN SrGMENT 3 aT 10228000 
19263110 10264600 10264900 
J oo«= STREAM VARJABLE = VALUE PARAMETER #= DECLARED IN SFGMENT 86 AT 10257100 
49957500 *10257700* 
doo°* REAL == DECLARED IN SEGMENT 89 AT 121027000 
*12116000# 12117000 12126000 
J o©* REAL "= DECLARED IN SEGMENT 914 AT 13223000 
#13232000% 13239000 #13257000##13258000m 13264000 «13265000«% 13270000 #13271000s 
J oe" INTEGER ©" DECLARED IN SEGMENT 97 aT 13750000 
#13765000» 
J "" REAL ©" DECLARED IN SEGMENT 102 AT 14254100 
*14259010 06014259015 eu14259080% 14259150 14266000 
J oe STREAM VARIABLE = VALUE PARAMETER ©" DECLARED IN SEGMENT 102 AT 14254200 
_. £4254500 . 
J *" REAL &* DECLARED IN SEGMENT 107 AT 15075000 


*#15234000% 15255000 15266000 *15280000* 15290000 15296000 15301100 15305200 


m= INTEGER =" DECLARED IN SEGMENT 116 AT 16314000 
#163480004«16349000« 
e7 INTFGFR =" DECLARED IN SEGMENT 117 at 16364000 
wi6387000*% 16389000 *16392000% 16393000 
e= NTEGER "" DECLARED IN SEGMENT 120 at 17002030 
*17002035*" 17002040 
ee NTegeR =" pecLaARFD IN SEGMENT 121 at 17002065 
*17002070" 17002075 
em NTFGER =* DECLARED IN SEGMENT 125 Ary 17054400 
*17054900*« 17055010 17055020 
JEDEN == INTEGER == DECLARED IN SEGMENT 15 AT 02264100 
#02265000% 022765;00 *02265350*% 02265450 02265600 02265700 02965850 07268950 
JFc =" DEFINE "" DECLARED IN SEGMENT 108 aT 16016000 
162419000 
JFW oo" DFFINE "" NpECLARED IN SEGMENT 108 aT 16007000 
16079000 16232000 
JNS ©" DFFINE "= DECLARED IN SEGMENT 108 aT 16023000 
16453000 
JOINFO ©" REAL ©" DECLARED IN SEGMENT 3 AT 01482000 
161297000 *16128000% 16134000 16138000 16139000 *16143000% 16440000 *46442000*% 16445000 46447000 
JOINT =" REAL =" DECLARED IN SEGMENT 112 aT 16118000 
*16127000*" 16143000 
JRV  @" DEFINE ** DECLARED IN SEGMENT 108 aT 16009000 
16079000 . 
JUMPCHAIN @* PROCEDURE == DECLARED IN SEGMENT 108 AT 16085000 
16097000 16139000 16173000 
JUMPCHKNX ©" PROCEDURE == DECLARED IN SEGMENT 3 AT 13616000 == FORWARD AT 03058000 
14165000 14387000 
JUMP CHKY re pea reuce =~ DECLARED IN SEGMENT 3 aT 13596000 "= FORWARD AT 03059000 
14506000 
JUMPCTR == INTEGER = DECLARED IN SEGMENT 3 AT 01459000 
14497000 *14499000« 
JUMPLEVEL == REAL == MECLARED IN SEGMENT 3 AT 07485000 
16260000 16265000 *16269000¥#16433000%%16435000* 16452000 
JUMPS »* PROCEQNURE *= MECLARED IN SEGMENT 108 AT 16433000 
16455000 16493000 
JUMPV #=* DEFINE =" DECLARED IN SEGMENT 3 aT 01242000 
JUNK "= MEFINE *'" DFCLARED IN SEGMENT 3 AT 01430000 
K = REAL ©" DECLARED IN SEGMENT 3 AT 01693000 
*14085000% 
K = STREAM LABEL =" MFCLARED IN SEGMENT 9 AT 02091500 "= OCCURS AT 02099000 
02099000 | 
K =" REAL *= DECLARED IN SEGMENT 45 AT 05401,000 
«054050008 05406000 
K ee REAL *= DECLARED IN SEGMENT 46 AT 05414000 
*05498000* 05429000 
om REAL = DECLARED IN SEGMENT 47 AT 05438000 
#05448000% 05452000 *05454000% 05455000 *05457000" 
ee INTEGER =" DECLARED IN SEGMENT 66 AT 07646415 
*07646635% 07646640 
K *" PEFINE = DECLARED IN SEGMENT 69 aT 08016000 
08033000 08034000 08035000 08094000 06180000 08223000 08232000 
K ="  NTEGER =" DECLARED IN SEGMENT 72 aT 08999050 
#08999200%«08999975m 08999350 
K ©"  NTeaeER ** DFCLARFD IN. SEGMENT 81 AT 09393010 
#09447030% 09447060 
K = REAL = PECLARED IN SEGMENT 86 AT 10258100 
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*#10263200% 10263800 *1027642008410264400% 
REAL ™" DECLARED 1N SEGMENT 89 AT 12102000 
*12109000*" 12117000 12118000 12121000 
STREAM VARIABLE =" VALUE PARAMETER ©" DECLARED ITN SFGMENT 89 AT 12103000 
12104000 
REAL *" DECLARED IN SEGMENT 102 AT 14254100 
*14259010% 14259080 14259090 
STReaM VARTABLE == VALUE PARAMETER =" DECLARED IN SEGMENT 102 AT 14254200 
14254400 
1NTEGER == DECLARED IN SEGMENT 117 AT 16364000 
*16389000« 
INTEGER = DECLARED IN SEGMENT 125 AT 17054400 
*17055010«417055020*% 17055025 
Real =" VALUPF PARAMETER =" DECLARED IN SEGMENT 3 aT 04231000 
04239000 04241000 
em REAL *"= ODFCLARED tN SEGMENT 3 AT 01603000 
05350100 05350200 #132010008«13226000* 13246000 13278000 4#133335004%13342000% 13372000 #13677200m 13677300 
#16000300« 


e= ROOLEAN =" nECLAREN IN SEGMENT 27 AT 02973500 


«029748500 02978500 
INTFGFR =" ODECLARFD IN SEGMENT 3 aT 01428000 
02195000 02195750 02214200 02228750 02421000 04086000 04402000 #041050008%04109000*% 04149000 ¥04420000« 
#041 240004604145000% 04147000 04149000 404151000%%04172000« 04175000 04182000 #04185000%%04186000% 04207500 
04210000 #04216000% 04218000 04223000 04279000 04282500 04293000 04296000 «04298000%#04300000s 05038000 
*06054100% 06104400 06104500 06104510 406148000% 06206000 *06207000*#06297000%806300000% 06301000 06307000 
*06308000% 07025020 07079000 07083000 07088000 «074410004074 33000 4407440000 4407443000 %#07444000 4407459000" 
07483500 074865000 ¥07487000% 07494500 «07493000%407495000« 07496000 «*07540000*% 07545000 *07577000% 07579000 
*075830004¥07585000% 07585100 07586000 07597000 «07600300«#07600440% 07600800 07604010 07608040 «07604060% 
07604067 *07604085« 07604090 «07604100% 07607100 07608000 07610000 07646470 07646510 07646560 07646605 
07646625 «07646635 07646665 07727020 «07797050*% 07727070 08046000 #08047000*%+08050000% 08077000 08078000" 
*08089000% 08093000 08097000 *08106000% 08122000 086124000 08127000 *08146000% 08147000 *08148000«%«081500008 
08152000 08160000 *08168000*" 08169000 08170000 08171000 08179000 *08190000* 08191000 08218000 *08221000# 
08227000 08228000 #08231000# 09282600 09388000 %*09395000% 09396000 09397000 09436000 #13232000*% 13235000 
#13238000%413239000% 13288000 *13263000%%13264000% 13267000 *13270000* 13273000 ¥13277000% 13606000 13612000 
*13628000% 13746000 13752000 #*13765000%#14039000% 14041000 14054000 *14055000* 14167000 14168000 14388100 
14451200 14464400 14461200 *144613004%«14483700* 14487000 14505000 14602000 14603000 145376400 15376500 
15376600 «160320004%16034000% 16070000 16088000 «16089000% 16090000 16092000 +*16094000««16096000« 16121000 
16138000 16167000 16172000 16218000 16232000 16257000 
REAL ** VALUE PARAMETER = OFCLAREN IN SeGMENT 3 aT 01719000 
ote A aBEe wm NAMP PARAMETER = OFCLARED IN SEGMENT 3 AT 01742100 
174211 
STREAM LABEL == DECLARED «tN SEGMENT 3 AT 07758000 = OCCURS AT 01764000 
01762000 
STREAM LABEL = DECLARED IN SEGMENT 9 AT 07091500 =" OCCURS AT 02103000 
02401000 
LABEL, == DECLARED IN SEGMENT 9 AT 02127500 7 OCCURS AT 02128000 
02435500 
STREAM VARIABLE = VALUE PARAMETER = DECLARED IN SEGMENT 3 AT 02183500 
02183750 02186000 
STREAM VARIABLE == NAME PARAMETER "== DECLARED IN SEGMENT 11 AT 02196530 
02196550 
REAL "=" VALUE PARAMETER == DECLARED IN SEGMENT 3 AT 03020000 
INTEGER =" ValUuF PARAMETER ©" DECLARED IN SEGMENT 3 aT 03039500 
INTEGER == VALUE PARAMETER = DECLARED IN SEGMENT 3 AT 03057004 
03054000 
LABEL "=" DECLARED IN SEGMENT 33 AT 04232000 =" oOccURS AT 0402483000 
04241000 
LABEL == DECLARED IN SEGMENT 38 AT 05049000 == OCCURS AT 05092000 


05094000 05098000 


wm REAL © VALUE PARAMETER @= DECLAREN 1N SEGMENT 
\= REAL »*= VALUE PARAMETER © DECLARED IN SPGMENT 
ee REAL = VALUE PARAMETER eos DECLAREN IN SEGMENT 


me REAL =" VALUE PARAMFTER == DECLARED IN SEGMENT 
we STREAM VARTABLE *= NAMF PARAMETER = DECLARED JN SEGMENT 46 AT 05415000 


we REAL @* VALUE PARAMETER == DECLAREN IN SFGMENT 
05440000 05441000 05442000 05444000 05458000 
we STREAM VARIABLE == NAME PARAMETER ==s DECLARED IN SEGMENT 49 AT 06064000 


SEGMENT 93 AT 13360000 == 


SEGMENT 116 AT 46313000 = 


er 'NTEGER =" DECLARED IN SEGMENT 117 AT 16364000 


SEGMENT 108 aT 46475000 == 
SEGMENT 123 AT 17009000 == 


SEGMENT 127 AT 17073000 == 


F 
05051000 05052000 
L ** STREAM VARIABLE == NAMF 
05060000 
L 
05424000 
F 
05431000 05132000 
L 
05312000 
L 
05331000 05376100 
L 
bL 
05418000 
L 
le 
06065000 
Li 
08999525 
L 7° LABEL *= DECLARED IN 
13366000 
Lo" LABEL °°" DECLARED IN 
16319000 16327000 16340000 
L 
#16391000*% 416393000 
Lo o°* LABEL °°" NECLAREN IN 
16476000 
Lo LABEL '" DECLARED IN 
17041000 
Lb 7" LABEL =" DECLARED IN 
17081000 


LABELBAT == REAL oo VALUE 
03023000 03024000 
PABEDBAY. ee Rrakh =" VALUE 


14049000 


LABEL1TD == DEFINE == DECLARED IN SEGMENT 3 AT 04206000 


=e STREAM VARIABLE == NAMF PARAMETER = DECLARED IN SFGMENT 38 AT 05050000 
PARAMETER = DECLARED IN SEGMENT 38 AT 05059000 


3 AT 05123000 
3 AT 05128000 
3 AT 05307000 


we INTEGER =* VALUE PARAMETER ==" OECLARED IN SEGMENT 3 AT 05333000 


3 AT 05411100 


3 AT 05437000 


m= INTEGER #2 VALUE PARAMETER *©= DECLARED IN SEGMENT 3 AT 08999450 


OCCURS AT 13364000 
OCCURS AT 16347000 


OCCURS AT 16483000 
OccURS AT 17014000 


OCCURS AT 17085000 


PARAMETER == NECLARFED IN SEGMENT 3 AT 03025000 


P PARAMETER @* necLARFD IN SEGMENT 3 AT 07537000 
7535000 07536000 07539000 
LABELNEC == LABEL == DECLARED «NN SEGMENT 98 AT 144014000 == OCCURS AT 14187000 


05344520 05350420 05350160 06104400 06406300 
07664000 13246000 13337000 13754000 14194000 


17047100 17095000 


LABELR "= PROCEDURE "= DFCLARED IN SEGMENT 


07646000 07741000 


06107100 07047000 07075000 07506000 07553000 
14220000 15126100 18376900 16213000 16253000 


3 AT 07593000 


LABELS =" PROCEDURE ©" DECLARED IN SEGMENT 108 aT 16156000 


16177000 16485000 


LABELY ©" OEFINE ©" DECLARED IN SEGMENT 3 AT 01266000 


14399000 
LABLMONF ILE @= DEFINE == 


DAMPER w= LABEL =" NMECLARED IN SEGMENT 50 At 06137000 
06164000 06166000 06168000 


LASS = LABEL =" DECLARED 
15276160 


LASTADDRESS = REAL = NECLARED 


IN SEGMENT 107 aT 15076000 


DECLARED IN SEGMENT 3 aT 01535000 


we OCCURS AT 06179000 
we OCCURS AT 15276060 


IN SEGMENT 424 AT 17069600 


*17079000% 47080000 #47084000% 47094800 47095750 «17096850" 


07645000 
16482100 


LASTCROPATCH ®* ROOLEAN = PECLARED IN SEGMENT 3 AT 01001500 
LASTENTRY == REAL *= DFCLARED tN SEGMENT 3 AT 01376000 


04170000 *04189000% 04208000 04210000 


04211000 #£04214000« 14038000 


LASTGT "" DEFINE = DECLARED IN SEGMENT 106 AT 14420000 


14438000 


LASTGT == DEFINE == DECLARED IN SEGMENT 108 AT 46003000 


16089000 46266000 


LASTINFO ## REAL == DECLARED IN SEGMENT 3 AT 01619000 
#09033000* 10261000 10263100 10263410 10264800 43222000 13290000» 


02724000 02725000 «*02776000% 05350200 
13309000 «13311000 13347000 13348000 


13408000 13755500 14079000 14083000 14259150 144269260 


#14330000e414373000% 14421000 #14463000* 16000700 16445000 #16447000« 
LASTINFOT =" REAL °* PFCLARED IN SEGMENT 98 aT 14029000 


#14330000% 14373000 14463000 


LASTReSULT "=" INTFGFR =" DFCLARFD IN SeGMFNT 86 aT 10258000 


#10262000% 10272000 «10276000 


LASTSFQROW ©" DEFINE == DECLARFD IN SEGMENT 3 aT 01570000 


02244250 02214760 02226000 02234750 
07086400 09033000 09034200 09034500 


02234900 02366000 02410000 07485000 02602800 05039500 
09253500 09254000 09255000 09384400 09386000 


LASTSFQUENCE == DEFINE == DECLARED IN SEGMENT 3 AT 01569000 


02914250 027142760 097276000 02234750 
07086400 09033000 09034200 09034500 
LASTUSEN “* INTEGER =" DECLARED IN SEGMENT 
02194500 *02204000%#02209250% 02212000 


07598100 46159400 47092300 


02234900 02368000 02410000 09485000 02602800 05039500 
09253500 09254000 09255000 09384100 09386000 
3 AT 01391000 


14320000 


05045000 


05045000 


02212250 *02212750« 02228050 02234000 «023320004#02430000%402438000" 
| #02458000%#02722000% 02900000 «02901000%407030000%409029000%%09037000% 09282000 

bac =" orriNe © nrelaRep IN SraMeNT 3 aT 01645000 

LBLREF =" HEFYNE == DFCLARFD IN SEGMENT 3 AT 01007486 


LBLTOG == STREAM VARIABLE «= VALUE PARAMETER == DECLARED IN SEGMENT 124 AT 17047200 


17047400) 17080900 


LBLTOG * OWN BOOLEAN == DECLARED IN SEGMENT 129 AT 170914410 


*17092500% 17094R00 *47095400* 
LBP »* DEFINE °*= DECLARED IN SEGMENT 98 AT 


14023000 


LOARD =" (LABEL == OFCLARED IN SEGMENT 140 aT 02191000 == OCCURS AT 02194750 


02191250 
LCR * INTEGER == DFCLARED IN SEGMENT 3 AT 


02129500 07193250 *02202000%#02204000%%02209000*% 02213000 «02214000*% 02214250 


02226000 02228150 02232000 02233500 
| 02716000 02717000 *02719000* 02902000 

LoR = STREAM VARTABLE = ValUr PAaRAMEeTFR 
01767000 04774000 

LCR e# STREAM VARTABLE =- VALUE PARAMETER 
02006000 

LCR e# STREAM VARIABLE == VALUE PARAMETER 
02320600 

LDES = NEFINE == DECLARED IN SEGMENT 3 AT 
05248000 05250000 09415500 13252500 

LOOT *" LABEL == DECLARED IN SEGMENT 50 AT 
06444000 06156000 06188000 06160000 

LEFTPAREFN ee" OEFFINE ==" DECLARED IN SEGMENT 
02975000 06069000 06445000 07409000 
14259020 14326000 16125000 16482400 

LENGTHL = UABFL ©" DECLARED IN SEGMENT 19 
02364000 

LENGTH2 = LABEL =" DECLAREN IN SEGMENT 19 

LENGTHS 7? LABEL ©" OFCLARED IN SEGMENT 19 
02364000 

LENGTH4 = LABFL =" DECLAREN IN SEGMENT 19 


01330000 

02234750 02235750 02368000 02369000 02410000 02485000 
*02903000* 02904000 02905000 *07025010#+407025030« 

== neEclARFn tN SEGMENT 3 AT 01756000 

#= DECLARED IN SEGMENT 3 AT 02005000 

== DECLARED IN SEGMENT 19 AT 02320200 

01299030 

06137000 =" OCCURS AT 06178000 

06162000 06170000 06372500 

3 AT 01212000 

07437000 07768110 10264100 12007000 12144000 143753000 
AT 02360000 7" OCCURS AT 02374000 


AT 02360000 = OCCURS AT 02380000 
AT 02360000 "= OCCURS AT 02381000 


AT 02360000 *= OCCURS AT 02399000 


02214500 *02215750« 02225250 


02602800 


14137000 


02364000 
LENGTHS =" LaRFL &" DFCLAREN IN SEGMENT 19 aT 02361000 == OCCURS AT 02476000 
02364000 
LENGTH6 =" LaBrFh =" DECLAREN IN SEGMENT 19 aT 02361000 == OCCURS aT 02518000 
02365000 
LENGTH? nae sR ABee -= PFECLAREN IN SEGMENT 19 aT 02361000 == OCCURS AT 02569000 
236 
LENGTHS = LABFL == DFCLARED IN SEGMENT 19 aT 02361000 == OCCURS AT 02574000 
LENGTH9 == LABFL == DECLAREN IN SEGMENT 19 AT 09361000 == OCCURS AT 02575000 
02365000 
LEQ =" DEFINE = DECLARED IN SEGMENT 3 AT 04655000 
06050000 | 
LE@ =* DEFINE "= DECLARED IN SEGMENT 119 aT 17002000 
LEVEL =  NTEGFR == DECLARED IN SEGMENT 3 AT 01402000 
05208000 05344400 05350100 05350320 143339000 43374000 43677100 #74053000« 14220000 14307000 144348500 
#14323000% 14387000 14389000. 18411300 14445300 14451000 44461100 44477000 144478000 144497000 44499000 
#14500000% 14603000 «14604000» . 
LEVEL ©" WEFINE =" pEeLARED IN SEGMENT 108 aT 16005000 
16171000 16265000 
LEVELF "=" REAL ©" OFCLARED IN SEGMENT 3 AT 01605000 
*13204000*% 13339000 13371000 14307000 
LFC °° DEFINE * DECLARED IN SEGMENT 3 AT 01648000 
LFTBRKEY = DEFINE = NMECLARED IN SEGMENT 3 AT 01263000 
05273800 06139000 06336000 06421000 10264100 12114000 13391000 14259020 14269320 15183100 
LFTPAREN @*" DEFINE "= WECLARED IN SEGMENT 108 ar 16003000 
—- 16125000 16482400 14167000 
LGTFLA 7" WEFINE =" DECLARED IN SEGMENT 108 aT 16004000 
16172000 
LIB ©" BOOLEAN = VaLUr PARAMETFR ©* pECLARED IN SEGMENT 12 AT 02202500 
LIN e* REAL ARRAY = PFCLARFD IN SEGMENT 3 AT 04559010 
02194000 02195000 02195750 02196580 02196590 02214200 02226750 02228750 02421000 04149000 04150000 
05038000 05039500 05039600 05044000 05046000 05096000 05097500 05099000 05325450 05325460 05325470 
05325480 05325490 06122000 06123000 07025020 07086300 07086500 09384100 09384500 09386000 09387000 
09388009 09389500 13653000 13653500 13675000 13676000 
LIN ©" STREAM VARTABLe =" NaMe PARAMETFR "= prclLaRED IN SEGMENT 43 aT 05325040 
053275090 
LINE *" FrLE =" DECLARED IN SEGMENT 3 AT 01558000 
04829000 04835700 02395000 02195750 02396590 022134200 029278750 02264950 02265350 02265300 02265450 
02765650 02265750 02265900 02266000 024271000 027464000 04150000 04279000 04282500 05039600 05046000 
05087000 05068000 05089000 05090000 05097500 05099000 05325490 08427000 05432000 05434000 06423000 
07025020 07086500 09384500 09387000 09389500 09390000 13653500 43676000 14861500 14493500 47002520 
17054500 17054800 17055020 17091510 17094300 17094400 17094550 17095500 17096300 
WINe a aL VaRraARLe =" NaMp PaRaMereR = pneclaRep 1N SEGMENT 3 aT 02183500 
2184250 
LINE == STREAM VARTABLF =" NAMF PARAMETER = nECLARED IN SEGMENT 37 AT 05016000 
: 05019000 05024000 05024000 
LINE ee STREAM VARIABLE == NAME PARAMETER we DECLARED IN SEGMENT 38 AT 05067000 
05069000 05074900 05076000 05085000 
LINE = STREAM VARIABLE *= NAME PARAMETER «= PMECLARED IN SEGMENT 57 AT 07038100 
07038200 07038300 
LINE ©» STREAM VARTABLE == NAMF PARAMETER © QECLARED IN SEGMENT 80 AT 09378000 
09379000 09380000 
LINECOUNT = DFFYNE w= DECLARED IN SEGMENT 429 AT 17091140 
17091520 47094410 17095510 47096350 
LINK = ODFFINE = DECLARED IN SEGMENT 3 AT 01154000 
02725000 028682200 05124000 05132000 05189000 05233000 052934000 08447000 05448000 06079000 06189000 
06190000 


09133800 09134000 13207000 


13232000 13286000 13308000 13361000 13362000 13368000 44448000 


14470000 15080000 16443000 
LINK ** INTEGER 7" NECLAREN IN SEGMENT 31 at 04166000 
#04182000« 04185000 
LINK "=" AFFINE ©" DFCLARED IN SEGMENT 65 aT 07595000 
07601000 07604040 07604050 07604060 07604070 07604090 07605000 07607000 
LINK ©" INTEGER ™" mFCLARED IN SEGMENT 66 at 07646355 
07646550 «07646560 07646645 *£07646650% 07646660 07646665 
LINK "= ReAL =" DECLARED IN SEGMENT 111 AT 16087000 
*#16092000*% 16094000 
LINKC =" MEFINE @" NECLARED IN SEGMENT 3 aT 01156000 
92001660 02001695 02001795 02003805 02001815 027001822 02212250 07876000 
05350180 05350200 05402100 05405000 05407000 05409000 05426000 05428000 
05450000 07397400 07397500 09393110 09393330 09414070 09438000 09419000 
19264800 12117000 13281000 143310000 143310200 43340350 43330950 43593000 


17025300 147080000 
LINKF #* REAL == DECLARED IN SEGMENT 3 AT 07606000 
*13207000% 13768000 13769000 443430000 44344000 44315000 
LINKP =" REAL = DECLARED IN SEGMENT 93 AT 13359000 
*13361000* 43362000 13364000 
LINKR =" NEFINE =" HDECLARED IN SEGMENT 3 aT 01155000 
02001660 02001695 02001795 02001805 02001815 02003822 02212250 09875000 
05350160 05350200 05402100 05405000 05407000 05409000 05426000 05428000 
05450000 07397400 07397500 09414070 09418000 09419000 09433000 09447060 
12117000 13281000 13302000 13303000 13310000 13310200 13310350 13310950 
LYNKR @* AFFINE =" neclaRen tN SFGMENT 82 aT 09393090 
09393130 09393470 09393190 
LINKR = WEFINE © PWFECLARFD IN SEGMENT 83 AT 09393280 
09393350 09393400 09393430 
LINKT = REAL = DECLARED IW SEGMENT 93 AT 13359000 
*13361000% 43362000 13364000 13365000 «133660008 
LINKTOG =" BOOLEAN = DECLARED IN SEGMENT 3 AT 01399000 
04100000 #04213000%*04222000*#04295000" 06021000 *06022000% 
LISTARIT = DEFINE "= PECLARED (N SEGMENT 3 AT 01000970 
02194250 02511000 02602500 
LISTATOR “= DEFINE = DECLARED IN SEGMENT 3 AT 01001260 
02194250 02602500 
LISTBIT °" DEFINE ©" OFCLARFN IN SEGMENT 3 aT 01000980 
02402000 02602500 09028000 
LISTER =" ROOLFAN =" necbaRron IN SEGMENT 3 aT 01001570 
02195000 02195750 02214200 02464000 «02602500 02910600 05036000 07025020 
13674000 14461500 14493500 
LISTIN *" NEFINE =" DPCLARED IN SEGMENT 3 AT 014181000 
LISTOG "= DEFINE ** DECLARED IN SEGMENT 3 AT 01001270 
02602500 09028000 
LISTPRIT = OFFINE ®= PHECLARED IN SEGMENT 3 aT 01000990 
02195000 02228750 02480000 
LISTPTOR ©= DEFINE "= NECLARFD IN SEGMENT 3 AT 01001280 
02195000 02228750 
LITERAL w= INTFGER *= VALUE PARAMETER ==" HECLARED IN SEGMENT 3 AT 04003000 
04004000 
LITNO =" NEFINE ©" NHECLARED IN SEGMENT 3 aT 012430000 
02850000 05275000 05277000 05344610 06085000 06094000 06347300 06319000 
07666500 07727050 07994000 43392000 14269460 14269500 145276010 16419000 
16341000 16374000 164130000 146435000 16482300 
LITV "= NEFINE =" DECLARED IN SEGMENT 3 AT 01250000 
16372000 16381000 
LN ** INTEGER =" DECLARED IN SEGMENT 97 aT 13750000 
#13755500«" 13773000 


07607100 


05006000 
05430000 
09433000 
13677300 


05006000 
05430000 
10251000 
13593000 


07608000 


05009000 
05431000 
09447060 
14483400 


05009000 
05431000 
10254000 
13677300 


07609000 


05325470 
05449000 
10251000 
170254300 


05325470 
05449000 
10264800 
14483400 


07086100 *09028000*« 13652000 


06321000 
16204000 


07600300 
16212500 


07665000 
16326000 


LND ©" DFFINE ==" DECLARED IN SEGMENT 3 AT 01656000 
04545000 
LNG ©" DEFINE =" DECLARED IN SFGMENT 3 aT 01657000 
04112000 
LO we REAL ** DECLARED IN SEGMENT 98 AT 14029000 
*#14304000*% 14496000 
LOC ©" DEFINE = DFCLARED IN SEGMENT 106 aT 14420000 
14438000 
LOG =" DEFINE == DECLARED IN SEGMENT 108 aT 16003000 
16070000 16163000 16255000 
LOCAL #* ROOLFAN PROCFOURE = DECLARED IN SFE&MENT 3 AT 05206000 
#05210000% 07516000 07854000 07599000 
LOcALY *" DEFINE °°" DECLARED IN SEGMENT 3 aT 01249000 
14396000 
LOCBEGIN @" DEFINE == NMECLARFD IN SEGMENT 98 AT 14022000 
LOCFLO = DEFINE == DECLARED IN SEGMENT 108 AT 146004000 
46138000 
LOCLID == DEFINE == DECLARED IN SEGMENT 3 AT 014479000 
13755000 144409000 14441200 14415200 44425000 16498000 146317000 16326000 
16368000 16406000 16482100 16482300 16482500 17095310 
LOCV '= NFEFINE ** DECLARED IN SEGMENT 3 aT 01247000 
16336000 16339000 
LOn =" DEFINE "=" DECLARED IN SEGMENT 3 AT 01658000 
04523000 05201000 05227000 05316000 06172500 07073000 07090000 08079000 
15305800 
LOLn "= INTEGER =" necbaRfn IN SEGMENT 98 at 14030000 
*14054000« 
LONGIN ©" DEFINE "=" DECLARED IN SEGMENT 107 AT 15076120 
15301500 45305300 
LOR = DFFINE == DECLARED IN SEGMENT 3 AT 04659000 
LOWER = REAL ©= VALUE PARAMETER *= DECLARED 1N SEGMENT 3 AT 05299000 
05297000 05298000 05304000 
LPRT = REAL == DECLARED IN SEGMENT 3 aT 01483000 
L$ *» INTEGER == DECLARED IN SEGMENT 97 AT 13750000 
*13752000*% 13765000 
LSQ@ = STREAM VARTABLF © NAME PARAMETER "= OFCLARED IN SEGMENT 80 AT 09364000 
09366000 . 
LSS = OFFINE == DECLARED IN SEGMENT 3 AT 01661000 
LSS ee = DEFINE = DECLARED IN SEGMENT 119 aT 17002000 
17117400 
LSTRTN == DEFINE = DECLARED IN SEGMENT 3 AT 03430000 
LSTSEQ == STREAM VARIABLF == NAME PARAMETER = DECLARED IN SEGMENT 37 AT 05076000 
05020000 05023000 
LTAPE = LABEL ==" DECLARED IN SEGMENT 10 aT 02191000 = OCCURS AT 02195500 
02191250 
LYL =" DEFINE = DECLARED IN SEGMENT 3 AT 01151000 
05116000 05208000 07437000 13204000 14220000 16171000 16265000 
Lio = LABFL == PECLAREN IN SEGMENT 38 aT 05049000 = OCCURS aT 05096000 
05099100 
Lio oe LABFL == DECLAREN IN SEGMENT 44 aT 05334000 
Li "= LABFL == pECLARFD IN SEGMENT 50 aT 06428000 =" OCCURS aT 06152000 
06133000 
Lio os= LAREL == DECLAREN IN SEGMENT 67 AT 07658000 == OCCURS AT 07675000 
07667500 07672500 07673000 
Lio o== LABFL == DECLARED IN SEGMENT 68 aT 07713000 "== OCCURS AT 07729000 
07720000 
Li =e LABEL =" DECLAREN IN SEGMENT 73 aT 09025000 


| 

Li 

Li 

| 

Lt 

LA 

L10 
L10 
L10 
Lit 
Lit 
Li2 
Li2 
L13 
13 
Li4 
L14 
Lis 
15 
L16 
L16 
Li? 
Li7 
L18 
L18 
L19 
L19 


LABFL == 
12057000 


DEFCLAREM IN SEGMENT 88 aT 12005000 


OCCURS AT 12009000 


STREAM LABEL "= PAFCLARED IN SEGMENT 98 AT 13635000 om 


13639000 
LABEL == 
13761100 
LABEL = 
16353000 
LABEL == 
16372000 
LABEL Or 
16482400 
LABEL = 
06133000 
LAREL a] 
07720000 
LABFL == 
16476000 
LABEL == 
06134000 
LABEL == 
077291000 
LABEL = 
06134000 
LABEL 7° 
077291000 
LAREL 
06134000 
LABEL == 
07721000 
LABEL «#e 
06134000 
LABEL == 
07721000 
LAREL =" 
06134000 
LABFL =* 
07721000 
LABEL == 
06434000 
LABEL #@ 
07791000 
LABEL == 
06134000 
LABEL 
07721000 
LABEL =e 
06134000 
LARFL = 
077214000 
LABEL «e 
06434000 
LABFL = 
077294000 
LABFL == 
LABEL. «= 
06133000 
LABEL se 


DECLARED 
13762000 
DECLARED 
DECLARED 
DECLAREN 
DECLARED 
DECLARFD 
DECLARED 
DECLARED 
DFCLARFD 
DECLARFD 
DECLARED 
DECLARFD 
DECLARFD 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARFD 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARFN 
DECLARED 
DECLARED 


IN SEGMENT 97 aT 43751000 


IN SEGMENT 416 AT 


IN SEGMENT 117 AT 


IN SEGMENT 


108 


AT 


IN SEGMFNT 50 AT 


IN SEGMENT 68 AT 


IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 


108 aT 16475000 


50 
68 
50 
68 
50 
68 
50 
68 
50 
68 
50 
68 
50 
68 
50 
68 
50 
68 


AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 


AT 


16313000 
16365000 
16475000 
06128000 
07713000 


06129000 
07714000 
06129000 
07714000 
06129000 
07714000 
06129000 
07714000 
06129000 
07714000 
06129000 
07714000 
06129000 
07714000 
06129000 
07714000 
06129000 


07714000 


DECLAREN IN SEGMENT 44 aT 085334000 
DECLARED. IN SEGMENT 50 aT 06428000 


=e 


OCCURS AT 13641000 


OCCURS aT 143754000 


OCCURS AT 16349000 


OCCURS AT 16397000 


OccURS AT 16484000 


OCCURS AT 06152000 


OCCURS AT 07734000 


OCCURS AT 16493000 


OCCURS AT 06157000 


OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OccURS 
OCCURS 
OCCURS 
OccURS 
OCCURS 
OCCURS 
OCCURS 


AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 


07729000 
06152000 
07736000 
06152000 
07729000 
06159000 
07729000 
06159000 
07729000 
06152000 
07729000 
06152000 
07729000 
06161000 
07734000 
06161000 
07734000 


OccURS aT 05373000 
OCCURS AT 06152000 


NECLARFN IN SEGMENT 68 aT 07713000 == OCCURS aT 07729000 


L20 
L20 
Lat 
L214 
L22 
L22 
L23 
L23 
L24 
L2a 
L25 
L25 
L26 
L26 
L27 
L27 
L28 
L268 
L29 
29 
L3 

L3 

L3 

L3 

L3 


07720000 
LABFL == 
12048000 
LABEL «e 
13753100 
LABEL «=«# 
16481000 
LABEL ==" 
06134000 
LAREL = 
07721000 
LAREL = 
06135000 
LABEL == 
07722000 
LABEL = 
061435000 
LABEL == 
07722000 
LaneL = 
06135000 
LABEL = 
07722000 
LAREL ae 
06135000 
LARFL = 
07722000 
LABEL «= 
06135000 
LABEL = 
07722000 
LABEL = 
06135000 
LagEL =e 
07722000 
LABEL = 
06135000 
LABEL == 
07722000 
LABEL «9 
06135000 
LABEL. == 
07722000 


LABEL == 


06135000 


WABEL =* 


07722000 
LABFL == 
06133000 
LABFL = 
07790000 
LABEL == 
12076000 
LABEL == 
13770000 
LABEL ww 
16476000 


NECLARFN IN SEGMENT 68 aT 12005000 


12048000 


DECLARED IN SEGMENT 97 aT 43751000 


13754000 


DECLARED 


16482200 


DECLARED 
DECLARED 
DECLARFD 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARFD 
DECLARFD 
DECLARED 
DECI.ARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 


IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
tN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 
IN SEGMENT 

IN SEGMENT 

IN SEGMENT 

IN SEGMENT 

IN SEGMENT 

IN SEGMENT 


498 
50 
68 
50 
68 
50 
68 
50 
68 
50 
66 
50 
68 
50 
68 
50 
68 
590 
66 
50 
68 


AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
aT 
AT 
AT 
AT 
AT 
AT 
AT 


16475000 
06129000 
07714000 
06130000 
07715000 
06130000 
07715000 
06130000 
07715000 
06130000 
07715000 
06130000 
07715000 
06130000 
07715000 
06130000 
07715000 
06130000 
07715000 
06130000 
07715000 


50 aT 06328000 


68 aT 07713000 


88 AT 42005000 


97 aT 13751000 


198 aT 16475000 


ee 


=o 


OCCURS AT 12055000 


OCCURS AT 13760000 


OCCURS 
OCCURS 
OCCURS 
OCCURS 
OccURS 


OCCURS 


OCCURS 


OccURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OccURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 


AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 


16485000 
06152000 
07729000 
06152000 
07729000 
06163000 
07738000 
06163000 
07738000 
06152000 
07729000 
06152000 
07729000 
06163000 
07738000 
06163000 
07738000 
06152000 
07729000 
06152000 
07729000 


OCCURS aT 06152000 


OCCURS AT 07729000 


OCCURS AT 12056000 


OCCURS AT 13767000 


OCCURS AT 16486000 


L30 
L30 
34 
L314 
L32 
L32 
L33 
L33 
L34 
L34 
L35 
L35 
L36 
L36 
L3?7 
L37 
L38 
L38 
L39 
L39 
La 

La 

L4 

Lao 
Lad 
L42 
L43 
L44 
L45 


LARFL #2 
06135000 
LABFL == 
07792000 
LARFL = 
06136000 
LAREL == 
07723000 
LARFL == 
06136000 
LABEL °* 
07723000 
LABFL =e 
06136000 
LABEL == 
07723000 
LABEL = 
06136000 
LABEL == 
07723000 
LABEL == 
06136000 
LAREL = 
07723000 
LAREL = 
06136000 
LABEL =» 
07723000 
LABEL = 
06136000 
LABEL «= 
07793000 
LABEL == 
06136000 
LARFL =« 
077293000 
LABEL eo 
06436000 
LABEL «= 
07793000 
LABEL == 
06433000 
LABFL «= 
07720000 
LAREFL == 
16476000 
LaRFL == 
07723000 
LAREL == 
07724000 
LABEL == 
07724000 
LABEL = 
07724000 
LABEL == 
07724000 
LARFL = 


DECLARED 
DECLARFD 
DECLARFD 
DECLARED 
DECLARED 
DECLARED 
DECLARFN 
DECLARFD 
DECLARED 
DECLARFD 
DECLARFD 
DECLARFO 
DECLARFD 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 


SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 


SEGMENT 


50 
68 
50 
66 
50 
66 
50 
68 
50 
68 
50 
68 
50 
68 
50 
68 
50 
68 


50 


AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 


AT 


06130000 
07715000 
06131000 
07716000 
06131000 
07716000 
06131000 
07716000 
06131000 
07716000 
06131000 
07716000 
06131000 
07716000 
06131000 
07716000 
06131000 
07716000 
06131000 


DECLARED IN SEGMENT 68 AT 07716000 


DECLARFN IN SEGMENT 59 AT 06128000 


DECLAREN IN SEGMENT 68 AT 07713000 


DECLAREN IN SEGMENT 1906 aT 16475000 


DECLARED IN SEGMENT 68 al 07716000 


DECLARED 
DECLARFD 
DECLARED 
DECLARED 


DECLARED 


1N 
YN 
IN 
JN 


tN 


SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 


SEGMENT 


68 
68 
68 
68 


66 


AT 
AT 
AT 
AT 


AT 


07717000 
07717000 
07717000 
07717000 


07717000 


OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OccURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 


AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AY 
AT 
AT 
AT 
AT 
AT 
AT 
AT 


AT 


06163000 
07738000 
06163000 
07738000 
06153000 
07740000 
06165000 
07730000 
06167000 
07730000 
06165000 
07730000 
06167000 
07730000 
06173000 
07730000 
06169000 
07742000 
06171000 
07730000 


OCCURS AT 06152000 


OCCURS AT 07729000 


OCCURS 
OccURS 
OCCURS 
OCCURS 
OCCURS 
OccuURS 
OCCURS 


AT 
AT 
AT 
AT 
AT 
AT 


AT 


16487000 
07744000 
07770000 
07752000 
07754000 
07756000 


07758000 


L46 
La? 
La8 
L49 
L5 

L5 

LS 

L350 
54 
L520 
L53 
L54 


07724000 
LARFL 
07724000 
LABEL © 
07794000 
LAREL ee 
07724000 
LABEL == 
07724000 
LABFL == 
06133000 
LABFL = 
07720000 
LARFL == 
16476000 
LABEL == 
07794000 
LABEL == 
07725000 
LAREL =* 
07725000 
LABEL =* 
07725000 
LAREL =* 
07725000 
LABFL == 
06133000 
LABEL == 
07720000 
LABEL «= 
16476000 
LABEL = 
06133000 
LABEL = 
07720000 
LABFL == 
16476000 
LABFL == 
067433000 
LABEL #= 
07720000 
LABFL == 
16476000 
LARFL e= 
06133000 
LABEL == 
07720000 
LABFL == 
16476000 


BOOLFAN) «= 


*#05404000#*054070008405409000% 05409300 
REAL ==" OECLARFD IN SEGMENT 47 AT 05438000 


DECLARED 
DECLARFD 
DECLARED 


DECLARFD 


IN SEGMENT 68 aT 07717000 


IN SEGMENT 68 aT 07737000 


IN SEGMENT 68 AT 07717000 


IN SEGMENT 68 aT 07717000 


DECLARED IN SEGMENT 50 aT 06128000 


DECLAREN 


IN SEGMENT 68 aT 07713000 


DECLARED IN SEGMENT 108 aT 16475000 


DECLARED IN SEGMENT 


DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLARED 
DECLAREN 
DECLARFN 
DECLARED 
16482500 
DECLAREN 
DECLARED 
DECLARED 
DECLARED 
pecbaRen 
DECLAREN 


IN 
tN 
IN 
tN 
IN 


IN 


IN 


SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 


SEGMENT 


68 AT 
68 aT 
68 aT 
68 at 


68 AT 


07717000 
07718000 
07718000 
07718000 
07718000 


50 AT 06128000 


68 aT 07713000 


198 aT 


16475000 


50 aT 06128000 


68 aT 07713000 


198 AT 


16475000 


50 aT 06128000 


68 AT 07713000 


108 AT 


16475000 


50 aT 061328000 


68 at 07713000 


198 AT 16475000 


DECLARED IN SEGMENT 44 AT 05343000 
*05350;,00" 05350740 
REAL @= DECLARED IN SEGMENT 45 AT 05403000 
05409400 


2054410008 05442000 


INreaeR = 


"094470480" 


09447050 


05443000 


05444000 


05445000 
DECLARFD IN SEGMENT 81 aT 09393010 


OccURS AT 07769000 
OccURS AT 07769000 
OCCURS AT 07769000 
OccURS AT 07759100 
OCCURS aT 06152000 
OCCURS AT 07729000 
OCCURS AT 16488000 
OCCURS AT 07769000 
OCCURS AT 07760000 
OCCURS AT 07762000 
OCCURS AT 07764000 
OccURS AT 07766000 
OCCURS AT 06152000 
OCCURS AT 07729000 
OCCURS AT 16489000 
OCCURS AT 06155000 
OCCURS AT 07732000 
OCCURS AT 16490000 
OCCURS AT 06152000 
OCCURS AT 07732000 
OCCURS AT 16491000 
OCCURS AT 06152000 
OccURS aT 07729000 


OCCURS AT 46492000 


MACRO ** REAL ARRAY =" QEFCLARED {N SEGMENT 3 AT 01487000 
#09215000« 16346000 §6349000 


MACRO == RgOOLEAN == VALUF PARAMETER *= DECLARED IN SEGMENT 3 AT 10226000 


10963600 10276500 
MACRO'D == BOOLEAN *= DECLARED IN SEGMENT 3 AT 01717800 


02882100 02913000 *12107000%#12127000% 13305200 43307500 #142965900%«14266400« 


MAKEUPACCUM ©" PROCEDURE "=" DECLARED IN SFGMENT 3 AT 13368000 =" FORWARD aT 01627000 


13333500 13342000 16000600 
MARK ©** REAL =" PECLARFD IN SEGMENT 3 aT 01615000 
14117000 #14314000«%14319000% 14333300 14334000 14374000 14430000 
MATCH =" NEFINE =" pEclLARED IN SEGMENT 129 aT 17091115 
17091800 . 
MAXINTRINSIG 7" PEFING =" DECLARED IN SEGMENT 3 AT 03299400 
09253300 09414120 
MAXROW == INTEGER @=* DECLARED IN SEGMENT 3 AT 074684000 
MAXSAVE = INTEGER == DECLARED IN SEGMENT 3 AT 01598000 
MAXSTACK ee REAL =" DECLARED IN SEGMENT 3 AT 014683000 
13230000 #13231000" 14277000 «44502000 
MAXSTACKO =" REAL == DECLARED IN SEGMENT 98 AT 144029000 
#14277000% 14502000 
MAXTLCR ©" INTEGER = PMECLARED IN SEGMENT 3 AT 01331000 
024639000 *02456000*" 
MCPBIT °°" DEFINE "* OFCLARED IN SEGMENT 3 AT 01001000 
02397000 
McPTOG © DEFINE ©" DECLARED IN SEGMENT 3 aT 01001290 
MCPTYPE == DEFINE = DECLARED IN SEGMENT 3 AT 04561410 
09430060 
MDESC == STREAM PROCENURE =" DECLARED 1N SEGMENT 73 AT 09005000 
09034200 09253500 09254000 09255000 09418000 094194100 
MEDIUM ®** ALPHA =" WECLARED IN SEGMENT 3 aT 01001580 
02195000 02195750 #02203250 4802204250 402205500 %402214100% 02214200 
MERGERIT ** DEFINE "= NPECLARED IN SEGMENT 3 AT 01001010 
01835600 02425000 02425500 02426000 02427000 02428000 02435000 
MERGEOPTION 7" LaBElL =" DFCLARFD IN SEGMENT 19 aT 02363000 "=" OCCURS AT 
02428000 
MERGETOG = DEFINE "= MECLARED IN SEGMENT 3 AT 01001300 
01835600 02425500 024297000 02428000 02436000 
MIN =" INTEGER == OFCLARFD IN SEGMENT S AY 01822000 
#0182B000*% 01834000 
MKABS = REAL STREAM PROCEDURE == DECLARED IN SEGMENT 3 AT 02022000 
#02023000m 02202000 02202050 02214000 02235750 02216500 02217750 
02485500 02486000 02903000 050914000 07025010 07025030 08999175 
MKS =" DFFINE &" DECLARED IN SEGMENT 3 aT 01662000 
07408000 07434000 13761000 13765000 
MKST = BROOLFAN "" neclLaREN IN SEGMENT 97 at 13750000 
#137520000e413761000" 13764000 
MODE "* <INTEGFR °°" pMECLARED IN SEGMENT 3 aT 01402000 
04175500 04484000 042132100 04223100 05115000 05345000 07397200 
14478000 *14501000» 
MON #* OFEINE *= DECLARED IN SEGMENT 3 AT 04147000 
16254000 
MONITTORNEC == LABEL == DFCLARED IN SEGMENT 98 AY 14014000 == OCCURS AT 
140349000 
MONITORV == OFFINE = DECLARED IN SEGMENT 3 AT 01291000 


MOVE se STREAM PROCEDURE == DECLARED IN SFGMENT 3 AT 02054000 


02212250 02366100 02442000 02487000 02602600 02916000 04347000 
08999575 08999700 09393430 09393170 093931390 09393350 09393400 
13310000 13651000 13746000 14259000 14440000 16495100 


14451200 


02228750 


02436000 
02437000 


02226000 
08999200 


07600440 


14142000 


05039500 


09393430 


14463000 


02421000 


02410500 
09400000 


07748000 


07029000 
09433000 


05038000 


02411000 
09401000 


08093000 


07669000 
09447060 


07025020 


02456000 


*14303000% 


08999550 
13281000 


MOVE 


em STREAM PROCEDURE == DECLARED IN SEGMENT 74 AT 08999075 


08999100 08999975 0899935 


MOVECHARACTFRS = STREAM PROCEDURE = DECLARED 1N SEGMENT 3 AT 02045000 


02705000 07668500 16349000 16392000 


MOVECODE = STREAM PROCFOURE = DECLARED «tN SEGMENT 3 AT 13683000 
MOVEIT 
MOVEXREFINFO == STREAM PROCENURE "= DECLARED IN SEGMENT 8 AT 02001760 


MRCLEAN 


MULOP 


MYCLASS 


MO 
M4 
M2 
M3 
M4 
M5 
M6 
M7 


ee LABEL *" DECLARED IN SEGMENT 24 AT 02638000 ©= OCCURS AT 02704000 


02001 785 02001805 
e= BOOLEAN == NECLARED IN SEGMENT 3 AT 01379000 

04164000 *09040000% 08049000 

** MEFINE == nECLARED IN SEGMENT 3 aT 01278500 

12922000 143337000 15091800 145184850 45302300 
w= INTEGER "= DECLARED IN SEGMENT 2 AT 01001590 

*02968000" 02971000 #02974500* 02975000 02976500 02977500 *02978500*" 02982000 
STREAM LABEL = DECLARED IN SEGMENT 43 AT 05325080 == OCCURS AT 05328390 
053925240 

STREAM LABEL = MECLARED IN SEGMENT 43 AT 05325080 == OCCURS AT 05325350 
05325250 

STRFAM LABEL «=» PECLARED IN SEGMENT 43 AT 05325080 = OCCURS AT 053295360 
05325260 

STREAM LABEL = DECLARED IN SEGMENT 43 AT 05325080 = OCCURS AT 05325380 
05325270 

getty me DECLARED IN SEGMENT 43 AT 05325080 == OCCURS AT 05325390 

3952 

STREAM LABEL = DECLARED IN SEGMENT 43 AT 05325080 == OCCURS AT 05325400 
05395298 

STREAM LABEL == DECLARED IN SEGMENT 43 AT 05325080 = OCCURS AT 05395410 
05325300 | 

STREAM LABEL = DECLARED IN SEGMENT 43 AT 05325080 == OCCURS AT 05325490 
053295310 

REAL 7" DECLARED IN SEGMENT 3 AT 01693000 

STREAM VARIABLE == VALUE PARAMETER =" DECLARED IN SEGMENT 3 aT 01737350 
01737450 

STREAM VARIABLE == DECLARED IN SEGMENT 3 AT 01759000 

#01781000% 

STREAM VARIABLE = VALUE PARAMETER == DECLARED IN SEGMENT 8 AT 02001760 
02001765 02004780 

STREAM VARTABLE == VALUE PARAMETER »= DECLARED IN SEGMENT 3 AT 02041000 
02043000 

STREAM VAR{ABLE = VALUE PARAMETER == DECLARED IN SEGMENT 3 AT 02045000 
02046000 02050000 

STREAM VARIABLE == VALUE PARAMETER == DECLARED IN SEGMENT 11 AT 02196530 

02196560 

INTEGER ==" DECLARED IN SEGMENT 14 AT 02249000 

#02251000%*02252000% 02255000 02259000 

STReaM VaRiaBlbe == ValbUE PaRaMeTER == DECLARED IN SEGMENT 15 aT 02260400 
02764550 

STREAM VARIABLE == VALUE PARAMETER e= DECLARED IN SEGMENT 45 AT 02264700 
02264850 

REAL = DECLARED IN SEGMENT 32 AT 04904000 

*04908000% 04209000 04291000 04223000 

INTEGER ==" DECLARED IN SEGMENT 33 AT 04237000 

#04238000% 04239000 #04240000« 

STREAM VARIABLE = VALUE PARAMETER =" DECLARED IN SEGMENT 38 AT 05067000 

05075000 

t1NTFGER == VALUE PARAMFTER == DFCLARED IN SEGMENT 3 AT 05325010 

05325460 05325470 05325480 


029863000 


N e* STREAM VARIABLE == VALUE PARAMETER == DECLARED IN SEGMENT 43 AT 05325040 
05395050 05325030 

N = STREAM VARTABLE == DECLARED IN SEGMENT 44 AT 05334200 
05334400 05334600 

N ©" STREAM VARIABLE == VALUE PARAMETER =" DECLARED IN SEGMENT 46 AT 05415000 
05421000 

N © STREAM VARIABLE =" VALUE PARAMETER =" DECLARED IN SEGMENT 49 AT 06064000 
06067000 

N #* STREAM VARTABLE =" VALUE PARAMETER ©" DECLARED IN SEGMENT 57 AT 07038100 
07038500 


N ose oo NTEGER =" DECLARED IN SEGMENT 66 AT 07646395 
*07696495% 07646510 «07646515 07646625 07646630 
N == STREAM VARIABLE == VALUE PARAMETER = DECLARED IN SEGMENT 67 AT 07653500 


07655500 

N = STREAM VARIABLE == VALUE PARAMETER e#= DECLARED IN SEGMENT 74 AT 08999075 
08999100 

N = STREAM VARTABLE *= VALUE PARAMETER == DECLARED IN SEGMENT 80 AT 09378000 
09381000 


N os" INTEGER #* DECLARED IN SEGMENT 81 AT 09393000 


"09400000 09402,00 09403000 09405500 09406000 09407000 #09413000* 09417000 09470000 #09430050# 09430075 


N © REAL #* VALUE PARAMETER =" DECLAREN IN SFGMENT 81 AT 09393240 


09393300 

N oe See VARTaABLe oe ValLUE PARAMETER =" DFCLARED IN SEGMENT 81 AT 09393700 
9393730 

N = STREAM VARIABLE =" VALUE PARAMETER == DECLARED IN SEGMENT 86 AT 10257400 
10957300 


e= REAL * DECLARED IN SEGMENT 86 AT 10958100 
*10263110% 10264700 10264900 
** REAL °* DECLARFO IN SEGMENT 91 AT 13221000 
*13258000% 13265000 13271000 
om STREAM VARIABLE "= DECLARED IN SEGMENT 96 aT 13673150 
13673300 13673400 
w= STREAM VARIABLE ** VALUE PARAMETER =" DECLARED IN SEGMENT 124 AT 17051400 
17051500 17051900 
NAMEDFC ** LABFL @* DFCLAREN IN SEGMENT 98 aT 14015000 "-e OCCURS AT 14161000 
14070000 
NAMEID =" DEFINE ** DECLARED IN SEGMENT 3 AT 01705200 
07046000 O7048000 344161040 14164420 345276020 45276090 15295100 148301500 45305300 
NAMEV ©" WEFINE ==" DOFCLARED IN SEGMENT 3 aT 01295000 
NB "= REAL "= DECLARED IN SEGMENT 103 AT 14269060 
14269448441 42695408 14269560 14269600 
NBITF =" MEFINE "=" MECLARED IN SEGMENT 3 aT 01154300 
05273400 05274200 06315400 06316400 14269448 14269600 
NCTE 7" (INTEGER 7" NMECLARED IN SEGMENT 3 aT 01624000 
*13228000% 14056000 +*14057000* 
NCI1O #*  NTEGFR =" PFCLARED IN SEGMENT 98 aT 14031000 
#14056000» 
NCR «= eee VARYABLE »* VaLUE PARAMETER © nECLARED IN SEGMENT 2 AT 00541000 
542000 
NCR =" INTEGER =" PFCLARED IN SEGMENT 3 AT 01330000 
02128500 02129000 02129500 #02213000%%0221 4000402225250 «02229000 «%02930750" 024;0000 02485000 
02680000 02697000 *02720000% 02731000 02745000 02750000 02753000 07786000 02791000 02807000 
02888000 02902000 #02903000« 
NcR =" STREAM VARTABLE =" ValUr PARAMETER =" pneclLARED IN SEGMENT 3 aT 01756000 
01761000 *01768000%%01773000% 014780000 
NCR == STREAM VARTABLF == NAME PARAMETER == DECLARED 1N SEGMENT 9 AT 02089500 
02126000 


z ££ 2&2 2 


02665000 
02813000 


NCR «* STREAM VARTABLF = VALUE PARAMETER == DECLARED IN SEGMENT 3 AT 02183500 
02183750 029484500 
NCRV ee STREAM VARIABLE == VALUE PARAMETER ©" DECLARED IN SEGMENT 9 AT 02090000 
02090500 02092500 «02102000* 02124500 
NEQ =" DEFINE "= DECLARED IN SEGMENT 3 AT 04664000 
NEQ =" DFFINE == DECLARED IN SEGMENT 119 aT 17002000 
NER ee seen apn ne #= VALUF PARAMETER e#* NnECLARED IN SEGMENT 80 AT 09364000 
34680 

NESTBHT =" DEFINE = NECLARED IN SEGMENT 3 aT 01001020 

02472000 07397300 144483100 14604000 
NeESTCTR == REAL == neECLARED IN SEGMENT 3 aT 01722000 

*05375100%#14481900" 14483400 
NESTCUR *= REAL =" MECLARED IN SEGMENT 3 aT 01722000 

*05402200*% 05409400 *05409300* 
NESTFORM = STREAM PROCFNURE == DPECLARED 1N SEGMENT 46 AT 05415000 

05426000 05431000 
NESTLEVEFL = REAL = DECLARED IN SEGMENT 3 AT 01484000 

*16126000%%16142000e 16166000 16171000 16260000 46265000 
NESTOG "> DEFINE @* DECLARED IN SEGMENT 3 AT 01001310 

07397100 144483300 14601000 


NESTPRT o= REAL ARRAY ©" DECLARED IN SEGMENT 3 aT 01724000 


05402000 05402200 *05402300%#05404000% 05409200 *05409500« 05425000 05425400 05430500 
*#14483300% 
NESTS == PROCENURE == NECLARED IN SEGMENT 108 AT 16115000 
161444000 16484000 
NESTSORT = PROCEDURE == DFCLARED IN SEGMFNT 3 AT 05437000 == FORWARD AT 05414100 
05425200 05442000 05443000 
NEW »* STREAM VARIABLE ** NAME PARAMETER *= OFCLARED IN SEGMENT 3 AT 02016000 
0207;8000 
NEWBASE ** BOOLEAN = NMECLARED IN SEGMENT 3 AT 01001490 
02192000 *02192500%402583000%%09028920" 
NEWBIT = DEFINE =" DFCLARED IN SEGMENT 3 AT 01001030 
02193750 02388000 092782500 
NEWID »* PEFINE ©" DECLARED IN SEGMENT 119 aT 17002009 
17080000 
NEWINCL @© DEFINE == DECLARED IN SEGMENT 3 AT 071001330 
NEWINCLBIT #= DEFINE == DECLARED IN SEGMENT 3 AT 01001040 
NEWINX ** INTEGER == DECLARED IN SEGMENT 3 AT 04000860 
NEWTAPBUF =" REAL ARRAY = DECLARED IN SEGMENT 3 AT 03490530 
NEWTAPE ==" FILE =" DECLARED IN SEGMENT 3 aT 01560000 
02194000 09282500 17002510 
NEWTOG °" ODEFINE ©" DECLARED IN SEGMENT 3 AT 01001320 
02193750 09282500 
NEXT = INTEGER PROCENURF =" DECLARED IN SEGMENT 3 AT 02956000 
#02968000% 02968500 02974500 02978500 
NEXT "= LABEL °= DECLARED IN SEGMENT 107 aT 15076000 == OCCURS AT 15253000 
35292000 
NEXTCHK == LABEL "= PFCLARED IN SEGMENT 54 AT 06315000 == OCCURS AT 06327000 
06315500 06317000 06320500 
NEXTINFO = REAL =" OFCLARED IN SEGMENT 3 AT 01620000 


05447000 05448000 


02265350 *02726000%#09033000« 10250000 10254000 10261000 10263000 #10263100%«10285000 4443291000" 13302000 


13303000 13304000 «13305000% 13308000 13309000 13310000 13310200 43310580 13310950 


13311000 «13312000« 


13593000 13594000" 13770600 14055000 14166500 14217000 14319000 14329000 #143300008614373000«% 14375000 


#14463000" 16442000 

NEXTLANK = AFFINE "= mECLARED 1N SEGMENT 65 aT 07596000 
07604050 07604080 07604090 07607000 07609000 

Nur oe" Real == DECLARED IN SEGMENT 3 AT 03689000 


*02681000%4%02785000« 02800000 02801000 02833000 07835000 02838000 07840000 142035000 
NINFOQO =" INTEGER © OFCLARED IN SEGMENT 98 AT 44030000 
#14055000* 14600000 14601000 
NLAB e= RFAL ©" DECLARED IN SEGMENT 106 AT 14418000 
*1442200048#14437000% 
NLO #* REAL ©" DECLARED IN SEGMENT 3 AT 01689000 
#02681000%#02785000% 02800000 02833000 02835000 02838000 02840000 12014000 
NLOC == RralL =" DECLARFD IN SEGMENT 106 aT 14418000 
*1494292000%*144330008% 14451200 
NLOCS ©" nEFINE =" npeclLAREn IN SEGMENT 98 aT 14022000 
NODTMPART == DEFINE | DECLARED IN SEGMENT 3 AT 04532000 
07098000 07412000 
NOHEADING = BOOLEAN *= DECLARED IN SEGMENT 3 AT 01007480 
#04836000% 02195000 02195750 02196590 02244200 02298750 02264950 09421000 05039600 08046000 
07925020 *09028050« 09362000 13653500 13676000 
NONLITNO =" DEFINE *= DECLARED IN SEGMENT 3 AT 01209000 
02851000 02924000 07604120 07665000 07666500 08032000 43226000 
NONSAVNDX ©" INTEGER ** OFCLARFD IN SEGMENT 81 aT 09393000 
09405500 09406000 «09407000*% 09427100 
NOP ©" DEFINE °* DECLARED IN SFGMENT 3 AT 01665000 
04212100 04223100 07078000 08094000 13752000 
NOP ©* DEFINE ** DECLARED IN SEGMENT 108 aT 16012000 
NORMAL ©" LABEL ©" DECLARED IN SEGMENT 35 AT 04311010 == OCCURS AT 04311120 
04311060 04311080 
NORMALRFEF = DEFINE =" DECLARED IN SEGMENT 3 AT 01007495 
02882200 13310580 
NOTOP #* WEFINEG =" NHECLARED IN SEGMENT 3 aT 01272000 
02964000 02974500 06146000 
SUPEEREND 7" LABEL = PECLARED IN SEGMENT 24 AT 02640000 = OCCURS AT 02845000 
2687000 
NUMBERS ** STREAM LABFL *" DECLARED IN SEGMENT 9 AT 02091500 "== OCCURS AT 02117000 
02096000 02102500 
NUMLE =" ROOLEAN *°= VALUE PARAMETER ** pnECLARFD IN SEGMENT 69 AT 08080000 
08095000 08162000 08165000 
NXTELBT = INTEGER "=. NECLARED IN SEGMENT 3 AT 01319000 
02644000 02940000 402942000 #0294 7000 % 4084 4000044081 74000%%09038000% 10263400 «10263500% 40277000 
12112000 *121130008 12125000 
Ni ose ALPHA =" DECLARED IN SEGMENT 5 AT 01822000 
#018298500*% 01835500 «01835800 
N2 "= ALPHA *= DECLARED IN SEGMENT 5 AT 01822000 
#01828500« 01635500 *01835800" 
OCR ©" REaL =" DECLAREN IN SEGMENT 91 aT 43221000 
#13249000% 13250000 13252500 13257000 13262000 13263000 
OcTaALWORDS =" . STREAM PROCEDURF ©" DECLAREN IN SEGMENT 15 aT 02264400 
02764650 02265100 02265250 02265700 02265950 
OCTIZrF ©" BOOLEAN STREAM PROCEDURE *" DECLARED 1N SEGMENT 3 AT 02001838 
#02001852% 02001854 02686000 
OK e* LABFL *" DECLARED IN SEGMENT 38 aT 07393100 == OCCURS AT 07397600 
07397400 
OLDL ** REAL ©" DECLARED IN SEGMENT 65 aT 07596500 
#07597000% 07600800 *«07604040% 07604067 07604070 07604100 
OLNSEO ee erneae VARTABLF °" VALUE PARAMETER "= DECLARED IN SEGMENT 3 AT 01741200 
1741300 
OMT s= STREAM VARIABLE =" VALUE PARAMFTER °" DECLARED IN SEGMENT 3 AT 02183500 
02183750 02186750 
OMITBrT = DEFINE. == DECLARED IN SEGMENT 3 AT 01001050 
02194250 02195000 02195750 02214200 02998750 09935250 02491000 09421100 07095000 
OMsTTINGA © DEFINE *= HECLARED IN SEGMENT 3 AT 01001340 


05325490 


19282000 


OPARSIZE 
OPCLASS 
OPrLass 


02194250 02195000 02195750 02214200 02298750 09235250 02421000 07025020 
me DEFINE &- 


01000904 


we REAL 


02316000 


02331000 


DECLARED IN SEGMENT 3 AT 01000902 


09414029 09444026 


== MECLARED IN SEGMENT 28 AT 02981000 
*02982000" 02983000 
we INTEGER "# 

#06048000% 06052000 


02983500 
06055000 


02984000 


NECLARED IN SEGMENT 48 AT 06042000 


OPCODF *" DEFINE °°" PFCLARED IN SEGMENT 117 AT 16366000 
16379000 
OPpc = PFFINE "= OFCLARED IN SEGMENT 69 aT 08016000 
08108000 08130000 08217000 
OPERATOR *= DEFINE = NECLARED IN SEGMENT 3 AT 01271000 
06076000 
OPERATOR © INTEGER «== VALUE PARAMETER © DECLARED IN SEGMENT 3 AT 04006000 
04007000 
OPERATOR =# INTEGER e* VALUE PARAMETER == DECLARED IN SEGMENT 3 AT 04011000 
04040000 04014000 
OPFRATOR == INTEGER |= VALUF PARAMETER == DECLARED IN SEGMENT 3 aT 04030000 
04028000 04029000 04034000 
OPFRATOR = INTEGER «= DECLARED IN SEGMENT 48 AT 06042000 
#06044000% 06054000 
OPERATORS = OEFINE == DECLARED IN SEGMENT 3 AT 01299200 
06074000 
OPINX w=  mNTEGER == DECLARED IN SEGMENT 3 AT 01000800 


#02371000%#02312000" 02344000 
OPTIONLENGTH ©" SWITCH LABEL &* 
02373000 


02316000 02347000 07334000 02338000 
DECLARED IN SEGMENT 19 AT 02364000 


02382000 02356000 


Po ow* REAL "=" DECLARED IN SEGMENT 3 AT 01489000 


OPTIONS *= REAL ARRAY ==" DECLARED IN SEGMENT 3 aT 01000904 
02342000 #023144000% 02317000 #02331000 4402334000 %402338000%8023520004402356000%%02426000 «409251 208% 094140204 
09414026 

OPTIONWORD =" BOOLEAN =" pFeLARED IN SEGMENT 3 aT 01000910 
01835600 02191500 02193750 02194250 02195000 02195750 02196590 02214200 02228100 02228750 02231500 
02232500 02234800 02235250 *02330000%402335000#%023390008%02353000%e02357000" 02421000 02425500" 02427000 
02428000 02436000 02533000 «02577000« 02602500 02882200 02910600 04148000 04150000 04278500 04297000 
05039600 05046000 05048000 05097500 05099000 05325490 05350100 05376400 06123000 070295020 07086500 
07397100 07598100 07660600 0817681300 4090280004%09253050« 09253100 09282500 09384500 09387000 09389500 
09394100 09405000 09414010 09421000 09430050 09447010 43330050 13310525 133490560 13347200 136541100 
136952000 13653500 13674000 43676000 136774300 14342100 414461500 14469100 44483400 44493500 44601000 
15990600 15091200 15184400 15184700 15301009 146159100 16318500 46495300 47094250 147094500 

OROP "" nmerFINe ** pecblaReEn tN SEGMENT 3 at 01275000 
02965000 02984000 

OUTDEC *= LABEL =" NECLAREN JN SEGMENT 98 AT 14014000 -# OCCURS AT 14158000 
14049000 

OUTPUTSOURCE = PROCENURE e©= DECLARED «tN SEGMENT 3 AT 02190500 
02196500 09230500 02235000 

OUTPUT? == PROCEDURE = DECLARED IN SEGMENT 122 AT 17016000 
17945000 

OUTPUT2 == PROCEDURE == DECLARED IN SEGMENT 124 AT 17087000 
17096900 17119000 

OUTV *= HFFINE ©" DECLARED IN SEGMENT 3 AT 01289000 

OWNERR ©" LABEL "* DECLARED IN SEGMENT 98 AT 14013000 = OCCURS aT 14135000 
14018000 

OWNTOG ©" STREAM VARIABLE =" VALUE PARAMETER == DECLARED IN SEGMENT 124 AT 17047300 
17047400 17048400 

OWNV w= DEFINE "= DFCLARED IN SEGMENT 3 AT 01280000 
13383000 13723000 14161040 


*14335000" 44387000 ¢4430000 14454200 14463000 
e= I tNTEGER ** VALUE PARAMETER =" DECLARED IN SEGMENT 3 AT 02635000 
02644000 *02917000*% 02920000 02923000 02924000 
** STREAM VARIABLE ©= VALUE PARAMETER ©= DECLARED IN SEGMENT 38 AT 05050000 
05052000 05055000 
P =" STREAM VARIABLE c= VALUE PARAMETER ** DECLARED IN SFGMENT 36 AT 05059000 
P = REAL *" OFCLARFD IN SEGMENT 46 AT 05414100 
#05495300*% 05425400 
"= REAL #= DFCLARFD IN SEGMENT 89 AT 12402000 
*12108000*% 12126000 
P oem oY NTEGER © DECLARED IN SEGMENT 97 AT 13750000 
#13752000« 13755000 *13761000%%13767200" 13767000 
PACK = STREAM PROCEDURE == DECLARED IN SFGMENT 3 AT 04270000 
04976000 04296000 
PACKIN °* LABEL =" NECLARED IN SEGMENT 86 AT 10258300 == OCCURS AT 10264910 
102464000 10264200 10264400 10264420 
PACKINFO @* STREAM PROCEDURE “* DECLARED IN SEGMENT 87 aT 10236000 
19240000 10251000 10254000 
PAN =" STREAM PROCENURF °" NnECLARED IN SEGMENT 80 AT 09364000 
09386000 
PANA *= PROCENURE =" NFCLARED IN SEGMENT 3 AT 06413000 "= FORWARD AT 03021000 
06186000 06417000 
PARAMTOG = STREAM VARTARLE =" VALUE PARAMETER =" DECLARED IN SEGMENT 124 aT 17047300 
17047400 17049410 
PARM em ROOLEAN STREAM PROCEDURE ©= DECLARED IN SFGMENT 102 AT 14254200 
#14254700% 14259080 
PARSE =" PROCENURE == DECLARED JN SEGMENT 3 AT 06313000 == FORWARD AT 03034000 
06035000 06181000 06335000 
PARTTALWORD *= DEFINE = DECLARED IN SEGMFNT 107 aT 15076130 
15089200 15092800 15095400 15095700 15096400 15184000 15185100 15185600 15186100 45300700 
15302800 15305000 15307000 
PASSFORMAT =" PROCEDURE =" DECLARED IN SEGMENT 3 AT 05214000 
05227000 
PAY »# REAL ARRAY == PMECLARED IN SEGMENT 124 AT 17069500 
17083000 17091510 17094300 17094400 17094650 17094700 17095500 17095550 17096000 17096300 
PCTR e= RrAL = DECLARED IN SEGMENT 57 aT 07038000 
*07940000*% 07042000 *07094000* 07098000 
PoOrFS @= WEFINE =" DFCLARFD IN SEGMENT 3 AT 01299020 
13746000 
PEN e* STREAM PROCEDURE ** DECLARED IN SEGMENT 80 AT 09370000 
09377000 09388000 
PFRCENT ©" LABFL ©* NFCLAREN IN SEGMENT 24 AT 02637000 == OCCURS AT 02731000 
02641000 02906000 
PER1OD -= DEFINE ** DFCLARED IN SEGMENT 3 AT 01264000 
06995000 06106400 06340000 07024000 07076000 45087600 15483300 152776440 15300000 
PERMANENT #* BOOLFAN -* VALUE PARAMETER © DECLARED IN SEGMENT 3 AT 05333000 
05331000 05345000 
PINFOO = INTEGER = DECLARED IN SEGMENT 98 AT 44026000 
#14375000" 14471000 14883000 14489000 
PJ = REAL "* DECLARED IN SEGMENT 3 AT 01617000 
#13344000«% 14073000 14085000 14117000 414120000%414323000% 14333300 14334000 14335000 14349000 
14374000 «14387000 14411300 14415300 
PLug © PROcFHURF ** prebaRed IN SEGMENT 69 aT 08020000 
08116000 08188000 08213000 08218000 
PN =» <INTPGER © DECLARED IN SEGMENT 97 AT 13750600 
*13751100%813761410% 13770000 *13770600*% 13773000 
POINTFR == INTEGER *= NWECLARED IN SEGMENT 9¢ AT 13219000 


uv VU 


vo 


15302300 


17096450 


14364000 


#132272000« 13223000 13226000 13229000 #13240000* 13249000 13255000 13257000 13263000 43279000 
13283500 13284000 13286000 *13287000* 13290000 
POL =" LAREL =" DECLARED IN SEGMENT 57 AT 07037000 == OCCURS AT 07052000 
07059000 
POLISHER "= PROCEDURE °= DFCLARED IN SEGMENT 3 aT 06060000 == FORWARD AT 03009000 
06170000 07052000 07512000 07743000 
POLTSHV "* DEFINE =" nrcolLARED IN SEGMENT 3 aT 01212100 
07052000 07511000 13338000 
PORS = INTEGFR =" VALUE PARAMFTER 7" DrFCLAREN IN SEGMENT 3 aT 05325010 
05325460 05325470 05325480 
PORS « STREAM VARTABLE == VALUE PARAMETER == DECLARED IN SEGMENT 43 AT 05325040 
05325050 053258090 
POSITION == STREAM VARTABLE =" VALUE PARAMETER = DECLARED IN SEGMENT 3 AT 04270000 
042971000 04273000 
PRIMARY == PROCEDURE == DECLARED IN SEGMENT 3 AT 06126000 == FORWARD AT 03005000 
06016000 06018000 06023000 06035000 06049000 06147000 06472000 06181000 06182000 07076000 
PRINT == STREAM PROCENURE =" DECLARED IN SEGMENT 95 AT 13633000 
13643000 143653000 
PRINT = STREAM PROCENURF =" DFCLARED 1N SEGMENT 96 AT 13661000 
13673000 13675000 
PRINTCARD ==" DEFINE == DECLARED IN SEGMENT 3 AT 02182500 
02195000 02195750 02214200 02228750 02471000 07025020 
PRINTNOLLARRIT == NEFINE =* DECLARED IN SFGMENT 3 AT 01001060 
02998750 09377000 
PRINTDOLLARTOG == DEFINE == DECLARED IN SFGMENT 3 AT 01001350 
02228750 
PRINTFR =" DEFINE =" DFCLARED IN SEGMENT 129 AT 17091000 
PRINTXREFSTATISTICS = PROCEDURE =°= DECLARED IN SEGMENT 126 AT 17053300 
17055200 17119200 
PRL ©" DEFINE ©= DECLARED IN SFGMENT 3 AT 03666000 
PROAD = «INTEGER =" DECLARED IN SEGMENT 98 AT 14032000 
*14313000%#14320000% 14461100 14476000 14489000 
PROADO "= REAL *" DFCLARED IN SEGMENT 3 AT 01613000 
14037000 *14476000* 14602000 
PROCENUREDEC == LABEL == DECLARED IN SEGMENT 98 AT 14015000 = OCCURS AT 14270000 
14020000 14137700 
PROCID "" DEFINE °* DECLARED IN SEGMENT 3 AT 011487000 
07399000 07404000 13278000 14284000 44292000 
PROCSTMT  ©= PROCEDURE == DECLARFND IN SFGMFNT 3 aT 07391000 == FORWARD aT 03029000 
06162000 07425000 07735000 
PROCV =" NEFINE =" pWECLARED IN SEGMENT 3 aT 01293000 
PROGDFSCBLDR == PROCEMURF == DECLARED 1N SEGMENT 3 AT 05245000 em FORWARD AT 03047000 
05255000 07677000 13252500 143746000 14464100 
PROGRAM == PROCEDURE == DECLARED IN SEGMENT 3 AT 09003000 
09448000 146495900 


PROINFO #* REAL ==" DECLARED IN SEGMENT 3 AT 01608000 


07090000 13677700 13677300 14304000 414344000%414320000% 14388100 14414200 14441300 44448200 
14457000 14461200 14469100 14470000 14483200 14483300 14483400 «14496000% 15080000 
PRT *" REAL ARRAY "" DFCLARED IN SEGMENT 3 aT 01343000 
*0524B8000%405252000% 09414040 09415000 
PRTAD =" REAL "=" VALUE PARAMETER “" PWECLARED 1N SEGMENT 3 AT 13734000 
13731000 13732000 13746000 
PRTADR °" INTEGER = VALUE PARAMETER =" DFCLARED IN SEGMENT 3 AT 05247000 
05245000 05246000 *05247500* 05248000 05252000 
PRIBASE °" DEFINE ©" nFCLARFD IN SEGMENT 3 aT 01342000 
01343000 01724000 01725000 05424000 09039000 09434030 09415000 09419300 
PRTBIT =" DEFINE =" QFCLARED IN SEGMENT 3 AT 01001070 : 


13281000 


14445300 


02395000 05376100 
PRTE "= AFFINE =" DFCLARED IN SEGMENT 3 AT 01667000 
04918000 04023000 04033000 05316000 06110300 08068000 
PRT{ = {INTEGER @=" NMECLARED IN SEGMENT 3 aT 01703000 
*#05349000u 07600440 *09039000* 14054000 
PRTgMaX 7" INTFGFR = PWECLARED IN SEGMENT 3 aT 01703000 
05347000 #05350000««09039000% 09388000 09444100 09419000 
PRTTO ee INTEGER == DFCLAREND IN SEGMENT 98 aT 14030000 
*14054000% 
PRYOG e= WEFINF =" NECLAREN IN SEGMENT 3 aT 01001360 
05376100 
PRTOP = WEFINE ©" PECLARED IN SEGMENT 3 aT 01342000 
01343000 04724000 01775000 05424000 


15100600 


15304400 


PRTSIZ "= STREAM VARTABLF = VALUE PARAMETER = DECLARED IN SEGMENT 80 AT 09370000 


09371000 09372000 
PTOG = BOOLEAN = NMECLARED IN SEGMENT 3 aT 01592000 


13319580 13344400 13343000 13370000 14332000841 4373000%%14388000« 


PUNCHRIT *= DEFINE = NWECLARED IN SEGMENT 3 aT 01001080 
02506000 05048000 

PUNCHTOR ©= QEFINE "= NECLARED IN SEGMENT 3 AT 01001370 
05048000 


PURGE * PROCEDURE *= DECLARED IN SEGMENT 3 AT 13215000 == FORWARD AT 03068000 


13745000 43773000 14471000 144483000 144601000 
PURGERIT = DEFINE = DECLARED IN SEGMENT 3 AT 01001090 
02508000 
PURGETOR "= DEFINE = PECLARED IN SEGMENT 3 AT 01001360 
PURPT =" NWEFINE =* NECLAREN IN SEGMENT 3 aT 01628000 
02726000 143285000 13309000 144088000 44448000 44446000 
PUSHEF ** PROCEDURE = DECLARED IN SEGMENT B81 AT 09393240 
09393480 09396000 09402100 09406000 
PUSHER = REAL PROCEDURE =" DECLARED IN SPGMENT 81 AT 09393050 
#09393140%#09393000% 09393230 09424000 09497500 
PUT = PROCEDURE ** DECLARED IN SEGMENT 3 AT 05008000 
05132000 06104400 07545000 07610000 09433900 09134100 
141416000 14117000 14168000 14224000 14259150 14269600 
14415200 14430000 14451200 14457000 14470000 15376400 
16260000 17004710 
PuTNBUMP *= PROCFDURF =" pFeLARFD IN SFGMFNY 3 aT 13589000 =e 
09034000 14167000 14195000 14217000 14221000 44319000 
16446000 
PUTOGFTHER == PROCEDURE "" DECLARED IN SEGMENT 86 AT 10234000 
10257000 10763900 140768000 40269000 402770000 40273000 


13304000 
14315000 
16138000 


13348000 13365000 
14334000 14353000 
16166000 16167000 


FORWARD AT 03057000 


14331000 


10274000 


PUTSEQNO = STREAM PROCEDURE = DECLARED +N SEGMENT 3 AT 027005000 


02906000 02202060 02214250 02218000 02234750 02368000 


02716000 


Pi ee REAL ** VALUE PARAMETER ==" PECLARFD IN SEGMENT 3 AT 03057000 


P{ ee STREAM PROCEDURF == DECLARED IN SEGMENT 38 AT 05050000 
05096000 


P1 = INTFGER == NAME PARAMETER == DECLARED IN SEGMENT 3 AT 15070000 


15085800 45089600 145098200 145099200 45402400 45484200 


15186800 


15276210 15300800 15301700 15304300 15304400 «153046006 15305000 


P2 *© BOOLEAN °* OFCLARED IN SEGMENT 3 AT 01588000 


13341000 43343000 13347000 «13385000« 13722000 413723000 w414133000 46141641070 m014318000 4414325000» 


P2 = STREAM PROCEDURE =" DECLARED IN SEGMENT 38 AT 05059000 
05096000 
P3 == BOOLEAN = DECLARED IN SEGMENT 3 AT 04589000 


13725000 #437260006# 441330004141 3800044144 9900086141 40000K4 44441000" 


14403000 16000600 


02904000 


15276400 15276410 
18306700 «15307300% 


Q = STREAM VARIABLE = VALUE PARAMETER == DECLARED IN SEGMENT 2 AT 00523000 


00524000 00526000 


13408000 
14388100 
16172000 


146443000 


13276160 


13768000 
14411200 
16257000 


16445000 


15276190 


Q «= 
Q 
Q am 
Q == 
Q «- 
Q aa 
Q =. 
Q om 
QUOTE 
R == 
RANGE 
RCA 


ROV 


ALPHA == PFCLARED IN SEGMENT 3 AT 01316000 
02313000 02314000 «02327000*% 02343000 «02371000 02375000 02376000 07378000 02382000 029384000 02386000 
02389000 02392900 02394000 02396000 02400000 02406000 02419100 02419200 02420000 02422000 +#02424000% 
02433000 02462000 02467000 02469000 02471000 02473000 02477000 02479000 02481000 02495000 02497000 
*02499000*% 02505000 02507000 02509000 02515000 02549000 02521000 02523000 02529000 02566000 02576000 
02588000 #£02590000%402650000%40 2686500440 2696000%%02698000e 02700000 £02754000%«0 28292000840 2846000%40 2865000" 
02879000 «029585008 02960500 02961000 02964000 02964500 02965000 02965500 05043000 050488000 07086200 
07086300 *13282000e«14441000*% 16213000 16378500 
tNTFGER =" DECLARED IN SEGMENT 5 aT 01822000 
#01833000%*01834000% 
REAL ARRAY =" NAME PARAMETER =" DECLARED IN SEGMENT 3 AT 04231000 
04239000 042941000 04243000 
REAL ©" DECLARED IN SEGMENT 35 AT 043114020 
*#043141050%#04311070% 04311090 
ROOLFAN =" DFCLARFO IN SEGMENT 44 AT 05343000 
#05 344750 *#05371000%#05374000% 05376100 
REAL *" ODECLARFD 1N SEGMENT 46 AT 05414100 
#054295100%#054250008 05495300 
DEFINE == DECLAREN IN SEGMENT 69 aT 08015000 
08093000 08094000 08185000 08200000 08210000 08238000 
INTEGER == DECLARED IN SEGMENT 81 AT 09393010 
*09395700**094055008" 09447020 
Se eee ee VALUE PARAMETER == DECLARED IN SEGMENT 86 AT 10257100 
10257700 
e* LABEL *=* DFCLARED IN SEGMENT 24 aT 02637000 = OCCURS AT 92690000 
02641000 
STREAM VARIABLE 7" VALUE PARAMETER =" DFCLARED IN SEGMENT 3 AT 02183500 
02183750 02185750 
== BOOLEAN PROCFDURE == DECLARED 1N SEGMENT 3 AT 05297000 
#05 304000» 


e- DEFINE = ODECLARED TN SEGMENT 108 aT 16008000 
w= DEFINE *= DECLARED IN SEGMENT 3 AT 04668000 


READACARD = PROCEDURF «#= DECLARED IN SEGMENT 3 AT 02196750 == FORWARD AT 02065000 


02130500 02238000 02731000 09035000 


READTAPE ©= PROCEDURE == DECLAREN IN SEGMENT 12 AT 02198500 


02202250 02208500 02219500 


REALARRAYIO ©" DEFINE = DECLARED IN SEGMFNT 3 aT 01203000 


07056000 07057000 13380000 13389000 


REALDFC == LABFL "= DECLAREN IN SEGMENT 98 aT 14013000 =" OCCURS AT 14138000 


REALIN 


14018000 14135000 14136000 14136100 
me DEFINE "* DECLARED IN SEGMENT 3 AT 01199000 
07060000 07069000 08038000 12035000 14138000 15276210 


REALPROeID °* neEFINE == DECLARED IN SEGMENT 3 AT 01195000 
REALSTRPROC?D == DEFINE = DECLARED IN SEGMENT 3 AT 01191000 


14294000 


REALSUBI1D *" DEFINE = DECLARED IN SEGMENT 3 AT 01184000 


REALV 
RECOV 


RED 
REED 


14164000 14167000 

we NEFINE =" NMECLARED IN SEGMENT 3 aT 01283000 
13389000 14161120 14164000 

#° LABEL = DFCLARED IN SEGMENT 91 aT 13220000 © OCCURS AT 13281000 
13251000 13256000 


ee STREAM VARIABLE == VALVE PARAMETER == DECLARED IN SEGMENT 3 AT 02011000 


we REAL PROCEDURF == DECLARED IN SEGMENT 3 AT 08999000 
#08999475*" 08999425 09399000 


REFCOUNT = DEFINE *» DECLARED IN SEGMENT 124 AT 17069300 


17080100 


REFIONOF = DEFINE == MECLARED IN SEGMENT 3 AT 01007425 


02001700 17080000 17091800 17097900 47093859 147094050 47094100 47437000 471417300 
REFTYPE = REAL =" VALUE PARAMETER °* ODFCLARED IN SEGMENT 3 AT 02001650 
02001640 07001645 02001695 
REGO *= OWN RFAL 7" NPFCLAREN IN SEGMENT 69 aT 08010000 
#08093000% 08094000 *06111000% 08120000 #08160000««08170000*% 08185000 08200000 «08210000* 08218000 08231000 
ReLap ©" Rrab =" VALUF PARAMFTFR == neECLARED IN SEGMENT 3 aT 13734000 
13731000 13732000 
RELAD =* REAL ©" DECLARFN IN SEGMENT 98 AT 14029000 
*14487000% 44489000 
RELOP =" MWEFINE ==" PECLAREN IN SFGMENT 3 aT 01277000 
05344500 144260000 14769280 16207000 
REMCOUNT ** OWN JNTEGFR =" DECLARED IN SEGMENT 86 AT 10230000 
10245000 10247000 *1024800048102490008610263000" 
REMEMRBERSFQONO == REAL =" DECLARED IN SEGMENT 107 aT 15075550 
*15085100« 15090600 15184400 15301000 
REPEFAY °" INTFGFR =" VALUE PARAMETER =" DFCLARED IN SFGMENT 3 AT 04011000 
04010000 04013000 04044000 
RES|Zr oe STREAM PROCFDURE "= DOFCLARED IN SEGMENT 3 AT 02056000 
RESTORESEQNUM =» STREAM PROCEDURE = DECLARED IN SEGMENT 19 AT 023202700 
02602800 
RESULT =" INTEGER = DFCLARED IN SEGMENT 3 AT 04386000 
02178500 02129000 «02327000% 02364200 »02371000%%02499000" 02500000 029579000 02586000 #02590000« 02591000 
02598000 «02602700 m402647000% 02648000 «0266300040 2666000 #*0 2667000 ¥ «02684000 *40 2694000 «#0 26980008n0 27000008 
402794000 4402747000 4%02749000 4402751000 me 02752000 4402754000 4402757000 #40 2788000 % 40279 3000 % «0 2806000 %402809000% 
#028 120004 «02816000 %%02820000%402846000m402889000%"028900008e02958500" 02959000 02959500 10263000 10272000 


19276000 

RESULT == STREAM VARTABLE == NAME PARAMETFR = DECLARED 1N SEGMENT 9 AT 09089500 
02092500 

RESULTSWITCH w= SWITCH LABEL == DECLARED IN SEGMENT 24 AT 02643000 
02648000 


RESULTV = STREAM VARYABLE = VALUE PARAMETER =" DECLARED IN SEGMENT 9 AT 027089500 
02090800 02094000 
RETURNSTORE == OWN REAL *©= DECLARED IN SEGMENT 69 AT 08010000 
08987000 08090000 *08166000**08168000%«08190000* 08193000 *08207000* 08215000 
RIGHT =" PROCFNURE == NMECLARED IN SEGMENT 3 AT 08999450 © FORWARD AT 03039800 
07675500 08999800 14461300 14603000 
RINX * Rrab ©" DECLARED IN SEGMENT 92 aT 13301000 
#13302000*% 13304000 13305000 
ROSF "= LABEL 7" DECLARED IN SEGMENT 24 aT 02639000 == OCCURS AT 02875000 
02879000 02881000 
ROUND =" LABEL =" DFCLARED IN SEGMENT 65 aT 07594000 == OCCURS AT 07645000 
07600000 07600900 07604000 
ROW ©" {INTEGER ©" DFCLARED IN SEGMENT 44 aT 05344000 
RP = LABEL = DECLARFN IN SEGMENT 50 AT 06437000 
RRB{ == BOOLEAN *= nMECLARED IN SEGMENT 3 aT 01522000 
RRB2 ©= BOOLEAN ©" DECLARED IN SEGMENT 3 aT 01525000 
RRi =" REAL #* DECLARED IN SEGMENT 2 AT 00507000 
#00529000%*00530000% 014557000 #143290008 14373000 
RRi0 °° REAL #* DECLARED IN SEGMENT 2 AT 00507000 
RRii == REAL =" DECLARFO IN SEGMENT 2 AT 00507000 
#00529000% 00531000 00533000 00536000 
RR2 eo REAL =" PECLARFD IN SEGMENT 2 AT 00507000 
#00530000% 01557000 
RR3 © REAL #* DECLARED IN SEGMENT 2 AT 00507000 
#00531000«#00532000¢. 01358000 
RRG e* REAL == DECLARED IN SEGMENT 2 AT 00507000 
*00532000*% 04558000 


RR5 
RR6 
RRT 
RRB 
RRO 
RSA 


RTBRKFT 


RTN 


RTPAREN 


RTPAREN 


RTS 
$ 


on 


REAL == DECLARED IN SEGMENT 2 AT 00507000 
*00534000%*00535000% 01560000 
Real == DECLARED IN SEGMENT 2 AT 00507000 
#00534000%*00535000% 01560000 
ReaL = peclaRen {N SEGMENT 2 aT 00507000 
#005 34000%#00535000% 01560000 
REAL © DECLARED IN SEGMENT 2 AT 00507000 
#005 37000%#00538000" 04561000 
REAL == DECLARED IN SEGMENT 2 AT 00507000 
#00537000%#00538000m 04561000 *07599000% 07601000 
DEFINE ©" DECLARED IN SEGMENT 108 aT 16018000 
"= DEFINE = DECLARED IN SEGMENT 3 aT 01265000 
05274300 05278000 06141000 06316500 06320000 06322000 06422000 10264300 12126000 33398000 
14259120 14269680 15260000 15276010 15294000 
DEFINE *= DECLARED IN SEGMENT 3 AT 01669000 
13740000 
e- DEFINE ==" DFCLARED tN SEGMENT 3 aT 041266000 
02976500 06115000 06175000 06416000 07067000 07096000 10264300 12039000 12126000 13756000 
13763000 14259320 14336000 16132000 46478000 
=> LABFL =" DFCLAREN IN SEGMENT 24 aT 02639000 =» OCCURS aT 02744000 
02642000 : 
DEFINE "=" DECLARED IN SEGMENT 3 aT 014670000 
07087000 13264000 13268000 
STREAM VARIABLE = NAMF PARAMETER "= DECLARED IN SEGMENT B AT 02001760 


02001780 

STREAM VARTABLF © NAMpe PARAMETER "= DECLARFO IN SFGMENT 3 AT 02001838 
02003642 

STREAM VARIABLE = NAMF PARAMETER = DECLARED IN SEGMENT 3 AT 02001858 
020071868 


STREAM VARTABLE == NAME PARAMETER ==» DECLARED IN SEGMENT 15 AT 02264900 
02264500 

STREAM VARIABLE == NAME PARAMETER = DECLARED IN SEGMENT 15 AT 02264700 
02264800 

BOOLEAN ** VALUE PARAMETER "= DECLARED IN SEGMENT 3 AT 03051001 
03051000 

ROOLFAN ** VALUE PARAMETER ©" DECLARED IN SEGMENT 3 AT 03067000 

REAL " VALUE PARAMETER == DECLARED IN SEGMENT 3 AT 04277500 

04280000 04280500 04281500 04289000 04283500 04284000 04285000 04285500 

REAL °* VALUF PARAMETER ** NDECLAREN JN SEGMENT 3 aT 04291000 

04296000 04297000 

tNTearR =" DECLARED IN SEGMENT 36 AT 04502000 

#04548000% 04551000 

cae "= VALUE PARAMETER == DECLARED IN SEGMENT 42 AT 05309000 

3141 

STREAM VARIABLE == NAME PARAMETER == DECLARED IN SEGMENT 44 AT 05334400 
05334300 05334500 

REAL ©" DECLARED IN SEGMENT 45 AT 054901000 

#05407000% 

STREAM VARTABLE °= DECLARED IN SEGMENT 46 aT 05416000 

05438000 05420000 

BOOLFAN *= DECLARED IN SEGMENT 49 AT 06063000 


*#06074000%*06103000% 

SWITeH LABEL == DFCLAREND IN SEGMENT 50 AT 06132000 
06438000 

SWITCH LABEL =" DECLARED IN SEGMENT 68 AT 07719000 
07797000 


BOOLEAN == NAMF PARAMETER #* DECLARED IN SEGMENT 69 AT 08027000 


13402000 


13761100 


SAF 


SAN 
SAV 


#08099000« 

ROOLFAN =" VALUE PARAMETER ©" DECLARED IN SEGMENT 69 AT 08063000 

#08065000% 08069000 

ROOLFAN == VALUE PARAMETER == DeclaRrd IN SEGMENT 69 aT 08072000 
08075000 08079000 

STREAM VARTABLE ©= NAMF PARAMFTER = DECLARED IN SEGMENT 86 AT 10257400 
192957200 40257800 

REAL = DECLARED «N SEGMENT 88 AT 12004000 

*12006000*%* 1202500081 2030000%*129038000**12055000*% 

REAL =" DECLARED IN SEGMENT 89 AT 1412402000 

#12110000« 

STREAM VARIABLE == NAME PARAMETER *# DECLARED IN SEGMENT 89 AT 12103000 
12104000 

STREAM VARIABLE =" NAMF PARAMETER "= DECLARED IN SEGMENT 96 AT 13673100 
13673200 43673350 

STREAM VARIABLE © NAME PARAMETER = DECLARED IN SEGMENT 102 AT 14254200 
14254300 

REAL ©" VALUE PARAMETER = DECLARED 1{N SEGMENT £08 AT 16029000 
16032000 

STREAM VARIABLE = NAME PARAMETER *#«© DECLARED IN SEGMENT 1424 AT 17087200 
17047700 


e= BOOLEAN © DFCLARED IN SEGMENT 3 AT 01300200 


13677400 *14299000» 


*" DEFINE °°" DECLARED IN SEGMENT 3 AT 01677100 
7" BOOLEAN ==" VaLUF PARAMETER ©" DECLARED IN SEGMENT 3 AT 05287000 


05245000 05246000 05248000 


SAVECODF == ROOLEAN © VALUE PARAMETER == DECLARED IN SEGMENT 3 AT 13632000 


13651000 13651100 13663000 


SAVECODF == STREAM VARTABLF =" VALUE PARAMETER == DECLARED IN SEGMENT 95 aT 13633000 


13638000 


SAVEINFO ** .INTEGER =" DECLARED IN SEGMENT 94 AT 13378000 


*13394000% 13396000 *13397000%413401,000%«13405000"% 43408000 


SAVEINFO = REAL ©" DECLARED IN SEGMENT 103 AT 14269060 


*#14269260% 14269600 14269620 


SAVEINX "= INTEGER = PECLARED IN SEGMENT 20 AT 02324000 


SAVEIT 


SAVEL 


SAVELO 
SAVERR 


¥02331000%«02342000% 02352000 

w* LABEL "" NECLARED IN SEGMENT 103 aT 14269100 == OCCURS AT 14269890 
14269450 
em REAL ©" DECLARED IN SFGMENT 3 AT 01623000 

13606000 *13628000*% 14055000 «14609000 

== INTEGER =" DFCLARED IN SEGMENT 98 AT 14030000 
*14055000*% 14609000 

*= LABEL == pECLARED IN SEGMENT 98 AT 14013000 == OCCURS aT 144136000 
14018000 


SAVETIME == INTEGER #©* DECLARED IN SEGMENT 2 AT 00503000 
SAVET?MrS = PROCEDURE == DECLAREO IN SEGMENT 119 aT 17002015 


SAVEV 


17002525 17094480 4171417940 
== WEFINE =" NMECLARED IN SEGMENT 3 aT 01281000 
13726000 144292000 14298000 14299000 


SAVINFO == REAL ARRAY = DECLARED IN SEGMENT 81 AT 09392300 
SAVL 
SAVL 


SAVNDX 


#09395400% 09396000 09402100 #09444070%%09444740% 09448000 £09419000*% 09449100 09424000 
ew ReAL =" DECLARED IN SEGMFNT 109 aT 16031000 

#16032000% 16034000 
we Real == DECLARED IN SEGMENT 111 AT 46087000 

#16088000" 16096000 

ee INTEGER = DFCLARED IN SEGMENT 61 AT 09393000 

#09397000% 09402400 «09403000 09413000 409444420%%09420000% 09426000 09436000 


09433000 


SB "= REAL " OFCLARED IN SEGMENT 103 aT 14269060 
#142694464#14269520% 14269560 14269600 
Sart w= ROOLFAN |" VALUF PARAMFTFR == DeCLAREn IN SEGMENT 3 aT 07036000 
07035000 07046000 
SBITF © = WEFINEG =" HECLARED IN SFGMENT 3 aT 01154200 
05273300 052774100 06375300 06316300 44269446 44269600 
SBV ©" DEFINE © DECLARED IN SEGMENT 3 AT 04244000 
16197000 146415000 
SCAN = STREAM PROCEDURE == DECLARED IN SEGMENT 9 AT 02089500 
02127000 02128500 
SCAN =» STREAM PROCENURE == DECLARED IN SEGMENT 86 AT 10257100 
10264800 . 
SCANAGAIN © LABEL = NMECLARED IN SEGMENT 24 AT 02639000 = OCCURS AT 02646000 
02650000 02686500 02696000 027728000 02737000 02890000 
SCANNER = PROCEDURE *= DFCLARFD IN SEGMENT 3 AT 02066000 
02137000 02327000 02371000 02499000 02590000 027647000 02663000 02666000 02684000 07694000 
02744000 02747000 02749000 02751000 02752000 02754000 02788000 02793000 02806000 02809000 
02816000 02820000 02889000 02890000 02958500 
SCATTFRFLBAT ==" PROCEMURF =" DFCLARED IN SEGMENT 3 AT 13197000 == FORWARD AT 03035000 
07395000 43208000 13327000 13767000 14206000 44305000 
Scr °° ODFFINE == DECLARED IN SEGMENT 3 aT 01677050 
SCLASS °" REAL =" DFCLARED IN SEGMENT 57 aT 07038000 
#07044000%407046000*% 07048000 07056000 07060000 *#07079000*% 07088000 
SCOUNT ©" INTEGER == NFCLARFD tN SEGMENT 19 AT 02365100 
. *02366200*" 02602700 
SCRAM e=  NTEGFR ©" DECLARED IN SEGMENT 3 AT 01301000 
*028650004#09385000* 09386000 12110000 *12122000* 13308000 13361000 13362000 13755000 
S¢S = DEFINE == DECLARED IN SEGMENT 3 AT 03677150 
SCV =* DEFINE == DECLARED IN SEGMENT 3 AT 04246000 
—- $6206000 16337000 
SEARCH == ALPHA PROCEDURE ==" DECLARED IN SEGMENT 3 AT 04231000 
*08243000% 04244000 04280000 04280500 04283500 04284000 
SEC e* DEFINE "= DECLARED IN SEGMENT 108 aT 16022000 
. 16342000 
SECOND ©" INTEGER *= NAME PARAMETER =" NECLARED IN SEGMENT 3 AT 05271000 
05270000 €05273400%#052742004805281000% 05282000 
SECOND ©" INTEGER ** DECLARED IN SEGMENT 54 AT 06314000 
*06315400%*06316400%%063204008*06325000% 06378000 06332000 
SECON =" INTeGeR == prcbaRep 1N SEGMENT 55 aT 06339000 
06341000 06344000 
SECRET =" DEFINE = DFCLARED IN SEGMENT 3 AT 01628000 
13331000 44333000 14345000 
SED == DEFINE #= DECLARED IN SEGMENT 106 aT 144;9000 
SED == DFFINE == DECLARED IN SEGMENT 108 aT 16017000 
SEG iL VARTABLF = VALUE PARAMETER ©" )pECLARED IN SEGMENT 124 aT 17047200 
17047400 
SEGMENT = PROCEDURE == DECLARED IN SEGMENT 3 AT 13657000 == FORWARD AT 03042000 
07676500 13681000 14461200 144602000 
SEGMENTSTART "= PROCENURE =" DECLARED IN SEGMENT 3 AT 13632000 =" FORWARD AT 03041000 
07661500 43655000 44298000 414387000 
SEGNOF ©" DEFINE =" DFCLARED IN SEGMENT 3 AT 01007405 
13310450 47094800. 
SeEGSBrT *= DEFINE == DECLARED tN SEGMENT 3 AT 04004100 
02470000 43652000 13674000 
SEGSIZEMAX = INTEGER = DECLARED IN SEGMENT 3 AT 01687000 
*13678000* 
SEGSTOG == DEFINE == DECLARED IN SEGMENT 3 aT 014004390 


02698000 
02812000 


13652000 13674000 
SEMICOLON =" EFINE ©" DECLARED IN SEGMENT 3 AT 03230000 
05409000 07012000 07032000 07646490 07646535 10264410 43766000 44062000 44063000 
14325000 14338000 14357000 14519000 16131000 
SEQ ** STREAM VARTABLF = NAME PARAMETFR “= DFCLARED IN SEGMENT 3 AT 01756000 
SEQ ©" STREAM VARTABLF ©" VALUF PARAMETFR =" YFCLARED IN SEGMENT 3 AT 04130000 
04432000 
SEQ es STREAM VARTABLF «== NAME PARAMETER == OFCLARED IN SEGMENT 57 AT 07038100 
07038300 07038600 
SEQ ee STREAM VARIABLE == NAME PARAMETER = OFCLARED IN SEGMENT 80 AT 09378000 
09382000 
SEQBIT 7" DEFINE ** DECLARED IN SEGMENT 3 AT 01001110 
02197500 02234800 02393000 
SEQCOMPARE == PROCEDURE =" DECLARED IN SEGMENT 12 AT 02202500 
02209750 02224500 
SEQ@ERRB1T =" OEFINE ©" DECLARED IN SEGMENT 3 AT 014004120 
02520000 
SEQERRTOG |= DEFINE e= DECLARED IN SEGMENT 3 AT 07002420 
SEQNO w= REAL = VA|UE PARAMETER =© DECLARED IN SEGMENT 3 AT 02001650 
02001640 02001645 02001695 
SEQNO =" STREAM VARIABLE == VALUE PARAMETER = DECLARED IN SEGMENT 124 AT 17087200 
17947400 17050400 
SEQNO =" STREAM VARIABLE “" VALUE PARAMETFR *= DECLARED IN SEGMENT 124 AT 17051400 
17051500 17052400 
SEQNOF "=" DEFINE °" OFCLARFED IN SEGMENT 3 AT 01007430 
—  $7092600 47093400 17094800 17095750 17095900 47117702 174117708 
SFOTOG °°" DEFINE '* DECLARED IN SEGMENT 3 aT 01001400 
02191500 02234800 
SEQUENCFERROR ** STREAM PROCEDURE == DECLARED JN SEGMENT 3 AT 01742100 
04742110 02226750 
SEQXEQTOG =" BOOLFAN © DECLARED IN SEGMENT 3 AT 01001560 
#02525000« 
SES = DEFINE = DECLARED IN SEGMENT 106 aT 14419000 
SET = STREAM PROCEDURE ©" PECLARED IN SEGMENT 89 AT 12403000 
12117000 
SETTING "=" BOOLEAN ** NECLARED IN SEGMENT 3 AT 01000802 
#02327000% 023386000 02352000 02356000 024927000 
SETUPHEADING e= STREAM PROCENURE == DECLARED IN SEGMENT 124 aT 17047200 
17951200 17094700 
SGAVL == INTEGER == DECLARED IN SEGMENT 3 AT 014369000 
SGNO == INTEGER =" pECLARED IN SEGMENT 3 aT 01370000 
13310450 14054000 
SGNOO == «INTEGER == DECLARED IN SEGMENT 98 AT 14030000 
*14054000" 
SIGNA =" OWN BOOLEAN == DECLARED IN SEGMENT 69 AT 08012000 
*08056000« 08065000 08098000 08108000 08130000 08179000 08181000 08189000 08242000 
SIGNB ** OWN BOOLFAN "= DECLARFD IN SEGMENT 69 aT 08012000 
08050000 08112000 «08121000% 08126000 08183000 08196000 #08203000«% 08214000 
StqNc #* OWN ROOLFAN =" DFCLAREH IN SEGMENT 69 aT 08012000 
08044000 #08112000~ 08185000 08197000 «08202000% 08249000 *08220000% 
SIMPARTTH =" PROCEDURF == DFCLARED IN SEGMENT 3 AT 06032000 == FORWARD AT 03003000 
06006000 07085000 45097000 15186400 15303500 
SIMPGO = BOOLEAN PROCEDURE = DECLARED IN SEGMENT 3 AT 07548000 «m= FORWARD AT 03026000 
*07555000« 07557000 07564000 075870000 07581000 07646520 
SIMPT ©" ROOLEAN PROCEDURE *= DECLARED IN SFGMENT 69 AT 08052000 
*908061000% 08176000 08211000 082248000 
SIMPLe =" BOOLEAN PROcENURE ©" nECLARED IN SEGMENT 69 AT 08027000 
*08033000%%08038000" 08039000 08112000 08181000 08183000 08485000 


14165000 44269840 


08217000 «08227000« 


SIMPLFB o&* ODFFINE “= DECLARED IN SEGMENT 69 AT 98014000 
08944000 08112000 08220000 
SIMPLEV == OFFINE © NFCLARFD ¥N SEGMENT 69 AT 08015000 
08074000 08099000 08231000 08224000 08297000 
SINGLBIT © DEFINE = DECLARED IN SEGMENT 3 AT 01001130 
02195000 02195750 02196590 02214200 02228750 07421000 02522000 04150000 04278500 05039600 
05097500 05099000 05325490 06123000 07025020 07086500 09384500 09387000 09389500 13653500 
17094250 17094500 
SINGLTORG =" DEFINE “= MECLARED IN SEGMENT 3 AT 01001430 
02195000 02195750 02196590 02214200 02228750 02421000 04150000 04278500 05039600 05046000 
05099000 05325490 06123000 07025020 07086500 09384500 09387000 09389500 13653500 13676000 
17094500 
Stv oe" OFFINE © DECLARED IN SFGMENT 3 AT 01236000 
16349000 46320000 146328000 16334000 
SIZE = INTEGER #2 VALUE PARAMETER == DFCLAREN IN SEGMENT 3 AT 03042000 
S1Z— == «INTEGER == VALUE PARAMETER |= OeC,ARED IN SEGMENT 3 AT 05247000 
05245000 05246000 052948500 05249000 05250000 05252000 05254000 
SIZE "= INTEGER 7" VALUE PARAMETER *°* DECLARED IN SEGMENT 3 AT 07647000 
076630900 07675500 07676500 07677000 
S'ZE = INTEGER =" VALUE PARAMFTFR ™" DECLARED IN SEGMENT 3 AT 13657000 
13675000 13677400 13678000 
SIZE "= STREAM VARIABLE "" VALUE PARAMETER °7 DECLARED IN SEGMENT 96 aT 13661000 
13670000 
SKAN = AWEFINE ** OFCLARED IN SEGMENT 3 AT 02277000 
02327000 02371000 02499000 02590000 02958500 
SKANAGAIN =" LABEL “= NECLARED IN SEGMENT 19 AT 02360000 = OCCURS AT 02370000 
02378000 02383000 02385000 02389000 02465000 07468000 02478000 029503000 02527000 02577250 
02595000 02599000 
SKBIT ne stg VARIARLF °= VALUE PARAMETFR "= DECLARED IN SEGMENT 67 AT 07653500 
07655000 
SKIP *= LABEL ** DECLARED IN SEGMENT 129 aT 17091100 *= OCCURS AT 17096850 
17094150 
SKTPCOUNT =" INTEGER == OFCLARFD IN SEGMENT 87 aT 10241000 
*10297000*" 10253000 10254000 10256000 
SKIPIT ™" DEFINE '" DECLARED IN SEGMENT 27 aT 02974000 
02974500 02978500 — 
SKIPS ©" PROCENURE == PECLARED 1N SEGMENT 108 AT 16403000 
16419000 16492000 
SKTPV «© WEFINE ©" pECLARFD IN SEGMENT 3 aT 01241000 
SKP ew STREAM VARIABLE = VALUE PARAMETER »* DECLARED IN SEGMENT 3 AT 02001838 


02001842 

SKP e# STREAM VARIABLE © VALUE PARAMETER em DECLARED IN SEGMENT 3 AT 02007858 
02001890 

SKP e* STREAM VARTABLE = VALUE PARAMETER =" )pECLARED IN SEGMENT 3 AT 02041000 
02043000 


SKSC we LABEL *= DECLARED IN SEGMENT 86 AT 10259000 = OCCURS AT 10263500 
10283000 «13755500 13767000 13768000 «13769000 
SND #* DFFINE "= DECLARED IN SEGMENT 3 aT 01671000 
15099800 15186900 45276110 153040400 
SOP ©" BOOLEAN == VaLUF PARAMETER ©" NDECLARED IN SEGMFNT 3 aT 14003000 
14001000 144002000 144036000 14506000 44600000 
SORCE * .STREAM VARYARBLF 2 NAME PARAMETER ** DECLARED IN SEGMENT 3 AT 02045000 
02048000 
SORTNEST *= PROCEDURE == DECLARED IN SEGMENT 3 aT 05412000 
14601000 
SORTPRT = REAL ARRAY = DECLARED IN SEGMFNT 3 aT 01725000 
*#05425100% 05425400 05447000 05448000 «05452000*«05455000%*05459000* 


05046000 
13676000 


05097500 
17094250 


02544000 


SPACETTNOWN © DEFINE == DFCLAREM IN SFGMFNT 98 AT 14023100 
14461500 44493500 
SPcLMON ©* BOOLEAN == NECLARED IN SEGMENT 107 AY 15076300 
#15305000* 45305700 15306100 15306600 
SPECIAL = REAL ARRAY == DECLARED IN SEGMENT 3 aT 01003000 
02655000 02666000 02785000 02961500 02963000 07031000 *09;98000% 
SPFCIALCHAR == LABEL == DECLARED IN SEGMENT 24 aT 02637000 == OCCURS AT 072651000 
02643000 
SPECIALSWITCH = SWITCH LABEL == DECLARED IN SEGMENT 24 AT 02681000 
02659000 
SPECTOG *= BOOLFAN = MWECLARED IN SEGMENT 3 AT 01593000 
*05034000% 13305400 13310300 13310500 13328000 13341200 43385000 143601000 13621000 413719000 44070000 
#14422000% 14142000 14149000 14160000 14161070 14187000 14205000 44975000 14287000 #143640004414368000% 
14377000 14507000 
SPRT © ROOLEAN ARRAY =" DFCLARED IN SEGMENT 3 aT 01698000 
SRESULT © INTEGER s# DECLARED IN SEGMENT 19 AT 02365100 
*02366200*% 02602700 
SSKIP ==" STREAM VARTARLE == VALUE PaRaMeTrR *= DECLARED IN SEGMENT 3 AT 02045000 
02046000 02049000 
SSP ee" DEFINE "= DECLARED IN SFGMENT 3 AT 01672000 
05226000 
SSS #* REAL ** DECLARED IN SEGMENT 49 aT 06063500 
*#06068500" 06125000 
STACKCT © REAL =" NECLARED IN SEGMENT 3 aT 01566010 
04527000 £06054 150406158000 4806172000 4406174500406 179500 4406296500 #06 299500 4406 305000 «406339500 m%07041 200" 
#07 100500 «0772699044 141255004 15089000 «% 15096400 me 15097800e4 151861008415 187000%4 1523450088 152761 15a 15278000" 
*#1530450044%15306900«" 


STacKeT 
STackeT 


STACKHE 


R w= Rrab 


RQ = RF 


AL 


DECLARED IN SEGMENT 3 AT 01683000 
05370000 *05371000% 06068500 «06125000« 14056000 


AD =" RFAL ARRAY @* 


#02724000" 02865000 
#13308000% 13361000 


14610000 


pECLARED IN SEGMENT 3 AT 01310000 


05090000 


05233000 £05234000*% 09134100 #09434200%«09405500* 09447030 
%#13362000% 13768000 #13769000«14448000«% 16443000 


14477000 «14478000% 14481200 14493000" 44506000 #14610000« 
F DECLARED tN SEGMENT 98 AT 14029000 
#14058000«814477000% 14493000 


09447040 «13286000 


STaRS ©" STREAM VARTARLFE =" VALUF PARAMFTPR 7 pnecbaRrp IN SEGMENT 124 aT 17051400 


17051500 147052000 170527400 
START #* REAL == VAlUf PARAMETER == DECLARED «N SEGMENT 70 AT 08084000 
08082000 08083000 08086000 
START == ABEL == DFCLARED IN SEGMENT 98 AT 14017000 = OCCURS AT 14063000 
141438000 144139000 14140000 14141000 14456000 44160000 14462000 44470000 44499000 44253000 44269000 
14269980 14379000 14804000 14521000 
START ©" LABEL |" DFCLARED IN SEGMENT 101 AT 14202000 
START ©" LABEL =" DECLARED IN SEGMENT 102 AT 14254050 == OCCURS AT 14269000 
14259090 
START ©" LABEL =" ODFCLARED IN SEGMENT 104 AT 14272000 = OCCURS AT 14373000 
START = °" LABEL ©" DFCLARED IN SEGMENT 105 AT 14384000 == OCCURS at 14503000 
START ©" LABEL =" DECLARED IN SEGMENT 108 at 16475000 == OCCURS AT 16477000 
16485000 
STARTINTRSC "=" DEFINE == DECLARED IN SEGMFNT 73 AT 09024000 
START? = LABEL =" MECLARED IN SEGMENT 104 AT 14272000 =» OCCURS AT 14375000 
143295000 144364000 


START? == LABEL 


17054500 


STP. ©* DEFINE ## 


08090000 


=e MECLARED IN SEGMENT 104 aT 14273000 "= OCCURS AT 14376000 
STATS w= SWITCH FORMAT 


17954800 
12038000 


om DECLARED IN SEGMENT 126 AT 17053500 


17055020 


DECLARED IN SEGMENT 3 AT 01673000 


13230000 15099400 15186800 15276110 15304400 


STFPT #*  NTEGFR PROCEDURE = pECLARED JN SEGMENT 3 AT 05003000 


05198000 05273400 05273900 05274300 05276000 05277000 05278000 05344500 05344520 05344610 05344670 
06069000 06071000 06085000 06094000 06106100 06199000 06316100 06316500 06318000 06319000 06320000 
| 06321000 06322000 06415000 06421000 07018000 07041000 07437000 07505000 07552000 07567000 07597500 
07600100 07600600 07604110 07604140 07645000 07646456 07646475 07646603 07662000 07664000 07666500 
07673000 07727070 07767000 07768100 07994000 08029000 08178000 092527000 12007000 12010000 412043000 
13351000 43392000 13395000 13402000 13404000 43753000 13754000 13756000 13766000 43773000 44126000 
14220000 14223000 14259110 14268000 14269320 14269480 14269500 14338000 144341000 44345000 44356000 
14393000 14396000 14467000 15085600 15183100 15253000 15260000 45276050 15276160 18300000 16125000 
16160000 16197000 16206000 16207000 16208000 16217000 16220000 16252000 16253000 16316000 16319000 
16324000 16326000 16340000 16367000 16368000 16372000 16384000 16406000 16434000 16435000 

STFPTyT °° PROcFOURE =" DECLAREN IN SEGMENT 3 AT 05002000 
05344690 06015000 06035000 06049000 06402000 06104700 06106200 06111000 061437000 06140000 06143000 
06147000 06166000 06168000 06172000 06174000 06177000 06181000 06201000 06208000 06303000 06331000 
06345000 06410000 06411000 06416000 06417000 06422000 06423000 07010000 07072000 07100000 07407000 
07485000 07487n00 07493000 07495000 07505000 07516500 07518000 07552000 07569000 07573000 07580000 
07584000 07604100 07646450 07727020 07727090 07996000 08031000 08039000 08120000 08131000 08135000 
08442000 08155000 06161000 08175000 08192000 08231000 12013000 12017000 12025000 42030000 42034000 
12036000 12039000 12045000 12054000 13327000 13406000 43409000 13753100 43757000 43758000 13761100 
13772000 14166000 14193000 14259000 14259070 146259140 18269220 142769380 14269640 14269705 44269640 
14314000 14359000 14403000 14472000 15088400 15092000 15096600 15183700 15185000 451386200 45274000 
15276070 15300400 15302200 15303300 15376800 16130000 16176000 16234000 16376000 146408000 46442000 
16494000 

STePV =" wEFING =" neeclLARFD IN SEGMENT 3. aT 01255000 
08403000 08382000 

STLAB1D © DEFINE = OEFCLARED 1N SEGMENT 3 AT 04178000 
14403000 14447000 16000300 146253000 16437000 146443000 46481000 

STMT = PROCEDURE == DECLARED IN SEGMENT 3 AT 07711000 == FORWARD AT 03027000 
05108000 07011000 07485000 07495000 07574000 07577000 07585100 07646530 07771000 08163000 08201000 
09275000 14167000 14488000 14515000 


STMTSTART =" OWN REAL "=" DECLARED IN SEGMENT 69 AT 08010000 
08157000 +*081690004%08191000% 086193000 408206000* 08221000 
LaAREL =" DECLARFD IN SFGMENT 105 aT 14384000 == OCCURS aT 14491000 
14484000 
STOPDFFINE "=" ROOLFAN == DFCLARED IN SEGMENT 3 aT 01597000 
02893000 £029110008%02926000%%07017000 6407646602 #«1026330044%10281000%4 12911 1000%4133270008814130000K814192000" 
*142580004414259060%%14259100%414259 1 30%414269200%4 1440200044 14403000" 
STOPENTRY =" BOOLFAN == DECLARFn IN SEGMENT 3 at 01594000 
13354000 #1418B000 414198000 em 1 4205000441425 1000 KH] 425500081 4269000 #41 426942041 4269900044 4348000441 4321000" 
*$4402000"814404000% 
STOPGSP © BOOLEAN =» fMECLARED IN SEGMENT 3 AT 01694000 
——- 13343000) §=13345000 #14164500441 4166000141 8800084141 9800084 14205000%H1425 1000441 425500081 426900081 4269120" 
©14969940e mK 14391850008 143195004 % 14402000 HH 1 4404000" 


STOP = 


@®eeeegeeee#eee?eee&e#eseeeeeeeees @ 


STOPPFR =" REAL =" VALUE PARAMETER ** DFCLAREN IN SEGMENT 3 aT 03068000 
STOPPFR = REAL ** VALUE PARAMFTER °" DFCLAREN IN SEGMENT 3 AT 13217000 
13215000 13216000 13223000 4132914000 

STOPPFR == REAL ©" VALUE PARAMFTER °* DrCLAREN IN SEGMENT 3 AT 13734000 
13731000 43732000 13745000 

STORE =" PROCFOURE = NMECLARED IN SEGMENT 69 AT 08063000 
08070000 08130000 08135000 08138000 08216000 

STORE e* REAL »= VALUF PARAMETER = DECLARED IN SEGMENT 70 AT 08084000 
08082000 08083000 08089000 

STOREFIX = INTEGER #= DECLARED IN SEGMENT 70 AT 08091000 


#06093000% 08157000 


08171000 


STREAMERR «= LABEL #8 DECLARED IN SEGMENT 98 AT 14017000 = OCCURS AT 14137000 
14021000 . 
STREAMSTMT =" PROCEDURE =" DECLARED IN SEGMENT 3 AT 16001000 FORWARD AT 03040000 


070419000 43771000 14415400 16130000 16229000 46235000 146495000 


STREAMTOG = BOOLFAN == DFCLARFOD IN SEGMENT 3 AT 01417000 


02692000 02692500 04279500 04284000 042983000 04284500 05344400 0704341000 *07661000«407676000u% 12 
4 


#12127100«% 1£3310580 13343000 #13774000%413773000« 14077000 14082000 «14280000« 14298000 
14361000 14377000 14385000 «14461000 
STREAMV ** DEFINE =" peclhaRep tN SEGMENT 3 aT 01297000 
07745000 07768;00 14278000 
STREAMWORDS "= PROCEDURE “= DECLARED IN SFGMENT 3 AT 05230000 
05236000 13771000 13773000 14324000 14460000 
STRMPROCSTMT "= PROCENURF =" DFCLARED IN SEGMENT 3 AT 07426000 *=* FORWARD AT 03030000 
06160000 07446000 07737000 
STRNGCON *" DEFINE ™= NWECLARED 1N SEGMENT 3 AT 01211000 
02705100 07075000 07604140 07665500 07668000 08032000 16210000 16384000 
STRNGXT == LABFL = preLAREn IN SEGMENT 24 AT 02638000 == OCCURS AT 02701000 
STRPROC1D #= OFFINE «= DECLARED IN SEGMENT 3 AT 01189000 
07431000 44284000 
STUFF #e FILE = DECLARED IN SEGMENT 3 AT 07561600 
05350300 09281000 13677500 
STUFF = STREAM PROCENURE ** DECLARED IN SEGMENT 11 AT 02196530 
02196580 
STUFFBIT == OEFINE == QECLARED IN SEGMENT 3 AT 01001140 
02516000 05350400 13677100 
STUFFF ©" PROCEDURE =" DECLARED IN SEGMENT 3 AT 05199000 
05203000 
STUFFTOR, "= DEFINE == MECLARED JN SEGMENT 3 AT 01001440 
05350100 13677,00 
ST1  ©= STREAM VARTABLF == VALUE PARAMETER == DECLARED IN SEGMENT 9 AT 02090000 
02090500 *02120000* 02174500 *02126000* 
ST9 «= STREAM VARIABLE == VALUE PARAMETER = DECLARED IN SEGMENT 9 AT 02090000 
02090500 #021210008 02121500 
SUB = DFFINE © DECLARED IN SEGMENT 3 AT 01674000 
06016000 08030000 08044000 08214000 12045000 16329000 
SUBC °* MEFINE ** DFCLARED IN SEGMENT 3 AT 13213000 
SUBDEc ©" LABEL ©" NnECLARED IN SEGMENT 98 AT 14014000 == OCCURS aT 14163000 
14019000 
SUBHAND ™* PROCENURE "= DFCLARFD IN SEGMENT 3 AT 06194000 == FORWARD AT 03011000 
06156000 06209000 07733000 
SUBID #™ NWEFINE =" pECLARED IN SEGMENT 3 aT 01185000 
06498000 441646000 
SUBLEVEL == INTEGER w= ODFCLARED IN SEGMENT 3 AT 01402000 
05117000 *14477000"#14492000% 
SUBOP = DEFINE =" DECLARED IN SEGMENT 3 aT 01556500 
05344570 05344710 
SUBV = DFFINE =" ODFCLARED IN SEGMENT 3 AT 01288000 
SUPERFRMTIN == DEFINE =" DECLARED IN SEGMFNT 3 aT 01183000 
05221000 05224000 . 
SVARMONFILE = DEFINE == DECLARED IN SEGMFNT 3 aT 01529000 
SW ee SWITCH LABEL == QHECLARED IN SEGMENT 10 AT 02191250 
02194500 
SW == SWITCH LABEL = MECLARED IN SEGMENT 20 AT 02326000 
029328000 
SWITCHDEC «= LABEL = DECLARED IN SEGMENT 98 AT 14015000 = OCCURS AT 14200000 
14020000 144252000 
SWITCHID © DEFINE ©= DECLARED IN SEGMENT 3 AT 01186000 
07507000 14207000 
SWITCHIT = PROCEDURE == DECLARED IN SEGMENT 19 AT 02323000 
02359000 02377000 02388000 02393000 02395000 02397000 02402000 092415000 024149100 
02495000 02435000 02470000 02472000 02474000 02480000 02490000 07496000 02506000 


119100 
143148500 144324000 
02419200 02421100 
02508000 02511000 


SWITCHV 


02516000 02520000 02522000 02531000 02567000 02600000 
"= DEFINE == MECLARFD IN SEGMENT 3 aT 01292000 


SWITMONE ILE 9°" DEFINE ©" DECLARED IN SEGMENT 3 aT 01539000 

SYLLARLE c= Real eo VALUE PARAMETER == DECLARED IN SEGMENT 3 AT 03019000 

SYLLABLF = REAL @* VALUE PARAMETER = NECLARED IN SEGMENT 3 AT 03028000 

SYLLABLF == STREAM VARTABLE == VALUE PARAMETER == DECLARED IN SEGMENT 3 AT 04770000 


SYMBOL 


T 


04271000 04274000 
we STREAM VARYTABLF =" VALUE PARAMETER "= DECLARED IN SEGMENT 3 AT 02183500 
02483750 024852950 
REAL ** DECLARED IN SEGMENT 3 AT 01564000 
#02655000% 02658000 *02666000%%#02692000% 02695000 «02701000%*02705100#%02721000% 02772000 *02724000% 02726000 
#02755000%*0279800044028 1 3000%%02823000% 02824000 *02826000* 02827000 02842000 £02848000##02850000"%028510008 
#92865000u 02875000 02876000 «02877000% 02877010 «02877020 4402878000440 2882000% 02882200 02886000 «02896000« 
02900000 02901000 02910000 02910200 02910400 05096000 #*05233000* 05234000 05236000 *08057000« 080586000 
08059000 08061000 «08069000* 08070000 «09282600%*«09388000*% 09389000 
REAL ©" VALUE PARAMETER == DECLAREnN IN SFGMENT 3 AT 01717900 
STREAM VARIABLE *=* PECLARFN YN SEGMENT 3 AT 02057000 
02058000 07059000 
REAL ®** DECLARFD IN SEGMENT 14 AT 029749000 
#02251000%*02257000%"02259000* 02260000 
ROOLFAN == DECLARED IN SEGMENT 20 aT 02323000 
STREAM VARIABLE *= VALUE PARAMETER == DECLARED IN SEGMENT 21 AT 02441000 
02443000 02444000 
STREAM VARYABLE == VALUE PARAMETER ==" DECLARED {"N SEGMENT 21 AT 02446000 
02448000 02449000 
INTEGER |=" DECLARFD IN SEGMENT 25 AT 09957500 
*#02960500¥#*099610008 02961500 *02964000*% 02966500 
BOOLEAN **" DECLARED IN SEGMENT 28 AT 02981500 
*02982500*% 02983000 02983500 02984000 02984500 
INTEGER ©" VALUE PARAMETER *= DECLARED IN SEGMENT 3 AT 03050000 
INTEGER ©" VALUE PARAMETER =" DECLARED IN SEGMENT 3 AT 04311000 
04341030 04312000 04318000 
STREAM VARIABLE "= DECLARED IN SEGMENT 38 aT 05068000 
*05074000% 05081000 *05086000% 
REAL *= DFCLAREH IN SEGMENT 45 AT 05404000 
#05402000% 05402700 05403000 05404000 05405000 05409000 *054093004405409400*% 05409500 
REAL @* DECLARED ¢N SEGMENT 46 AT 05414000 
*05495400*% 05426000 05478000 *05430500" 05431000 
STREAM VARIABLE == VALUE PARAMETER =" DECLARED IN SEGMENT 71 AT 08999075 
08999100 | 
STREAM VARIABLE == VALUE PARAMETER =" DECLARED IN SEGMENT 80 AT 09364000 
09369000 
REAL =" DECLARED tN SEGMENT 81 AT 09393020 
REAL =" DECLARED IN SEGMENT 88 AT 12004000 
*12040000% 12047000 
REAL °= VALUE PARAMFTER #* DFCLARED IN SEGMENT 3 AT 12101000 
12108000 424117000 
REAL = DECLARED YN SEGMENT 90 AT 131499000 
#13200000* 43201000 13202000 143203000 13204000 13205000 143206000 13707000 
REAL ** DECLARED !¥N SEGMENT 100 AT 14163500 
*14166500*% 14168000 
REAL =" DECLARED IN SEGMENT 110 AT 16067000 
*#16070000% 
INTEGER =" DECLARED IN SEGMENT 117 AT 16364000 
16393000 146394000 
== iNTEGER PROCFDURE ** NECLARED IN SEGMENT 3 AT 02635000 
*02920000%402924000% 029297000 050029000 05003000 05221000 05224000 07066000 07397210 074014000 07600950 


07604020 
14546000 
16482300 
TAKE Se 


07748000 
15091400 


ReAL PROCEDURE 


07751000 
15991600 


NFCLARED IN SEGMENT 3 AT 03053000 


07768430 
15097800 


19263400 
15184750 


10282000 
15184800 


12020000 
15184850 


FORWARD 


05131000 
07529000 
13279000 
14088000 
14415200 
16070000 


15086800 
15184400 
15276090 
15306200 


17002500 


12112000 
15276010 


AT 01717700 


05189000 
07539000 
13284000 
14118000 
14425000 
16089000 


15090600 
15185200 
15276210 
15306400 


"= DECLARED IN SEGMENT 3 AT 02188000 


OCCURS AT 02219250 


16341000 *16348000% 46349000 


TAKE *" REAL PROCEDURE DECLARED IN SEGMENT 3 AT 05005000 
02001810 02001820 02724000 02725000 «05006000 05124000 
07042000 07090000 07098000 07412000 07441000 07527000 
10263110 13226000 13289000 13249000 13255000 43257000 
13364000 143365000 13408000 13677200 13767000 44084000 
14340000 14320000 14333300 14352000 14388100 14411200 
14448000 146451200 144470000 44483200 14483400 45376300 
16166000 16172000 16254000 16260000 16449000 

TAKEFRST == Real PROCFNURE = MECLARED «N SEGMENT 3 AT 05188000 

#057890008 05222000 06197000 07435000 
TALL == REAL == DECLARED IN SEGMENT 107 AT 15072000 
*15077000e 145080000 *145083000*% 15085000 15085200 45086400 
15098000 15100N00 15100600 145104600 15103400 45128100 
15187300 15255000 15267000 15276020 15276060 15276080 
15301200 15301500 15304000 15304200 15305300 15305500 

TaALLYvy *" nEeFINE 7" peebARFn IN SEGMENT 3 aT 01239000 
163149000 16341000 

TAN: we DFRFINE "=" DECLARED IN SEGMENT 108 aT 16044000 
16213000 

TAPE = FILE =" DECLARED IN SEGMENT 3 AT 01561000 
01835800 02204750 02452000 02454000 02457000 09282000 

TAPE = STREAM VARIABLE = VALUE PARAMETER 
02188500 

TAPELAST = LABFL =" MECLARED {N SEGMENT 12 AT 02210000 e@ 
02210750 

TBUFF »* REAL ARRAY = PECLARED IN SEGMENT 3 AT 01561056 
02201750 02202000 02456000 027457000 07025030 

TB1 ** BOOLEAN *" OFCLARED IN SEGMENT 3 AT 01457000 

*07506000%*07507000% 07516200 07518000 *10243000%*%10260000" 10275000 

Tai #" BOOLEAN =" DFCLARFED IN SEGMENT 101 aT 14204000 

*14206000% 
TCLASS =" INTEGER |= DECLARED IN SEGMENT 116 AT 16314000 
*16375000% 46317000 46324000 146328000 146334000 

TCOUNT ** INTEGER =" NECLAREN IN SEGMENT 3 AT 01566000 
02251000 02252000 #02758000#*02790000" 02796000 02798000 

TENOC ©" STREAM VARTARLF =" NAMF PARAMETER =" 

13686000 13703000 13706000 
TeMPL =  WNTFGFR == DFCLARFD IN SEGMENT 34 aT 06166000 
*04172000*% 04175000 04184500 04186000 

TEMP1 = STREAM VARTARLF ©" DECLARED IN SEGMENT 3 AT 02001860 
02001866 02904868 02001890 

TEMP2 © STREAM VARTARLE == DECLARED IN SFGMENT 3 AT 020013860 

TEN ee REAL ARRAY =" DECLARED 1N SEGMENT 3 AT 01340000 


02796000 02799000 097803000 02826000 02833000 02835000 
TEST = PROCEDURE == DECLARED 1N SEGMENT 69 AT 08041000 
08051000 08431000 08790000 
TESTCODF == DEFINE == DECLARED IN SEGMENT 144 AT 16192000 
16211000 16212500 
TESTLEV = DEFINE == NECLARED IN SEGMENT 105 AT 14384100 
14387000 14389000 14411300 14415300 14451000 44463100 
TESTVOIN == LABEL "=" DFCLAREND IN SEGMENT 12 AT 02210500 oe 
. 02232500 


THENBRANCH = 


"06297000*% 06301000 


INTEGER == DECLARFD IN SEGMENT 53 AT 06295000 


02838000 


OCCURS AT 02234000 


13753190 
153014900 


06082000 
07601000 
13286000 
14168000 
14430000 
16138000 


15092200 
15165300 
15290000 
15376300 


16350000 


02803000 *02810000"#02847000* 
DECLARED IN SEGMENT 3 AT 13683000 


02840000 *09041000* 


13761100 
15302000 


06104300 
09133900 
13348000 
14259450 
14438000 
16139000 


15092600 
15185500 
15295100 


16352000 


14063000 
15302400 


06191000 
09134100 
13362000 
14269600 
14446000 
16163000 


15095600 
15186800 
15301000 


THENV == DEFINE =" nECLARED IN SEGMENT 3 aT 01256000 
06411000 16217000 
THERE = STREAM VARIARLE =" NAME PARAMETER ©" DECLARED IN SEGMENT 3 AT 04737350 
01737450 
THI ©" REAL == DECLARFD IN SEGMENT 3 AT 07689000 
#02250000% 02255000 02256000 02257000 02785000 02797000 02799000 07800000 
THIRD *"  NTEGFR @" DECLARED IN SEGMENT 54 AT 06314000 
*063154004%063164004*06320200% 06320400 «06326000% 06327000 06328000 06337000 
TIMEL *" REAL "= pEeLARED IN SFGMENT 3 AT 01300000 
01828000 09385000 *16495200%«17091165" 
TIMINGS se REAL ARRAY © DECLARED IN SEGMENT 119 aT 17002012 
*17002040%%77002075H817022300% 17054800 47055040 *170801008*17091520%%17094440%« 170955108" 47096350" 
TL se INTEGER == DECLARED IN SEGMENT 30 AT 04118000 
*#04419000*% 04124000 
Th w= INTRGER ©" DECLARED IN SEGMENT 60 AT 07483000 
#074850008 07487000 
Th ** REAL *=" DECLARED IN SEGMENT 91 AT 13221000 
#13258000% 413277000 
TLCR "= INTEGER =" NECLARED IN SEGMENT 3 aT 01330000 
*02202050% 02202060 02202070 02224500 «02456000 
TLeR ° Real =" NAMe PARAMETER "" DECLAREN IN SEGMENT 12 AT 02202750 
02202500 02203500 02204000 
TLO = Real == OFCLARFD IN SEGMENT 3 AT 01689000 
*02250000« 02255000 02256000 02785000 02796000 09797000 02799000 02800000 
TOGGLFV =" DEFINE °= DECLARED IN SEGMENT 3 aT 04245000 
TOLOC =" STREAM VARIARLF <= NAME PARAMETER == DECLARED IN SEGMENT 73 AT 09005000 
09006000 
TOP e= LABEL. ©* DECLARED IN SEGMENT 47 AT 05439000 ==" OCCURS AT 05452000 
05445000 
TOTALNO == INTEGER == NECLARED IN SEGMENT 3 AT 01000660 
02492000 #02192500%%02193000* 02234800 «02582000%%17004500« 17045000 
TOV #" DEFINE "= DECLARED IN SEGMENT 3 AT 01257000 
07505000 07552000 16252000 16437000 
TOWARNS == INTEGER *= VALUE PARAMETER ©= pECLARED IN SEGMENT 3 AT 03037000 
03036000 
TOWARDS = {INTEGER ea VALUE PARAMETER = DECLARED IN SEGMENT 3 AT 04446000 
04444000 04115000 04119500 04120100 04470200 064120500 
TRB == DEFINE © DECLARED tN SEGMENT 3 AT 04682000 


04318000 

TRNSFFR == DEFINE = DECLARED IN SEGMENT 3 aT 01251000 
16379000 

TRP #* DEFINE "=" DECLARED IN SEGMENT 108 AT 16019000 
16383000 


TRUTHVY ©" DEFINE &=" DECLARED IN SEGMENT 3 AT 01208000 
TRW e* DEFINE =" DECLARED IN SEGMENT 106 aT 14439000 
TSSINTYPE ©" DEFINE = DECLARED IN SEGMENT 3 AT 01561430 
09430060 
TSSTOG == BOOLEAN == DECLARED IN SEGMENT 81 AT 09393020 
*09444026% 09430050 
TSUBLEVEFL |=" REAL == DECLARED IN SEGMENT 98 AT 14029000 
*14477000*% 14492000 
TURNONSTOPLIGHT == STREAM PROCEDURE =" DECLARED IN SEGMENT 3 AT 02011000 
02202070 02214500 02218250 02235750 02369000 02747000 02905000 
TWXA = REAL ARRAY == MECLARED IN SEGMENT 3 AT 01561700 
05350180 05350300 13677400 13677500 
TYPE we RFAL =" VALUE PARAMETER =" DFCLARFD IN SEGMENT 3 AT 03055000 


TYPe = INTEGER =" VALUE PARAMETER @" OFCLARED IN SEGMENT 3 AT 05247000 


TYPE 


TYPE. 


TYPE 
TYPE 


TYPE 


05245000 05246000 052748000 05249000 05750000 052953000 
"= INTEGER © WFCLARED IN SEGMENT 53 AT 06295000 
*06299000* 
ee REAL ewe VALUE PARAMETER == DECLARED IN SEGMENT 3 AT 13316000 
13314000 13315000 13333500 43338000 13342000 
"= ReaL *" VALUE PARAMETER °@" DecbhaRED IN SEGMENT 3 AT 13716000 
13744000 13715000 13729000 
er SWITCH LABEL == DECLARED IN SEGMENT 108 AT 16476000 
16477000 
badd se aene VARTABLF = NAMF PARAMETER ew pECLARED IN SEGMENT 124 AT 17047300 
17049300 


TYPEREF = DEFINE *= DFCLARED +N SEGMENT 3 AT 01007420 


TYPE 


TYPE 
TYPE 
T1 
T1 
T4 
T1 
T1 
T1 


T!1 
T4 
TI 
T1 
Ti 
T1 
v4 


T2 
T2 


T2 
2 


V 


Vv 
V 


02001695 07598;00 07660600 081786100 13340525 44312100 15091200 145184700 16159100 146318500 147092000 
17092300 47092900 
°" REAL °©= DECLARED IN SEGMENT 3 AT 01611000 
#133B0000e413389000e 13390000 €14094000%414161010Ke14161420% 14162000 #1428100044142B4000% 144285000 14292000" 
142940008 14319000 
e" REAL "= VALUE PARAMETER = PECLARED IN SEGMENT 3 AT 03071000 
03069000 03070000 
*" REAL  ™" DECLARED IN SEGMENT 100 aT 14163500 
#14164000% 14165000 14167000 
REAL "*" DECLARED IN SEGMENT 3 AT 01693000 
*13381000% 43383000 13389000 *14161000%"14161020% 14164040 14161120 
STREAM VARTABLE "= DECLARED IN SEGMENT 3 aT 02001860 
#02003874« 02001876 
REAL == DECLAREN IN SEGMENT 34 AT 04278000 
*04280500% 04281000 04281500 *04284000* 04284500 04285000 
INTEGER = DECLARED IN SEGMENT 36 AT 045092000 
#04550000% 04551000 
REAL °° DECLARED IN SEGMENT 38 AT 05049000 
#050880004«05091000% 05096000 #05097000%«05099000% 
REAL @* OFCLARED IN SFGMFNT 49 at 06062000 
*06072000«% 06077000 *06079000% 06080000 +06081000* 06082000 06087000 06089000 *06304200* 06104600 *06107200« 
#06108000*% 06110000 06110100 
REAL *"= DECLARED IN SEGMENT 51 AT 06184000 
*06485000% 06187000 #06189000" 06194000 
REAL = DECLARED IN SEGMENT 52 AT 06196000 
#06197000% 06206000 06207000 
Real  c* peclLaRen IN SEGMENT 59 aT 07427000 
*07435000% 07436000 «07440000" 07442000 07443000 
REAL 7" DECLARED IN SEGMENT 64 aT 07562000 
#07566000% 07572000 07573000 07575000 «07577000* 07579000 07583000 07585,100 
REAL "=" MFCLARED tN SEGMENT 69 AT 08173000 
#08179000%«08193000% 08202000 08203000 08204000 08205000 08206000 082707000 08225000 
STREAM VARIABLE = DECLARED IN SeaMeNT 3 aT 13684000 
#13685000% 13707000. 343741000 
REAL == DECLARED IN SEGMENT 107 AT 45073000 
15087800 45089200 45092800 45095400 45095700 145096000 45096400 145097600 15103400 45183400 45484000 
15185100 145185600 35185900 15186100 15186700 15187300 45276060 45276070 145276150 145276210 45300400 
ey 15302300 15302800 15303100 15303800 145305000 15307000 145307900 «15376300%415376500«%15376600% 
76700 
ReaL "" NFCLARFD IN SEGMENT 3 AT 01693000 
STReaM VaRrapbe © prcbaRrp IN SeoMeNtT 3 aT 02001860 
#02001874% 02001876 
INTFGER ©= DECLARED IN SFAMENT 36 AT 04502000 
#04550000% 
REAL == DECLARED IN SEGMENT 38 AT 05049000 


#05092000m 05093000 05095000 05098000 
T2 wm REAL © ODFCLARED IN SEGMENT 49 AT 06062000 


#06072000% 06074000 06075000 06079000 «06080000 06081000 #06084000* 06087000 06089000 *N6090000% 06092000 


#06093000% 06099400 06099200 «06104300% 06104400 £06106000%*06106200*% 06110200 
T2 ° REAL *" OFCLARED UN SEGMENT 51 at 06184000 
#06185000*% 06189000 #06190000%#06191000*% 
T2 '= REAL @" NFCLARFD IN SFGMFNT 64 AT 07562000 
*07583000«%407585000«% 07586000 
T2 em REAL "= DECLARED JN SEGMENT 67 AT 07657500 
#07663000% 07668500 07669000 07674500 
T2 *= REAL ** DECLARED IN SEGMENT 69 AT 081793000 
*08198000*% 08208000 
T2 se STREAM VARIABLE «= DECLARED IN SEGMFNT 3 AT 13684000 
*13686000" 13694000 13698000 
T2 =e REAL = DECLARED IN SEGMENT 107 AT 15074000 
150876800 15096000 15097600 15103400 15183400 15188900 154386700 454187300 15276070 
15300100 15303400 15303800 15307200 «15376300 15376400 


T3 "e REAL *" DECLARED IN SEGMENT 38 AT 05049000 


*05091000«% 05092000 «05093000«% 05094000 05096000 «05098000« 
T3 *e REAL 7" pFCLARFN IN SFGMFNT 69 at 08173000 
*08199000% 08209000 
T3 we STREAM VARIABLE °°" DECLARED IN SEGMENT 3 aT 13684000 
13689000 143697000 13700000 13710000 
T4 ee REAL == NECLARED IN SEGMENT 38 AT 05049000: 
¥05095000% 05096000 
T4 wm REAL =" DECLARED IN SEGMENT 69 AT 08173000 
#08200000# 08210000 
UV = REAL © VALUE PARAMETER = DECLARED IN SEGMENT 3 AT 05411100 
U = REAL == VALUE PARAMETER == DECLARED IN SEGMENT 3 AT 05437000 
05440000 05441000 05443000 05446000 05454000 05457000 05458000 
UNHOOK = PROCEDURE == DECLARED IN SEGMENT 3 AT 13353000 == FORWARD AT 01626000 
13305300 
UNKNOWN?D ** DFFINEF ©" DECLARED IN SEGMENT 3 AT 01177000 
06151000 
UNTTLV *= DEFINE = DECLARED IN SEGMENT 3 AT 04226000 
070;8000 07485000 07696603 08113000 08328000 06184000 
UPDATETIMES ** PROCEDURE = DECLARED IN SFGMENT 119 AT 17002050 
17022200 47091175 17119100 
UPPER »* REAL = VALUF PARAMETER = DECLARED IN SEGMENT 3 AT 05299000 
05297000 05298000 05304000 
USEROPINX ©* DEFINE © DECLARED IN SEGMENT 3 AT 01001172 
02335000 02339000 02353000 02357000 02600000 09414022 
USESWITCH ©" SWITCH LaBEL °°" DECLARED IN SEGMENT 12 AT 02210750 
02212000 . 
USFTHFSWITCH == LABEL = DECLARED IN SEGMFNT 12 AT 02210250 == OCCURS AT 02211750 
022298100 022284350 02229500 02231500 02232250 079234000 02734600 02235950 
Voo#" OWN REAL @" DECLARED IN SEGMENT 69 AT 08010000 
08078000 08099000 08181000 08188000 «08295000%808227000« 
VAL * STREAM VARTABLF == NAME PARAMETER = DFCLARED IN SEGMENT 3 AT 017441200 
01741300 
VALTOG = STREAM VARIABLF =" VALUE PARAMETER == DECLARED IN SEGMENT 124 AT 17047350 
_ .£70407450 47049430 7 
VALUEV ** DEFINE = DFCLARED IN SEGMENT 3 AT 01258000 
14341000 . 
VARTABLe == PROCFOURE == DECLARED IN SEGMFNT 3 aT 15070000 == FORWARD. AT 03038000 
06440000 06364000 07080000 07058000 07073000 07083000 07402000 07739000 08298000 
15304700 15377000 


15276150 


12037000 


15276210 


15187600 


VB1T = ROOLEAN =" PMECLAREN IN SEGMENT 57 AT 07039000 
*07043000% 07045000 
VO = DEFINE ©** DECLARED IN SEGMENT 3 AT 01150000 
07043000 43203000 
VOIDB1T @* DEFINE =" MECLARFD IN SEGMENT 3 aT 01001150 
02231500 02415000 
VOIDCR *" REAL =" DFCLARED IN SEGMENT 3 AT 01785000 
02231750 *02232000%#02440500% 02414000 
VOIDING "=" DEFINE @= DFCLAREO IN SEGMENT 3 AT 01001450 
02231500 
VOTDPLACE == REAL == DFCLARED IN SEGMENT 3 aT 01785000 
| #02232000% 02410500 02442000 
VOTDRANGE = ALPHA = PECLARED IN SEGMENT 19 AT 02365200 
02410000 02411000 02412000 02485000 02486000 027487000 
VOIOTAPE = DEFINE == PECLARED IN SEGMENT 3 AT 01001460 
02228100 02232500 
VOTOTBIT "= DEFINE "= PECLARED IN SEGMENT 3 AT 01001160 
022786100 02232500 02490000 
vOroTCR =" REAL =" NECLARED IN SEGMENT 3 aT 01785000 
02298125 02228450 02233000 *02233500%%02485500" 07486000 
VOTDTPLACE =" REAL *= NWECLARED IN SEGMENT 3 AT 01785000 
*#02233500% 02485500 02487000 
VONE == ROOLFAN =" NECLARED IN SEGMENT 3 aT 01590000 
*#132030004*13341000e 13373000 «160004008 
VP =e STREAM VARIABLE == NAME PARAMETER = DECLARED IN SEGMENT 3 AT 01756000 
01761000 01780000 
VRET == OWN REAL @" DECLARED IN SEGMENT 69 aT 08010000 
#08054000% 08077000 *08176000* 08198000 «08208000% 08211000 08224000 #08228000« 
Woe" oFNTeaeR =" Value PARAMETER ** DecbaRrp IN SEGMENT 3 AT 01717700 | 
Woe STREAM VARIABLE == VALUF PARAMETER == DECLARED IN SEGMENT 3 AT 02054000 


02055000 

W ee STREAM VARTABLE #2 NAME PARAMETER *e DECLARED IN SEGMENT 42 AT 05309000 
05371000 

W = STREAM VARIABLE == VALUE PARAMETER «= DECLARED IN SEGMENT 96 AT 43673100 
13673250 


WAITINGFORFWOREF == OWN ROOLEAN == DECLARED IN SEGMENT 429 AT 17091110 
*#170924008 17093000 *17093200* 
WO = STREAM VARIABLE = VALUE PARAMETER "= DECLARED IN SEGMENT 73 AT 09005000 
09006000 
WHAT == REAL =" DECLARED IN SEGMENT 82 AT 09393080 
#09393170% 09393480 09393190 
WHATISIT == LABEL =" DECLARED IN SEGMENT 19 AT 02362000 == OCCURS AT 02578000 
02364000 02365000 02379000 02398000 02475000 02537000 02568000 
WHILESTMT == PROCEDURE == NFCLARED IN SEGMENT 3 AT 97490000 
07496000 07757000 
WHTLEV "=" DEFINE ©" DECLARED IN SEGMENT 3 AT 01220000 
08113000 08133000 08139000 
WHO e* REAL == DECLARED IN SEGMENT 82 AT 09393080 
#09393110e 09393730 09393170 #09393190% 09393200 
WHOLE "= REAL "= DECLARED IN SEGMENT 59 AT 07427000 
#07430000% 07432000 078638000 07439000 #07441000* 07442000 07444000 
WITHV ©" NMEFINE "=" PECLARED IN SEGMENT 3 aT 01289000 
WOP © Real ARRAY "= OFCLARED IN SEGMENT 3 aT 01371000 
02534000 *02536000*% 04280500 04281000 04281500 04284000 04284500 04285000 
WORD .°*. Real .©* Value PARAMFTER °" DeclLaRED IN SEGMENT 3 AT 04142000 
04147000 04149000 
WORD =» STREAM VARTABLE "=" NAMp PARAMETER == necLARep IN SEGMENT 3 aT 04270000 


04273000 
WORD ©» REAL »#= VALUE PARAMETER == DECLARED IN SEGMENT 3 AT 05008000 
05009000 
WORDCOUNT = REAL == OFCLARED IN SEGMENT 92 AT 43301000 
*13302000* 13307000 13310000 13312000 
WRITEAX s= STREAM PROCEDURE == DECLARED IN SEGMENT 57 AT 07038100 
07086300 
WRITELINE © OFFINE =" OFCLARED IN SEGMENT 3 AT 02181000 
02195000 02195750 02196590 02214200 02228750 027421000 047450000 05039600 05046000 05097500 
05325490 06123000 07025020 07086500 09384500 09387000 09389500 43653500 13676000 
WRITEOUT = STREAM PROCFNURE == DECLARED «tN SEGMENT 49 AT 06064000 
06120000 
WRITEPRT = PROCEDURE ©" DECLARED IN SEGMENT 3 aT 05325010 
05325500 05376100 
WRITERROR =" STREAM PROCEDURE =" DECLARED IN SEGMENT 37 AT 05016000 
05031000 05044000 
WRYTNeW = BOOLEAN STREAM PROCEDURE °** DECLARED IN SEGMENT 3 AT 02016000 
#02020000*« 02194000 
X =" STREAM VARIABLE |= NAME PARAMETER == DECLAREO IN SEGMENT 38 AT 05067000 
05072000 05074000 
X = REAL == DECLARFD IN SEGMENT 83 AT 09393270 
*09393400% 09393410 09393490 09393430 
X we REAL ** VALUE PARAMETER == DECLARED IN SEGMENT 3 AT 13591000 
13589000 73590000 135893000 
XBIT == INTEGER =" VALUE PARAMETER "= DECLARED IN SEGMENT 19 AT 02321000 
02327000 02335000 02339000 02353000 02357000 
XCH = DEFINE "= DECLARED IN SEGMENT 3 AT 01675000 
04507000 06203000 08065000 08123000 08228000 12054000 15100400 415303900 
XINFO ©" REAL ARRAY ©* DEFCLARED IN SEGMENT 3 AT 01007245 
02001660 02001695 02001795 02001815 «02001822%413310200«% 13310350 «13310950« 
XT ©" DEFINE °°" DECLARED IN SEGMENT 3 AT 01676000 
13743000 
XrrT 7" Lapel ©" DECLARFN IN SEGMENT 12 AT 02210500 “= OCCURS AT 02237750 
02213250 02214750 
X1T we STREAM LABEL = DECLARED IN SEGMENT 43 AT 05325080 == OCCURS AT 05325430 
053295340 05325350 05395370 05325380 05325390 053295400 05325410 
XIT = LABEL =" DECLARED IN SEGMENT 66 AT 07646436 == OCCURS AT 07646674 
07646458 
XITR © NEFINE @" DFCLARED IN SEGMENT 3 AT 01430000 
XLUN ©" INTEGER ©" pECLARED IN SEGMENT 3 aT 01007380 
#133104850% 16495300 17004500 #17004600" 17022300 «17025100«17025300% 17025400 #17043000" 
XMARK ©" WEFINE =" MECLAREN IN SEGMENT 3 aT 010074655 
07598100 07660600 08178100 13310525 14312100 15094200 45184700 146159100 1631;8500 
XMAS "= RrAL © VALUE PARAMETER ©" DFCLARFD IN SEGMENT 81 AT 09393050 
09393410 093931430 09393140 09393170 «09393;80« 09393190 09393200 
XMODE #* INTEGER "=" DECLARED IN SEGMENT 3 AT 01001530 
02328000 «02332000%«02367000%%02363000%%02385000% 02408000 02419100 02425500 «02478000 02483000 
02577000 
XMODEO == LABEL =" NECLARED IN SEGMENT 20 aT 02325000 = OCCURS AT 02329000 
02326000 
XMODE1 °* LABEL =" nFECLAREN IN SEGMENT 20 at 02325000 == OCCURS aT 02333000 
02326000 
XMODE2 "* LABEL ** NECLAREN IN SEGMENT 20 AT 02325000 = OCCURS aT 02337000 
02326000 
XMODE3 ** LABEL == HECLARED IN SEGMENT 20 AT 02325000 = OCCURS AT 02341000 
02326000 
XMODES c= LABEL =" NECLAREN IN SEGMENT 20 AT 02325000 «== OCCURS aT 02355000 


05099000 


02525000 


eweeeeeeeee ore 8 ee &© © © 8 8 ®@ 


02326000 
XREF = ODFFINE == DFCLARED IN SEGMENT 3 AT 01001461 
02882200 07598400 07460600 08178400 13370050 433430525 13319580 433472700 44342100 44469400 45090600 
15091200 15184400 15184700 15301000 16159100 16318500 16495300 
XREFAYL 7" REAL ARRAY ©™ DECLARED IN SEGMENT 3 aT 01007145 
02001805 *020018154«02001820% 02001823 wi70B4000% 17091900 17093850 17093959 17094050 17094100 147094700 
17095000 17095300 17095320 
XReFaye 7" Real aRRay =" prebaRen tN SeoMeNt 3 aT 91007030 
02001680 #02001695%407596 1004407 660600 #408178 100441 3310525441 4312100%415091 2004415184700 %%161591004"16318500» 
*17003000% 17004000 17076000 17079000 
XReeBrT =" OFFINE "= nrcbaRrn IN SEGMENT 3 aT 01001170 
024191400 02882200 07598100 07660600 08478300 43340050 43310525 13319580 143341200 44332100 144469400 
159090600 15091200 15184400 15184700 15301000 16159100 146318500 46495300 
XREFDUMP "= PEFINE "= NECLARED IN SEGMENT 3 AT 01007470 
13283500 14445700 
XREFINFO ** DEFINE "= NECLARED IN SEGMENT 3 AT 01007481 
020901660 02001695 02001795 02003815 02001822 13310200 13330350 13310950 
XREFINFO = WEFINE = PMECLARED IN SEGMENT 119 at 17002005 
17025100 147025300 147080000 
XRFFIT 7? DEFINE “" DFCLAREN IN SEGMENT 3 AT 01007440 
02882200 13310575 14469100 15090600 15184400 145301000 
XREEPT = INTEGER @** necLARFD tN SEGMENT 3 aT 014007355 
02001670 #*02001685* 02001695 #02004705*« 07598100 07660600 08178400 143340525 4#13341300* 14342100 15091200 
15184700 16159100 16348500 *17003000m417004600K%17074000e#17077000% 17079000 ¥17084000*% 417091400 17094200 
*#17094600« 17095900 «17096100 %%17096400u%17148000" 
Y owe REAL ** VALUE PARAMETER = PFCLAREnN 1N SrGMENT 81 ar 09393240 
09393290 *09393330e 09393350 09393400 «09393430" 09393440 09393450 
Z *" REAL ©" DECLARED IN SEGMENT 3 aT 01490000 
13746000 #14411200%+*14415200*% 14457000 «145060008 
Z eo NTERER =" DECLARED IN SEGMENT 49 AT 06063500 
*06099100% 
ZEFRO == STREAM PROCENURF == NFCLARED IN SEGMENT 67 AT 07658500 
07660500 07662000 
ZPy = OEFINE == DECLARED IN SEGMENT 3 AT 04677000 


CROSS REFERENCE STATISTICS 


PHASE ONE = SORT 1773 JDENTIFIERS 
1899 ELAPSED TIME ¢MINISEC) 
0:35 PROCESSOR TIME 
0854 1/0 TIME 


PHASE TwO = SORT 11995 REFFRENCES 
2803 ELAPSED TIME ¢cMINISEC) 
1$53 PROCESSOR TIME 
09190 1/0 TIME 


PHASE THREE = PRINT CROSS REFERENCE ( 3686 LINES) 
1216 ELAPSED TIME CMINISEC) 


0854 PROCESSOR TIME 
Os4a¢ 1/70 TIME 
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